60 USE modi_open_namelist
61 USE modi_close_namelist
67 USE yomhook
,ONLY : lhook, dr_hook
68 USE parkind1
,ONLY : jprb
85 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
86 LOGICAL ,
INTENT(OUT) :: osst_data
102 INTEGER,
PARAMETER :: ntime_max = 800
104 REAL,
DIMENSION(NTIME_MAX) :: xunif_sst
106 INTEGER,
DIMENSION(NTIME_MAX) :: nyear_sst
107 INTEGER,
DIMENSION(NTIME_MAX) :: nmonth_sst
108 INTEGER,
DIMENSION(NTIME_MAX) :: nday_sst
109 REAL,
DIMENSION(NTIME_MAX) :: xtime_sst
114 CHARACTER(LEN=28),
DIMENSION(NTIME_MAX) :: cfnam_sst
115 CHARACTER(LEN=6),
DIMENSION(NTIME_MAX) :: cftyp_sst
116 REAL(KIND=JPRB) :: zhook_handle
118 namelist/nam_data_seaflux/ntime_sst, lsst_data, xunif_sst, cfnam_sst, cftyp_sst, &
119 nyear_sst, nmonth_sst, nday_sst, xtime_sst
125 IF (lhook) CALL dr_hook(
'PGD_SEAFLUX_PAR',0,zhook_handle)
127 xunif_sst(:) = xundef
133 nyear_sst(:) = nundef
134 nmonth_sst(:) = nundef
136 xtime_sst(:) = xundef
147 CALL
posnam(ilunam,
'NAM_DATA_SEAFLUX',gfound,iluout)
148 IF (gfound)
READ(unit=ilunam,nml=nam_data_seaflux)
152 osst_data = lsst_data
153 IF (.NOT. lsst_data .AND. lhook) CALL dr_hook(
'PGD_SEAFLUX_PAR',1,zhook_handle)
154 IF (.NOT. lsst_data)
RETURN
156 IF (ntime_sst > ntime_max)
THEN
157 WRITE(iluout,*)
'NTIME_SST SHOULD NOT EXCEED',ntime_max
158 CALL
abor1_sfx(
'PGD_SEAFLUX_PAR: NTIME TOO BIG')
160 ALLOCATE(dts%XDATA_SST (sg%NDIM,ntime_sst))
161 ALLOCATE(dts%TDATA_SST (ntime_sst))
172 hprogram,
'SST: sea surface temperature',
'SEA',cfnam_sst(jtime), &
173 cftyp_sst(jtime),xunif_sst(jtime),dts%XDATA_SST(:,jtime))
175 dts%TDATA_SST(jtime)%TDATE%YEAR = nyear_sst(jtime)
176 dts%TDATA_SST(jtime)%TDATE%MONTH = nmonth_sst(jtime)
177 dts%TDATA_SST(jtime)%TDATE%DAY = nday_sst(jtime)
178 dts%TDATA_SST(jtime)%TIME = xtime_sst(jtime)
181 IF (lhook) CALL dr_hook(
'PGD_SEAFLUX_PAR',1,zhook_handle)
subroutine pgd_seaflux_par(DTCO, DTS, SG, UG, U, USS, HPROGRAM, OSST_DATA)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine abor1_sfx(YTEXT)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)