7 hprogram,hsubroutine,hfilename,hncvarname)
37 USE modi_pt_by_pt_treatment
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
53 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
54 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
55 CHARACTER(LEN=28),
INTENT(IN) :: hfilename
56 CHARACTER(LEN=28),
INTENT(IN) :: hncvarname
67 REAL,
DIMENSION(:),
ALLOCATABLE :: zvalu
68 REAL,
DIMENSION(:),
ALLOCATABLE :: zlong
69 REAL,
DIMENSION(:),
ALLOCATABLE :: zlati
74 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'READ_NETCDF',0,zhook_handle)
85 ALLOCATE(zvalu(jdimension))
86 ALLOCATE(zlati(jdimension))
87 ALLOCATE(zlong(jdimension))
98 DO jloop=1,
SIZE(zvalu)
104 zlon=zlon+nint((180.-zlon)/360.)*360.
106 jlat = 1 + int( ( zlat + 90. ) * 2. )
108 jlon = 1 + int( ( zlon ) * 2. )
111 IF (.NOT. llatlonmask(jlon,jlat)) cycle
119 iluout, (/ zlat /) , (/ zlon /) , (/ zvalue /) , &
124 IF (
ALLOCATED(zvalu ))
DEALLOCATE(zvalu )
125 IF (
ALLOCATED(zlong ))
DEALLOCATE(zlong )
126 IF (
ALLOCATED(zlati ))
DEALLOCATE(zlati )
127 IF (lhook) CALL dr_hook(
'READ_NETCDF',1,zhook_handle)
subroutine read_netcdf(USS, HPROGRAM, HSUBROUTINE, HFILENAME, HNCVARNAME)
subroutine pt_by_pt_treatment(USS, KLUOUT, PLAT, PLON, PVALUE, HSUBROUTINE, KNBLINES, PNODATA)
subroutine read_dim_cdf(HFILENAME, HNCVARNAME, KDIM)
subroutine read_latlonval_cdf(HFILENAME, HNCVARNAME, PLON, PLAT, PVAL)
subroutine get_luout(HPROGRAM, KLUOUT)