36 USE yomhook
,ONLY : lhook, dr_hook
43 CHARACTER (LEN=28) :: yfilename
44 CHARACTER (LEN=28) :: yncvarname
50 REAL(KIND=JPRB) :: zhook_handle
54 IF (lhook) CALL dr_hook(
'READ_Z1D_NETCDF',0,zhook_handle)
60 IF (ctype_seaflx==
"NETCDF")
THEN
61 yfilename=trim(cfile_seaflx)
65 ALLOCATE(xzhoc(0:jdimension))
70 CALL
read_z1d_cdf(yfilename,yncvarname,xzhoc(1:jdimension))
71 IF (xzhoc(2)>0) xzhoc(:)=-xzhoc(:)
78 WRITE(*,*)
'ERROR IN READ_Z1D_NETCF: ', yfilename,
' HAS NOT A NETCDF TYPE'
79 WRITE(*,*)
'CHECK CTYPE_SEAFLX IN NAM_PREP_SEAFLUX'
83 IF (lhook) CALL dr_hook(
'READ_Z1D_NETCDF',1,zhook_handle)
subroutine read_z1d_netcdf
subroutine read_dim_cdf(HFILENAME, HNCVARNAME, KDIM)
subroutine read_z1d_cdf(HFILENAME, HNCVARNAME, PVAL)