7 hprogram,ki,pzs,hwater)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
60 TYPE(flake_t),
INTENT(INOUT) :: f
63 CHARACTER(LEN=6),
INTENT(IN) :: hwater
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
65 INTEGER,
INTENT(IN) :: ki
66 REAL,
DIMENSION(KI),
INTENT(IN) :: pzs
73 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'PUT_ZS_INLAND_WATER_N',0,zhook_handle)
76 IF (hwater==
'FLAKE ')
THEN
82 IF (lhook) CALL dr_hook(
'PUT_ZS_INLAND_WATER_N',1,zhook_handle)
93 REAL(KIND=JPRB) :: zhook_handle
95 IF (lhook) CALL dr_hook(
'PUT_ZS_WATFLX_N',0,zhook_handle)
99 IF (
SIZE(pzs) /=
SIZE(w%XZS) )
THEN
100 WRITE(iluout,*)
'try to get ZS field from atmospheric model, but size is not correct'
101 WRITE(iluout,*)
'size of field expected by the atmospheric model (PZS) :',
SIZE(pzs)
102 WRITE(iluout,*)
'size of field for inland water (WATFLX) (XZS) :',
SIZE(w%XZS)
103 CALL
abor1_sfx(
'PUT_ZS_INLAND_WATERN (WATFLX): GET ZS FROM ATMOSPHERIC MODEL: SIZE NOT CORRECT')
107 IF (lhook) CALL dr_hook(
'PUT_ZS_WATFLX_N',1,zhook_handle)
119 REAL(KIND=JPRB) :: zhook_handle
121 IF (lhook) CALL dr_hook(
'PUT_ZS_FLAKE_N',0,zhook_handle)
125 IF (
SIZE(pzs) /=
SIZE(f%XZS) )
THEN
126 WRITE(iluout,*)
'try to get ZS field from atmospheric model, but size is not correct'
127 WRITE(iluout,*)
'size of field expected by the atmospheric model (PZS) :',
SIZE(pzs)
128 WRITE(iluout,*)
'size of field for inland water (FLAKE) (XZS) :',
SIZE(f%XZS)
129 CALL
abor1_sfx(
'PUT_ZS_INLAND_WATERN (FLAKE): GET ZS FROM ATMOSPHERIC MODEL: SIZE NOT CORRECT')
133 IF (lhook) CALL dr_hook(
'PUT_ZS_FLAKE_N',1,zhook_handle)
subroutine put_zs_inland_water_n(F, W, HPROGRAM, KI, PZS, HWATER)
subroutine put_zs_flake_n
subroutine abor1_sfx(YTEXT)
subroutine put_zs_watflx_n
subroutine get_luout(HPROGRAM, KLUOUT)