7 hprogram,hvar,hfile,hfiletype,hfilepgd,hfilepgdtype, &
8 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,kluout,ounif)
51 USE modi_read_prep_surf_atm_conf
52 USE modi_prep_ocean_mercatorvergrid
54 USE modd_prep_seaflux, ONLY : cfile_seaflx, ctype_seaflx, cfilepgd_seaflx, ctypepgd, &
55 xsst_unif, xsss_unif, xsic_unif
60 USE yomhook
,ONLY : lhook, dr_hook
61 USE parkind1
,ONLY : jprb
71 TYPE(ocean_t),
INTENT(INOUT) :: o
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=7),
INTENT(IN) :: hvar
75 CHARACTER(LEN=28),
INTENT(OUT) :: hfile
76 CHARACTER(LEN=6),
INTENT(OUT) :: hfiletype
77 CHARACTER(LEN=28),
INTENT(OUT) :: hfilepgd
78 CHARACTER(LEN=6),
INTENT(OUT) :: hfilepgdtype
79 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
80 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
81 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
82 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
83 INTEGER,
INTENT(IN) :: kluout
84 LOGICAL,
INTENT(OUT) :: ounif
94 CHARACTER(LEN=28) :: ynamelist
97 REAL(KIND=JPRB) :: zhook_handle
101 IF (lhook) CALL dr_hook(
'READ_PREP_SEAFLUX_CONF',0,zhook_handle)
115 IF (len_trim(hfile)==0 .AND. len_trim(cfile_seaflx)>0 .AND. len_trim(ctype_seaflx)>0)
THEN
117 hfiletype = ctype_seaflx
120 IF (len_trim(hfilepgd)==0 .AND. len_trim(cfilepgd_seaflx)>0 .AND. len_trim(ctypepgd)>0)
THEN
121 hfilepgd = cfilepgd_seaflx
122 hfilepgdtype = ctypepgd
128 IF (len_trim(hfile)==0)
THEN
131 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,kluout)
141 ounif = (xsst_unif/=xundef)
143 IF (cseaice_scheme ==
'NONE '.AND. &
144 len_trim(hfiletype)==0.0 .AND. &
145 xsss_unif==xundef )
THEN
148 ounif = (xsss_unif/=xundef)
150 ounif = (xsic_unif/=xundef)
159 IF (hvar==
'DATE ' .OR. hvar==
'ZS ')
THEN
160 ounif = (hfiletype==
' ')
161 IF (lhook) CALL dr_hook(
'READ_PREP_SEAFLUX_CONF',1,zhook_handle)
165 IF (len_trim(hfiletype)==0 .AND. .NOT. ounif)
THEN
166 CALL
abor1_sfx(
'READ_PREP_SEAFLUX_CONF: AN INPUT VALUE IS REQUIRED FOR '//hvar)
174 IF (o%LMERCATOR)
THEN
175 WRITE(kluout,*)
'LMERCATOR=T : initializing oceanic vertical grid'
178 IF (lhook) CALL dr_hook(
'READ_PREP_SEAFLUX_CONF',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine prep_ocean_mercatorvergrid(HPROGRAM, OUNIF)
subroutine read_prep_surf_atm_conf(HPROGRAM, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT)
subroutine read_prep_seaflux_conf(O, HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)