58 USE modi_read_nam_pgd_seabathy
59 USE modi_pgd_bathyfield
61 USE modi_get_surf_size_n
63 USE modi_pack_pgd_seaflux
64 USE modi_pgd_seaflux_par
67 USE yomhook
,ONLY : lhook, dr_hook
68 USE parkind1
,ONLY : jprb
84 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
90 REAL,
DIMENSION(NL) :: zseabathy
95 CHARACTER(LEN=28) :: yseabathy
96 CHARACTER(LEN=6) :: yseabathyfiletype
97 CHARACTER(LEN=28) :: yncvarname
99 REAL :: xunif_seabathy
100 REAL(KIND=JPRB) :: zhook_handle
113 IF (lhook) CALL dr_hook(
'PGD_SEAFLUX',0,zhook_handle)
128 hprogram,
'bathymetry',
'SEA',yseabathy,yseabathyfiletype,&
129 yncvarname,xunif_seabathy,zseabathy(:))
138 ALLOCATE(s%LCOVER (jpcover))
139 ALLOCATE(s%XZS (sg%NDIM))
140 ALLOCATE(sg%XLAT (sg%NDIM))
141 ALLOCATE(sg%XLON (sg%NDIM))
142 ALLOCATE(sg%XMESH_SIZE (sg%NDIM))
146 sg%CGRID, sg%XGRID_PAR, &
147 s%LCOVER, s%XCOVER, s%XZS, &
148 sg%XLAT, sg%XLON, sg%XMESH_SIZE )
154 hprogram,dts%LSST_DATA)
155 IF (lhook) CALL dr_hook(
'PGD_SEAFLUX',1,zhook_handle)
subroutine pgd_seaflux_par(DTCO, DTS, SG, UG, U, USS, HPROGRAM, OSST_DATA)
subroutine get_surf_size_n(DTCO, U, HTYPE, KL)
subroutine pack_pgd(DTCO, U, HPROGRAM, HSURF, HGRID, PGRID_PAR, OCOVER, PCOVER, PZS, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine pack_pgd_seaflux(DTCO, SG, S, U, HPROGRAM, PSEABATHY)
subroutine pgd_seaflux(DTCO, DTS, SG, S, UG, U, USS, HPROGRAM)
subroutine pgd_bathyfield(UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, HNCVARNAME, PUNIF, PFIELD)
subroutine read_nam_pgd_seabathy(HPROGRAM, HSEABATHY, HSEABATHYFILETYPE, HNCVARNAME, PUNIF_SEABATHY)