7 hprogram,hinit,kluout,hatmfile,hatmfiletype,&
8 kyear,kmonth,kday,ptime,tptime )
49 USE modi_read_pre_flake_dat_conf
50 USE modi_read_pre_surfa_dat_conf
51 USE modi_read_prep_flake_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
84 CHARACTER(LEN=28) :: yfile
85 CHARACTER(LEN=6) :: yfiletype
86 CHARACTER(LEN=28) :: yfilepgd
87 CHARACTER(LEN=6) :: yfilepgdtype
88 CHARACTER(LEN=28) :: yfilepgdin
89 CHARACTER(LEN=6) :: yfilepgdintype
92 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'READ_FLAKE_DATE',0,zhook_handle)
110 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
111 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
118 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
119 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
122 hatmfile,hatmfiletype,yfilepgdin,yfilepgdintype,kluout,gunif)
124 IF (len_trim(yfiletype)/=0) &
126 hprogram,yfile,yfiletype,tptime,kluout)
133 IF (len_trim(yfile)==0 .AND. (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
134 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef))
THEN
136 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
137 tptime%TDATE%YEAR = kyear
138 tptime%TDATE%MONTH= kmonth
139 tptime%TDATE%DAY = kday
146 CALL
abor1_sfx(
'READ_FLAKE_DATE: DATE NOT SET')
153 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
154 IF (kyear /= tptime%TDATE%YEAR .OR. kmonth /= tptime%TDATE%MONTH .OR. kday /= tptime%TDATE%DAY .AND. ptime /= tptime%TIME)
THEN
155 WRITE(unit=kluout, fmt=*)
'WARNING in READ_FLAKE_DATE'
156 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC AND SURFACE DATES ARE NOT THE SAME'
158 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC DATE:'
159 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') kyear
160 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') kmonth
161 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') kday
162 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
163 WRITE(unit=kluout, fmt=*)
'SURFACE DATE:'
164 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') tptime%TDATE%YEAR
165 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') tptime%TDATE%MONTH
166 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') tptime%TDATE%DAY
167 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') tptime%TIME
169 WRITE(unit=kluout, fmt=*)
'SAME ATMOSPHERIC AND SURFACE DATES'
170 WRITE(unit=kluout, fmt=*)
'DATE in READ_FLAKE_DATE'
171 WRITE(unit=kluout, fmt=
'(" YEAR=",I4," MONTH=",I4," DAY=",I4)') &
173 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
176 IF (lhook) CALL dr_hook(
'READ_FLAKE_DATE',1,zhook_handle)
subroutine read_flake_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_flake_conf(HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)
subroutine read_pre_flake_dat_conf(HPROGRAM, KLUOUT, TPTIME)