43 USE modi_init_io_surf_n
45 USE modi_end_io_surf_n
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=12) :: yrecfm
68 CHARACTER(LEN=100):: ycomment
69 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEB_OCEAN_N',0,zhook_handle)
77 hprogram,
'SEA ',
'SEAFLX',
'WRITE')
84 ycomment=
'X_Y_'//yrecfm
87 hprogram,yrecfm,dgo%XTOCMOY(:),iresp,hcomment=ycomment)
90 ycomment=
'X_Y_'//yrecfm
93 hprogram,yrecfm,dgo%XSOCMOY(:),iresp,hcomment=ycomment)
96 ycomment=
'X_Y_'//yrecfm
99 hprogram,yrecfm,dgo%XUOCMOY(:),iresp,hcomment=ycomment)
102 ycomment=
'X_Y_'//yrecfm
105 hprogram,yrecfm,dgo%XVOCMOY(:),iresp,hcomment=ycomment)
108 ycomment=
'X_Y_'//yrecfm
111 hprogram,yrecfm,dgo%XDOCMOY(:),iresp,hcomment=ycomment)
118 IF (lhook) CALL dr_hook(
'WRITE_DIAG_SEB_OCEAN_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine end_io_surf_n(HPROGRAM)
subroutine write_diag_seb_ocean_n(DTCO, DGU, U, DGO, HPROGRAM)