6 SUBROUTINE pgd_sea (DTCO, DTS, SG, S, UG, U, USS, &
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'PGD_SEA',0,zhook_handle)
85 IF (u%CSEA==
'NONE ')
THEN
86 IF (lhook) CALL dr_hook(
'PGD_SEA',1,zhook_handle)
88 ELSE IF (u%CSEA==
'FLUX ')
THEN
89 IF (lhook) CALL dr_hook(
'PGD_SEA',1,zhook_handle)
91 ELSE IF (u%CSEA==
'SEAFLX')
THEN
95 IF (lhook) CALL dr_hook(
'PGD_SEA',1,zhook_handle)
subroutine pgd_seaflux(DTCO, DTS, SG, S, UG, U, USS, HPROGRAM)
subroutine pgd_sea(DTCO, DTS, SG, S, UG, U, USS, HPROGRAM)