7 kluout,hncvarname,pfield)
31 USE modd_prep, ONLY : cinterp_type, cingrid_type
37 USE yomhook
,ONLY : lhook, dr_hook
38 USE parkind1
,ONLY : jprb
44 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
45 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
46 CHARACTER(LEN=28),
INTENT(IN) :: hfile
47 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
48 INTEGER,
INTENT(IN) :: kluout
49 CHARACTER(LEN=28),
INTENT(IN),
OPTIONAL :: hncvarname
50 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
53 REAL,
DIMENSION(:),
ALLOCATABLE :: zlati
54 REAL,
DIMENSION(:),
ALLOCATABLE :: zlong
55 REAL,
DIMENSION(:),
ALLOCATABLE :: zdepth
56 REAL,
DIMENSION(:,:,:),
ALLOCATABLE :: zfield
57 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'PREP_OCEAN_NETCDF',0,zhook_handle)
69 ALLOCATE(zlati(nilength) )
70 ALLOCATE(zlong(nilength) )
71 ALLOCATE(zdepth(nindepth))
73 ALLOCATE(zfield(nilength,nindepth,1))
78 ALLOCATE(pfield(1:
SIZE(zfield,1),1:
SIZE(zfield,2),1:
SIZE(zfield,3)))
89 IF (
ALLOCATED(zlong ))
DEALLOCATE(zlong )
90 IF (
ALLOCATED(zlati ))
DEALLOCATE(zlati )
91 IF (
ALLOCATED(zdepth ))
DEALLOCATE(zdepth )
92 IF (
ALLOCATED(zfield ))
DEALLOCATE(zfield )
93 IF (lhook) CALL dr_hook(
'PREP_OCEAN_NETCDF',1,zhook_handle)
subroutine prep_ocean_netcdf(HPROGRAM, HSURF, HFILE, HFILETYPE, KLUOUT, HNCVARNAME, PFIELD)
subroutine read_latlondepval_cdf(HFILENAME, HNCVARNAME, PLON, PLAT, PDEP, PVAL)
subroutine prep_netcdf_grid(HFILENAME, HNCVARNAME)