7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
42 USE modi_prep_hor_watflux_field
43 USE modi_prep_ver_watflux
44 USE modi_prep_output_grid
46 USE modi_prep_watflux_sbl
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
57 USE modi_clean_prep_output_grid
71 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
73 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
74 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
75 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
79 INTEGER :: jmth, inmth
84 REAL(KIND=JPRB) :: zhook_handle
90 IF (lhook) CALL dr_hook(
'PREP_WATFLUX',0,zhook_handle)
94 iluout,wm%WG%CGRID,wm%WG%XGRID_PAR,wm%WG%XLAT,wm%WG%XLON)
105 hprogram,
'ZS ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
111 hprogram,
'TSWATER',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
115 ALLOCATE(wm%W%XZ0(
SIZE(wm%W%XTS)))
133 wm%W%LINTERPOL_TS=.false.
134 IF(wm%W%CINTERPOL_TS/=
'NONE ')
THEN
135 wm%W%LINTERPOL_TS=.true.
138 IF(wm%W%LINTERPOL_TS)
THEN
143 ALLOCATE(wm%W%XTS_MTH(
SIZE(wm%W%XTS),inmth))
145 wm%W%XTS_MTH(:,jmth)=wm%W%XTS(:)
156 IF (lhook) CALL dr_hook(
'PREP_WATFLUX',1,zhook_handle)
subroutine prep_ver_watflux(W)
subroutine clean_prep_output_grid
subroutine prep_watflux_sbl(WG, WSB)
subroutine prep_hor_watflux_field(DTCO, U, WG, W, HPROGRAM, HSURF, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine prep_watflux(DTCO, UG, U, WM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_output_grid(UG, U, KLUOUT, HGRID, PGRID_PAR, PLAT, PLON)