7 hprogram,hinit,kluout,hatmfile,hatmfiletype,&
8 kyear,kmonth,kday,ptime,tptime )
49 USE modi_read_pre_watf_dat_conf
50 USE modi_read_pre_surfa_dat_conf
51 USE modi_read_prep_watflux_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
80 CHARACTER(LEN=28) :: yfile
81 CHARACTER(LEN=6) :: yfiletype
82 CHARACTER(LEN=28) :: yfilepgd
83 CHARACTER(LEN=6) :: yfilepgdtype
84 CHARACTER(LEN=28) :: yfilepgdin
85 CHARACTER(LEN=6) :: yfilepgdintype
88 REAL(KIND=JPRB) :: zhook_handle
92 IF (lhook) CALL dr_hook(
'READ_WATFLUX_DATE',0,zhook_handle)
106 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
107 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
114 IF (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
115 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef)
THEN
118 hatmfile,hatmfiletype,yfilepgdin,yfilepgdintype,kluout,gunif)
120 IF (len_trim(yfiletype)/=0) &
122 hprogram,yfile,yfiletype,tptime,kluout)
129 IF (len_trim(yfile)==0 .AND. (tptime%TDATE%YEAR==nundef.OR.tptime%TDATE%MONTH==nundef &
130 .OR.tptime%TDATE%DAY==nundef.OR.tptime%TIME==xundef))
THEN
132 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
133 tptime%TDATE%YEAR = kyear
134 tptime%TDATE%MONTH= kmonth
135 tptime%TDATE%DAY = kday
142 CALL
abor1_sfx(
'READ_WATFLUX_DATE: DATE NOT SET')
149 IF (kyear /= nundef .AND. kmonth /= nundef .AND. kday /= nundef .AND. ptime /= xundef)
THEN
150 IF (kyear /= tptime%TDATE%YEAR .OR. kmonth /= tptime%TDATE%MONTH .OR. kday /= tptime%TDATE%DAY .AND. ptime /= tptime%TIME)
THEN
151 WRITE(unit=kluout, fmt=*)
'WARNING in READ_WATFLUX_DATE'
152 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC AND SURFACE DATES ARE NOT THE SAME'
154 WRITE(unit=kluout, fmt=*)
'ATMOSPHERIC DATE:'
155 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') kyear
156 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') kmonth
157 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') kday
158 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
159 WRITE(unit=kluout, fmt=*)
'SURFACE DATE:'
160 WRITE(unit=kluout, fmt=
'(" YEAR=",I4)') tptime%TDATE%YEAR
161 WRITE(unit=kluout, fmt=
'(" MONTH=",I4)') tptime%TDATE%MONTH
162 WRITE(unit=kluout, fmt=
'(" DAY=",I4)') tptime%TDATE%DAY
163 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') tptime%TIME
165 WRITE(unit=kluout, fmt=*)
'SAME ATMOSPHERIC AND SURFACE DATES'
166 WRITE(unit=kluout, fmt=*)
'DATE in READ_WATFLUX_DATE'
167 WRITE(unit=kluout, fmt=
'(" YEAR=",I4," MONTH=",I4," DAY=",I4)') &
169 WRITE(unit=kluout, fmt=
'(" TIME=",E13.6)') ptime
172 IF (lhook) CALL dr_hook(
'READ_WATFLUX_DATE',1,zhook_handle)
subroutine read_prep_watflux_conf(HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)
subroutine read_watflux_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_pre_watf_dat_conf(HPROGRAM, KLUOUT, TPTIME)