7 hprogram,ki,pqs,psng,psnv,pz0eff,pz0,pz0h,ptwsnow,pbare)
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
63 TYPE(isba_t
),
INTENT(INOUT) :: i
67 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 INTEGER,
INTENT(IN) :: ki
69 REAL,
DIMENSION(KI),
INTENT(OUT) :: pqs
70 REAL,
DIMENSION(KI),
INTENT(OUT) :: psng
71 REAL,
DIMENSION(KI),
INTENT(OUT) :: psnv
72 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0eff
73 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0
74 REAL,
DIMENSION(KI),
INTENT(OUT) :: pz0h
75 REAL,
DIMENSION(KI),
INTENT(OUT) :: ptwsnow
76 REAL,
DIMENSION(KI),
INTENT(OUT) :: pbare
83 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'GET_VAR_NATURE_N',0,zhook_handle)
90 IF (dgi%LSURF_VARS)
THEN
96 IF (dgmi%LSURF_MISC_BUDGET)
THEN
99 ptwsnow = dgmi%XAVG_TWSNOW
107 pz0eff = dgi%XAVG_Z0EFF
116 pbare = i%XVEGTYPE(:,nvt_no)
118 IF (lhook) CALL dr_hook(
'GET_VAR_NATURE_N',1,zhook_handle)
subroutine get_var_nature_n(I, DGI, DGMI, HPROGRAM, KI, PQS, PSNG, PSNV, PZ0EFF, PZ0, PZ0H, PTWSNOW, PBARE)
subroutine get_luout(HPROGRAM, KLUOUT)