57 USE modi_read_nam_pgd_dummy
60 USE yomhook
,ONLY : lhook, dr_hook
61 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
88 CHARACTER(LEN=20),
DIMENSION(1000) :: ydummy_name
89 CHARACTER(LEN=3),
DIMENSION(1000) :: ydummy_area
90 CHARACTER(LEN=3),
DIMENSION(1000) :: cdummy_atype
92 CHARACTER(LEN=28),
DIMENSION(1000) :: cdummy_file
93 CHARACTER(LEN=6),
DIMENSION(1000) :: cdummy_filetype
94 REAL(KIND=JPRB) :: zhook_handle
101 IF (lhook) CALL dr_hook(
'PGD_DUMMY',0,zhook_handle)
110 cdummy_atype, cdummy_file, cdummy_filetype )
112 duu%NDUMMY_NBR = idummy_nbr
113 ALLOCATE(duu%CDUMMY_NAME(duu%NDUMMY_NBR))
114 ALLOCATE(duu%CDUMMY_AREA(duu%NDUMMY_NBR))
115 duu%CDUMMY_NAME(:) = ydummy_name(1:duu%NDUMMY_NBR)
116 duu%CDUMMY_AREA(:) = ydummy_area(1:duu%NDUMMY_NBR)
123 ALLOCATE(duu%XDUMMY_FIELDS(nl,duu%NDUMMY_NBR))
130 DO jnbr=1,duu%NDUMMY_NBR
131 catype = cdummy_atype(jnbr)
133 hprogram,duu%CDUMMY_NAME(jnbr),duu%CDUMMY_AREA(jnbr),cdummy_file(jnbr), &
134 cdummy_filetype(jnbr),xundef,duu%XDUMMY_FIELDS(:,jnbr) )
137 IF (lhook) CALL dr_hook(
'PGD_DUMMY',1,zhook_handle)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine read_nam_pgd_dummy(HPROGRAM, KDUMMY_NBR, HDUMMY_NAME, HDUMMY_AREA, HDUMMY_ATYPE, HDUMMY_FILE, HDUMMY_FILETYPE)
subroutine pgd_dummy(DTCO, DUU, UG, U, USS, HPROGRAM)
subroutine get_luout(HPROGRAM, KLUOUT)