8 pcon_rain, pstrat_rain, pcon_snow, pstrat_snow, &
9 pclouds, plsm, pevaptr, pevap, &
10 pswec, ptsc, pucls, pvcls, &
11 pts, pt2m, phu2m, pswe, &
12 htest, od_maskext, plon, plat)
44 USE yomhook
, ONLY : lhook, dr_hook
45 USE parkind1
, ONLY : jprb
56 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
57 TYPE(isba_t
),
INTENT(INOUT) :: i
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 INTEGER,
INTENT(IN) :: ki
62 REAL,
DIMENSION(KI),
INTENT(IN) :: pcon_rain
63 REAL,
DIMENSION(KI),
INTENT(IN) :: pstrat_rain
64 REAL,
DIMENSION(KI),
INTENT(IN) :: pcon_snow
65 REAL,
DIMENSION(KI),
INTENT(IN) :: pstrat_snow
66 REAL,
DIMENSION(KI),
INTENT(IN) :: pclouds
67 REAL,
DIMENSION(KI),
INTENT(IN) :: plsm
68 REAL,
DIMENSION(KI),
INTENT(IN) :: pevaptr
69 REAL,
DIMENSION(KI),
INTENT(IN) :: pevap
70 REAL,
DIMENSION(KI),
INTENT(IN) :: pswec
71 REAL,
DIMENSION(KI),
INTENT(IN) :: ptsc
72 REAL,
DIMENSION(KI),
INTENT(IN) :: pucls
73 REAL,
DIMENSION(KI),
INTENT(IN) :: pvcls
74 REAL,
DIMENSION(KI),
INTENT(IN) :: pts
75 REAL,
DIMENSION(KI),
INTENT(IN) :: pt2m
76 REAL,
DIMENSION(KI),
INTENT(IN) :: phu2m
77 REAL,
DIMENSION(KI),
INTENT(IN) :: pswe
78 CHARACTER(LEN=2),
INTENT(IN) :: htest
79 LOGICAL,
DIMENSION (KI),
INTENT(IN) :: od_maskext
80 REAL(KIND=JPRB),
DIMENSION (:),
INTENT(IN) :: plon
81 REAL(KIND=JPRB),
DIMENSION (:),
INTENT(IN) :: plat
86 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'ASSIM_NATURE_N',0,zhook_handle)
92 CALL
abor1_sfx(
'ASSIM_NATURE_n: FATAL ERROR DURING ARGUMENT TRANSFER')
95 IF (u%CNATURE==
'ISBA ')
THEN
99 pcon_rain, pstrat_rain, pcon_snow, pstrat_snow, &
100 pclouds, plsm, pevaptr, pevap, &
101 pswec, ptsc, pucls, pvcls, &
102 pts, pt2m, phu2m, pswe, &
103 htest, od_maskext, plon, plat )
105 WRITE(*,*)
'No assimilation done for scheme: ',trim(u%CNATURE)
108 IF (lhook) CALL dr_hook(
'ASSIM_NATURE_N',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine assim_nature_n(DGMI, IG, I, U, HPROGRAM, KI, PCON_RAIN, PSTRAT_RAIN, PCON_SNOW, PSTRAT_SNOW, PCLOUDS, PLSM, PEVAPTR, PEVAP, PSWEC, PTSC, PUCLS, PVCLS, PTS, PT2M, PHU2M, PSWE, HTEST, OD_MASKEXT, PLON, PLAT)
subroutine assim_isba_n(DGMI, IG, I, U, HPROGRAM, KI, PCON_RAIN, PSTRAT_RAIN, PCON_SNOW, PSTRAT_SNOW, PCLOUDS, PLSM, PEVAPTR, PEVAP, PSWEC, PTSC, PUCLS, PVCLS, PTS, PT2M, PHU2M, PSWE, HTEST, OD_MASKEXT, PLON_IN, PLAT_IN)