7 hprogram,hsurf,kluout,pfield)
42 USE modd_pgd_grid, ONLY : nl,llatlonmask,cgrid,xgrid_par,ngrid_par
47 USE modi_get_latlonmask_n
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
53 USE modi_get_type_dim_n
65 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
66 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
67 INTEGER,
INTENT(IN) :: kluout
68 REAL,
POINTER,
DIMENSION(:,:) :: pfield
74 REAL,
ALLOCATABLE,
DIMENSION(:) :: zfield
75 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'PREP_FLAKE_ASCLLV',0,zhook_handle)
97 llatlonmask,cgrid,xgrid_par,ngrid_par)
108 hprogram,
'TS_WATER: temperature',
'WAT',cfile_flake, &
109 ctype,xundef,zfield(:))
111 ALLOCATE(pfield(il,1))
112 pfield(:,1) = zfield(:)
121 IF (lhook) CALL dr_hook(
'PREP_FLAKE_ASCLLV',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine get_latlonmask_n(UG, OLATLONMASK, HGRID, PGRID_PAR, KGRID_PAR)
subroutine prep_flake_ascllv(DTCO, UG, U, USS, HPROGRAM, HSURF, KLUOUT, PFIELD)