7 hprogram,hscheme,hfiletype, &
8 hsubroutine,hfilename,hncvarname, &
9 hfield, ppgdarray,hsftype )
55 USE modi_read_binllvfast
58 USE modi_average2_mesh
62 USE yomhook
,ONLY : lhook, dr_hook
63 USE parkind1
,ONLY : jprb
67 USE modi_average2_cover
69 USE modi_average2_orography
71 USE modi_read_direct_gauss
82 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
83 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
84 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
85 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
86 CHARACTER(LEN=28),
INTENT(IN) :: hfilename
87 CHARACTER(LEN=28),
INTENT(IN) :: hncvarname
88 CHARACTER(LEN=20),
INTENT(IN) :: hfield
89 REAL,
DIMENSION(:),
INTENT(INOUT),
OPTIONAL :: ppgdarray
90 CHARACTER(LEN=3),
INTENT(IN),
OPTIONAL :: hsftype
96 REAL(KIND=JPRB) :: zhook_handle
99 IF (lhook) CALL dr_hook(
'TREAT_BATHYFIELD',0,zhook_handle)
105 SELECT CASE (hfiletype)
108 IF(ug%CGRID==
"GAUSS ")
THEN
110 hprogram,hscheme,hsubroutine,hfilename,hfield)
113 hprogram,hscheme,hsubroutine,hfilename,hfield)
117 hprogram,hsubroutine,hfilename)
121 hprogram,hsubroutine,hfilename)
125 hprogram,hsubroutine,hfilename)
129 hprogram,hsubroutine,hfilename,hncvarname)
138 SELECT CASE (hsubroutine)
148 IF (.NOT. present(ppgdarray))
THEN
149 WRITE(iluout,*)
'You asked to average a PGD field with A_MESH option,'
150 WRITE(iluout,*)
'but you did not give the array to store this field'
151 CALL
abor1_sfx(
'TREAT_BATHYFIELD: PGD ARRAY IS MISSING')
156 IF (lhook) CALL dr_hook(
'TREAT_BATHYFIELD',1,zhook_handle)
subroutine read_netcdf(USS, HPROGRAM, HSUBROUTINE, HFILENAME, HNCVARNAME)
subroutine average2_cover(U, HPROGRAM)
subroutine read_direct(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME, HFIELD)
subroutine read_ascllv(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine average2_orography(USS)
subroutine read_binllv(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine abor1_sfx(YTEXT)
subroutine read_binllvfast(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine average2_mesh(PPGDARRAY)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine treat_bathyfield(UG, U, USS, HPROGRAM, HSCHEME, HFILETYPE, HSUBROUTINE, HFILENAME, HNCVARNAME, HFIELD, PPGDARRAY, HSFTYPE)
subroutine read_direct_gauss(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME, HFIELD)