8 hprogram,hsurf,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
45 USE modd_prep, ONLY : cingrid_type, cinterp_type, xzs_ls, xlat_out, xlon_out, &
48 USE modi_read_prep_watflux_conf
49 USE modi_prep_watflux_grib
50 USE modi_prep_watflux_unif
51 USE modi_prep_watflux_buffer
54 USE modi_prep_watflux_extern
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
74 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
75 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
76 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
77 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
81 CHARACTER(LEN=6) :: yfiletype
82 CHARACTER(LEN=28) :: yfile
83 CHARACTER(LEN=6) :: yfilepgdtype
84 CHARACTER(LEN=28) :: yfilepgd
85 REAL,
POINTER,
DIMENSION(:,:) :: zfieldin
86 REAL,
ALLOCATABLE,
DIMENSION(:,:) :: zfieldout
90 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'PREP_HOR_WATFLUX_FIELD',0,zhook_handle)
100 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,iluout,gunif)
110 ELSE IF (yfiletype==
'GRIB ')
THEN
112 ELSE IF (yfiletype==
'MESONH' .OR. yfiletype==
'ASCII ' .OR. yfiletype==
'LFI '.OR. yfiletype==
'FA ')
THEN
114 hprogram,hsurf,yfile,yfiletype,yfilepgd,yfilepgdtype,iluout,zfieldin)
115 ELSE IF (yfiletype==
'BUFFER')
THEN
118 CALL
abor1_sfx(
'PREP_HOR_WATFLUX_FIELD: data file type not supported : '//yfiletype)
124 ALLOCATE(zfieldout(
SIZE(wg%XLAT),
SIZE(zfieldin,2)))
127 iluout,zfieldin,zfieldout)
133 ALLOCATE(xzs_ls(
SIZE(zfieldout,1)))
134 xzs_ls(:) = zfieldout(:,1)
136 ALLOCATE(w%XTS(
SIZE(zfieldout,1)))
137 w%XTS(:) = zfieldout(:,1)
144 DEALLOCATE(zfieldin )
145 DEALLOCATE(zfieldout)
146 IF (lhook) CALL dr_hook(
'PREP_HOR_WATFLUX_FIELD',1,zhook_handle)
subroutine read_prep_watflux_conf(HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)
subroutine prep_watflux_extern(HPROGRAM, HSURF, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, KLUOUT, PFIELD)
subroutine prep_watflux_unif(KLUOUT, HSURF, PFIELD)
subroutine abor1_sfx(YTEXT)
subroutine hor_interpol(DTCO, U, KLUOUT, PFIELDIN, PFIELDOUT)
subroutine prep_watflux_buffer(HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine prep_hor_watflux_field(DTCO, U, WG, W, HPROGRAM, HSURF, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_watflux_grib(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD)
subroutine get_luout(HPROGRAM, KLUOUT)