49 USE modi_write_pgd_seaflux_n
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
69 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
70 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'WRITE_PGD_SEA_N',0,zhook_handle)
82 IF (u%CSEA==
'SEAFLX')
THEN
86 IF (lhook) CALL dr_hook(
'WRITE_PGD_SEA_N',1,zhook_handle)
subroutine write_pgd_sea_n(DTCO, DGU, U, DTS, SG, S, HPROGRAM)
subroutine write_pgd_seaflux_n(DTCO, DGU, U, DTS, SG, S, HPROGRAM)