7 hprogram,hinit,kluout,hatmfile,hatmfiletype,&
8 kyear,kmonth,kday,ptime,tptime)
51 USE modi_read_pre_seaf_dat_conf
52 USE modi_read_pre_surfa_dat_conf
53 USE modi_read_prep_seaflux_conf
54 USE modi_read_prep_file_date
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
68 TYPE(ocean_t),
INTENT(INOUT) :: o
70 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 CHARACTER(LEN=3),
INTENT(IN) :: hinit
72 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
73 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
74 INTEGER,
INTENT(IN) :: kyear
75 INTEGER,
INTENT(IN) :: kmonth
76 INTEGER,
INTENT(IN) :: kday
77 REAL,
INTENT(IN) :: ptime
79 INTEGER,
INTENT(IN) :: kluout
85 CHARACTER(LEN=28) :: yfile
86 CHARACTER(LEN=6) :: yfiletype
87 CHARACTER(LEN=28) :: yfilepgd
88 CHARACTER(LEN=6) :: yfilepgdtype
89 CHARACTER(LEN=28) :: yfilepgdin
90 CHARACTER(LEN=6) :: yfilepgdintype
93 REAL(KIND=JPRB) :: zhook_handle
97 IF (lhook) CALL dr_hook(
'READ_SEAFLUX_DATE',0,zhook_handle)
111 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
112 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
119 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
120 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
123 hprogram,
'DATE ',yfile,yfiletype,yfilepgd,yfilepgdtype,&
124 hatmfile,hatmfiletype,yfilepgdin,yfilepgdintype,kluout,gunif)
126 IF (len_trim(yfiletype)/=0) &
128 hprogram,yfile,yfiletype,tptime,kluout)
135 IF (len_trim(yfile)==0 .AND. (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
136 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef))
THEN
138 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
139 tptime%TDATE%YEAR = kyear
140 tptime%TDATE%MONTH= kmonth
141 tptime%TDATE%DAY = kday
148 CALL
abor1_sfx(
'READ_SEAFLUX_DATE: DATE NOT SET')
155 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
156 IF (kyear /= tptime%TDATE%YEAR .OR. kmonth /= tptime%TDATE%MONTH .OR. kday /= tptime%TDATE%DAY .AND. ptime /= tptime%TIME)
THEN
157 WRITE(unit=kluout, fmt=*)
'WARNING in READ_SEAFLUX_DATE'
158 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC AND SURFACE DATES ARE NOT THE SAME'
159 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC DATE in READ_SEAFLUX_DATE'
160 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') kyear
161 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') kmonth
162 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') kday
163 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
164 WRITE(unit=kluout, fmt=*)
'SURFACE DATE in READ_SEAFLUX_DATE'
165 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') tptime%TDATE%YEAR
166 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') tptime%TDATE%MONTH
167 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') tptime%TDATE%DAY
168 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') tptime%TIME
170 WRITE(unit=kluout, fmt=*)
'SAME ATMOSPHERIC AND SURFACE DATES'
171 WRITE(unit=kluout, fmt=*)
'DATE in READ_SEAFLUX_DATE'
172 WRITE(unit=kluout, fmt=
'(" YEAR=",I4," MONTH=",I4," DAY=",I4)') &
174 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
177 IF (lhook) CALL dr_hook(
'READ_SEAFLUX_DATE',1,zhook_handle)
subroutine read_prep_file_date(HPROGRAM, HFILE, HFILETYPE, TPTIME, KLUOUT)
subroutine read_pre_surfa_dat_conf(HPROGRAM, KLUOUT, TPTIME)
subroutine abor1_sfx(YTEXT)
subroutine read_pre_seaf_dat_conf(HPROGRAM, KLUOUT, TPTIME)
subroutine read_seaflux_date(O, HPROGRAM, HINIT, KLUOUT, HATMFILE, HATMFILETYPE, KYEAR, KMONTH, KDAY, PTIME, TPTIME)
subroutine read_prep_seaflux_conf(O, HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)