60 USE modi_writesurf_pgd_seaf_par_n
63 USE yomhook
,ONLY : lhook, dr_hook
64 USE parkind1
,ONLY : jprb
80 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
86 CHARACTER(LEN=12) :: yrecfm
87 CHARACTER(LEN=100):: ycomment
88 REAL(KIND=JPRB) :: zhook_handle
99 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_SEAFLUX_N',0,zhook_handle)
101 ycomment=
'(LOGICAL LIST)'
103 hprogram,yrecfm,s%LCOVER(:),iresp,hcomment=ycomment,hdir=
'-')
105 ycomment=
'COVER FIELDS'
107 hprogram,
'COVER',s%XCOVER(:,:),s%LCOVER,iresp,hcomment=ycomment)
115 hprogram,yrecfm,s%XZS(:),iresp,hcomment=ycomment)
122 hprogram,yrecfm,s%XSEABATHY(:),iresp,hcomment=ycomment)
127 hprogram,sg%CGRID,sg%XGRID_PAR,sg%XLAT,sg%XLON,sg%XMESH_SIZE,iresp)
134 hprogram,yrecfm,dts%LSST_DATA,iresp,hcomment=ycomment)
139 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_SEAFLUX_N',1,zhook_handle)
subroutine write_grid(DGU, U, HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR, HDIR)
subroutine writesurf_pgd_seaf_par_n(DGU, U, DTS, HPROGRAM)
subroutine writesurf_pgd_seaflux_n(DGU, U, DTS, SG, S, HPROGRAM)
subroutine, public write_surf_cov(DGU, U, HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)