39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
46 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
47 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
48 CHARACTER(LEN=28),
INTENT(IN) :: hfile
49 INTEGER,
INTENT(IN) :: kluout
50 REAL,
DIMENSION(:,:),
POINTER :: pfield
56 REAL,
DIMENSION(:),
POINTER :: zfield
57 CHARACTER(LEN=28) :: yncvar
58 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_NETCDF',0,zhook_handle)
65 cingrid_type=
'LATLON '
80 ALLOCATE(pfield(max(1,nilength),1))
81 pfield(:,1) = zfield(:)
88 CASE(
'SST ',
'SSS ',
'SIC ')
89 IF ( hsurf ==
'SST ')
THEN
91 ELSE IF ( hsurf ==
'SSS ')
THEN
93 ELSE IF ( hsurf ==
'SIC ')
THEN
98 ALLOCATE(pfield(max(1,nilength),1))
99 pfield(:,1) = zfield(:)
103 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_NETCDF',1,zhook_handle)
subroutine read_netcdf_sst(HFILENAME, HNCVARNAME, PFIELD)
subroutine prep_netcdf_grid(HFILENAME, HNCVARNAME)
subroutine read_netcdf_zs_sea(HFILENAME, HNCVARNAME, PFIELD)
subroutine prep_seaflux_netcdf(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD)