7 hprogram,hinit,kluout,hatmfile,hatmfiletype,&
8 kyear,kmonth,kday,ptime,tptime)
49 USE modi_read_prep_isba_date_conf
50 USE modi_read_pre_surfa_dat_conf
51 USE modi_read_prep_isba_conf
52 USE modi_read_prep_file_date
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=3),
INTENT(IN) :: hinit
68 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
69 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
70 INTEGER,
INTENT(IN) :: kyear
71 INTEGER,
INTENT(IN) :: kmonth
72 INTEGER,
INTENT(IN) :: kday
73 REAL,
INTENT(IN) :: ptime
75 INTEGER,
INTENT(IN) :: kluout
81 CHARACTER(LEN=28) :: yfile
82 CHARACTER(LEN=6) :: yfiletype
83 CHARACTER(LEN=28) :: yfilepgd
84 CHARACTER(LEN=6) :: yfilepgdtype
85 CHARACTER(LEN=28) :: yfilepgdin
86 CHARACTER(LEN=6) :: yfilepgdintype
89 REAL(KIND=JPRB) :: zhook_handle
93 IF (lhook) CALL dr_hook(
'READ_ISBA_DATE',0,zhook_handle)
107 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
108 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
116 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
117 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
120 hatmfile,hatmfiletype,yfilepgdin,yfilepgdintype,kluout,gunif)
122 IF (len_trim(yfiletype)/=0) &
124 hprogram,yfile,yfiletype,tptime,kluout)
131 IF (len_trim(yfile)==0 .AND. (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
132 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef))
THEN
134 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
135 tptime%TDATE%YEAR = kyear
136 tptime%TDATE%MONTH= kmonth
137 tptime%TDATE%DAY = kday
144 CALL
abor1_sfx(
'READ_ISBA_DATE: DATE NOT SET')
151 IF (kyear /= xundef .AND. kmonth /= xundef .AND. kday /= xundef .AND. ptime /= xundef)
THEN
152 IF (kyear /= tptime%TDATE%YEAR .OR. kmonth /= tptime%TDATE%MONTH .OR. kday /= tptime%TDATE%DAY .AND. ptime /= tptime%TIME)
THEN
153 WRITE(unit=kluout, fmt=*)
'WARNING in READ_ISBA_DATE'
154 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC AND SURFACE DATES ARE NOT THE SAME'
155 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC DATE:'
156 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') kyear
157 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') kmonth
158 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') kday
159 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
160 WRITE(unit=kluout, fmt=*)
'SURFACE DATE:'
161 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') tptime%TDATE%YEAR
162 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') tptime%TDATE%MONTH
163 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') tptime%TDATE%DAY
164 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') tptime%TIME
166 WRITE(unit=kluout, fmt=*)
'SAME ATMOSPHERIC AND SURFACE DATES'
167 WRITE(unit=kluout, fmt=*)
'DATE in READ_ISBA_DATE'
168 WRITE(unit=kluout, fmt=
'(" YEAR=",I4," MONTH=",I4," DAY=",I4)') &
170 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
173 IF (lhook) CALL dr_hook(
'READ_ISBA_DATE',1,zhook_handle)
subroutine read_isba_date(HPROGRAM, HINIT, KLUOUT, HATMFILE, HATMFILETYPE, KYEAR, KMONTH, KDAY, PTIME, TPTIME)
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_prep_isba_conf(HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)
subroutine read_prep_isba_date_conf(HPROGRAM, KLUOUT, TPTIME)