10 hprogram, hatype, hname, htype, hfnam, hftyp, punif, pfield, opresent)
26 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
27 CHARACTER(LEN=3),
INTENT(IN) :: hatype
28 CHARACTER(LEN=*),
INTENT(IN) :: hname
29 CHARACTER(LEN=3),
INTENT(IN) :: htype
30 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(IN) :: hfnam
31 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(IN) :: hftyp
32 REAL,
DIMENSION(:),
INTENT(IN) :: punif
33 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pfield
34 LOGICAL,
INTENT(OUT) :: opresent
40 hprogram, hatype, hname, htype, hfnam, hftyp, punif, pfield_time, opresent)
57 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
58 CHARACTER(LEN=3),
INTENT(IN) :: hatype
59 CHARACTER(LEN=*),
INTENT(IN) :: hname
60 CHARACTER(LEN=3),
INTENT(IN) :: htype
61 CHARACTER(LEN=28),
DIMENSION(:,:),
INTENT(IN) :: hfnam
62 CHARACTER(LEN=6),
DIMENSION(:,:),
INTENT(IN) :: hftyp
63 REAL,
DIMENSION(:,:),
INTENT(IN) :: punif
64 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pfield_time
65 LOGICAL,
INTENT(OUT) :: opresent
77 hprogram, hatype, hname ,htype, hfnam, hftyp, punif, pfield, opresent)
121 USE modi_ini_var_from_data_0d
124 USE yomhook
,ONLY : lhook, dr_hook
125 USE parkind1
,ONLY : jprb
139 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
140 CHARACTER(LEN=3),
INTENT(IN) :: hatype
141 CHARACTER(LEN=*),
INTENT(IN) :: hname
142 CHARACTER(LEN=3),
INTENT(IN) :: htype
143 CHARACTER(LEN=28),
DIMENSION(:),
INTENT(IN) :: hfnam
144 CHARACTER(LEN=6),
DIMENSION(:),
INTENT(IN) :: hftyp
145 REAL,
DIMENSION(:),
INTENT(IN) :: punif
146 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pfield
147 LOGICAL,
INTENT(OUT) :: opresent
153 CHARACTER(LEN=40) :: yname
154 LOGICAL,
DIMENSION(SIZE(PFIELD,2)) :: lpresent
157 REAL(KIND=JPRB) :: zhook_handle
166 CALL dr_hook(
'MODI_INI_VAR_FROM_DATA:INI_VAR_FROM_DATA_1D',0,zhook_handle)
171 DO ji=1,
SIZE(pfield,2)
173 hprogram, hatype, hname, htype, hfnam(ji), &
174 hftyp(ji), punif(ji), pfield(:,ji), lpresent(ji))
177 IF (any(lpresent(:)))
THEN
181 IF (
SIZE(pfield,2)==nvegtype .AND. yname(1:7).NE.
'VEGTYPE')
THEN
184 DO ji=2,
SIZE(pfield,2)
185 IF (.NOT.lpresent(ji))
THEN
187 IF (lpresent(jj))
THEN
188 pfield(:,ji)=pfield(:,jj)
196 DO ji=1,
SIZE(pfield,2)
197 IF (lpresent(ji))
THEN
198 WHERE (dti%XPAR_VEGTYPE(:,ji).EQ.0.) pfield(:,ji)=0.0
204 ELSEIF (.NOT.all(lpresent))
THEN
205 CALL
abor1_sfx(
"INI_VAR_FROM_DATA_1D: MISSING INPUT DATA FOR "//hname)
210 CALL dr_hook(
'MODI_INI_VAR_FROM_DATA:INI_VAR_FROM_DATA_1D',1,zhook_handle)
218 hprogram, hatype, hname, htype, hfnam, hftyp, punif, pfield_time, opresent)
262 USE modi_ini_var_from_data_0d
265 USE yomhook
,ONLY : lhook, dr_hook
266 USE parkind1
,ONLY : jprb
282 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
283 CHARACTER(LEN=3),
INTENT(IN) :: hatype
284 CHARACTER(LEN=*),
INTENT(IN) :: hname
285 CHARACTER(LEN=3),
INTENT(IN) :: htype
286 CHARACTER(LEN=28),
DIMENSION(:,:),
INTENT(IN) :: hfnam
287 CHARACTER(LEN=6),
DIMENSION(:,:),
INTENT(IN) :: hftyp
288 REAL,
DIMENSION(:,:),
INTENT(IN) :: punif
289 REAL,
DIMENSION(:,:,:),
INTENT(OUT) :: pfield_time
290 LOGICAL,
INTENT(OUT) :: opresent
296 LOGICAL,
DIMENSION(SIZE(PFIELD_TIME,3)) :: lpresent
297 LOGICAL,
DIMENSION(SIZE(PFIELD_TIME,2)) :: lpresent_time
302 REAL(KIND=JPRB) :: zhook_handle
311 CALL dr_hook(
'MODI_INI_VAR_FROM_DATA:INI_VAR_FROM_DATA_2D',0,zhook_handle)
314 lpresent_time(:)=.false.
317 DO jtime=1,
SIZE(pfield_time,2)
319 DO ji=1,
SIZE(pfield_time,3)
322 hprogram, hatype, hname, htype, hfnam(ji,jtime), &
323 hftyp(ji,jtime), punif(ji,jtime), pfield_time(:,jtime,ji),&
328 IF (any(lpresent(:)))
THEN
330 lpresent_time(jtime)=.true.
334 IF (
SIZE(pfield_time,3)==nvegtype)
THEN
336 DO ji=2,
SIZE(pfield_time,3)
337 IF (.NOT.lpresent(ji))
THEN
339 IF (lpresent(jj))
THEN
340 pfield_time(:,jtime,ji)=pfield_time(:,jtime,jj)
347 DO ji=1,
SIZE(pfield_time,3)
348 IF (lpresent(ji))
THEN
349 WHERE (dti%XPAR_VEGTYPE(:,ji).EQ.0.) pfield_time(:,jtime,ji)=0.0
351 pfield_time(:,jtime,ji)=0.
355 ELSEIF (.NOT.all(lpresent))
THEN
356 CALL
abor1_sfx(
"INI_VAR_FROM_DATA_1D: MISSING INPUT DATA FOR "//hname)
364 IF (
SIZE(pfield_time,2)==36)
THEN
367 IF (any(lpresent_time(:)) .AND. .NOT.all(lpresent_time(:))) &
368 CALL
abor1_sfx(
"INI_VAR_FROM_DATA_2D: MISSING INPUT DATA FOR "//hname)
374 CALL dr_hook(
'MODI_INI_VAR_FROM_DATA:INI_VAR_FROM_DATA_2D',1,zhook_handle)
subroutine ini_var_from_data_1d(DTCO, DGU, UG, U, USS, DTI, HPROGRAM, HATYPE, HNAME, HTYPE, HFNAM, HFTYP, PUNIF, PFIELD, OPRESENT)
subroutine ini_var_from_data_2d(DTCO, DGU, UG, U, USS, DTI, HPROGRAM, HATYPE, HNAME, HTYPE, HFNAM, HFTYP, PUNIF, PFIELD_TIME, OPRESENT)
subroutine abor1_sfx(YTEXT)
subroutine put_in_time(HNAME, HTYPE, NTIME1, NTIME2, PDATA)
subroutine ini_var_from_data_0d(DTCO, DGU, UG, U, USS, HPROGRAM, HATYPE, HNAME, HTYPE, HFNAM, HFTYP, PUNIF, PFIELD, OPRESENT)