7 hprogram,hscheme,hfiletype, &
8 hsubroutine,hfilename,hfield, &
61 USE modi_read_direct_gauss
64 USE modi_read_binllvfast
67 USE modi_read_pgd_netcdf
69 USE modi_average2_mesh
73 USE yomhook
,ONLY : lhook, dr_hook
74 USE parkind1
,ONLY : jprb
78 USE modi_average2_cover
83 USE modi_average2_orography
95 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
96 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
97 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
98 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
99 CHARACTER(LEN=28),
INTENT(IN) :: hfilename
100 CHARACTER(LEN=20),
INTENT(IN) :: hfield
101 REAL,
DIMENSION(:),
INTENT(INOUT),
OPTIONAL :: ppgdarray
102 CHARACTER(LEN=3),
INTENT(IN),
OPTIONAL :: hsftype
108 REAL(KIND=JPRB) :: zhook_handle
111 IF (lhook) CALL dr_hook(
'TREAT_FIELD',0,zhook_handle)
117 SELECT CASE (hfiletype)
120 IF(ug%CGRID==
"GAUSS " .OR. ug%CGRID==
"IGN " .OR. ug%CGRID==
"LONLAT REG")
THEN
122 hprogram,hscheme,hsubroutine,hfilename,hfield)
125 hprogram,hscheme,hsubroutine,hfilename,hfield)
130 hprogram,hsubroutine,hfilename)
134 hprogram,hsubroutine,hfilename)
138 hprogram,hsubroutine,hfilename)
142 hprogram,hscheme,hsubroutine,hfilename)
146 hprogram,hscheme,hsubroutine,hfilename,hfield)
149 CALL
abor1_sfx(
'TREAT_FIELD: FILE TYPE NOT SUPPORTED: '//hfiletype)
158 SELECT CASE (hsubroutine)
177 IF (.NOT. present(ppgdarray))
THEN
178 WRITE(iluout,*)
'You asked to average a PGD field with A_MESH option,'
179 WRITE(iluout,*)
'but you did not give the array to store this field'
180 CALL
abor1_sfx(
'TREAT_FIELD: ARRAY IS MISSING')
186 IF (lhook) CALL dr_hook(
'TREAT_FIELD',1,zhook_handle)
subroutine average2_cover(U, HPROGRAM)
subroutine read_latlon(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME)
subroutine read_direct(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME, HFIELD)
subroutine average2_ldb(PPGDARRAY, HTYPE, KSTAT)
subroutine read_ascllv(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine average2_orography(USS)
subroutine read_binllv(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine treat_field(UG, U, USS, HPROGRAM, HSCHEME, HFILETYPE, HSUBROUTINE, HFILENAME, HFIELD, PPGDARRAY, HSFTYPE)
subroutine abor1_sfx(YTEXT)
subroutine read_binllvfast(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine average2_mesh(PPGDARRAY)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_pgd_netcdf(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME, HFIELD, PFIELD)
subroutine read_direct_gauss(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME, HFIELD)