7 hprogram,ki,hwater,pqs,pz0,pz0h)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=6),
INTENT(IN) :: hwater
63 INTEGER,
INTENT(IN) :: ki
64 REAL,
DIMENSION(KI),
INTENT(OUT) :: pqs
65 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0
66 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0h
73 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'GET_VAR_WATER_N',0,zhook_handle)
76 IF (hwater==
'FLAKE')
THEN
82 IF (lhook) CALL dr_hook(
'GET_VAR_WATER_N',1,zhook_handle)
93 REAL(KIND=JPRB) :: zhook_handle
95 IF (lhook) CALL dr_hook(
'GET_VAR_WATFLX_N',0,zhook_handle)
99 IF (dgw%LSURF_VARS)
THEN
111 IF (lhook) CALL dr_hook(
'GET_VAR_WATFLX_N',1,zhook_handle)
122 REAL(KIND=JPRB) :: zhook_handle
124 IF (lhook) CALL dr_hook(
'GET_VAR_FLAKE_N',0,zhook_handle)
128 IF (dgf%LSURF_VARS)
THEN
140 IF (lhook) CALL dr_hook(
'GET_VAR_FLAKE_N',1,zhook_handle)
subroutine get_var_flake_n
subroutine get_var_water_n(DGF, DGW, HPROGRAM, KI, HWATER, PQS, PZ0, PZ0H)
subroutine get_var_watflx_n
subroutine get_luout(HPROGRAM, KLUOUT)