7 hprogram,hinifile,hinifiletype,hfile,hfiletype)
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
57 USE modi_zoom_pgd_seaflux
72 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
73 CHARACTER(LEN=28),
INTENT(IN) :: hinifile
74 CHARACTER(LEN=6),
INTENT(IN) :: hinifiletype
75 CHARACTER(LEN=28),
INTENT(IN) :: hfile
76 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
77 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'ZOOM_PGD_SEA',0,zhook_handle)
85 IF (u%CSEA==
'NONE ')
THEN
86 IF (lhook) CALL dr_hook(
'ZOOM_PGD_SEA',1,zhook_handle)
88 ELSE IF (u%CSEA==
'FLUX ')
THEN
89 IF (lhook) CALL dr_hook(
'ZOOM_PGD_SEA',1,zhook_handle)
91 ELSE IF (u%CSEA==
'SEAFLX')
THEN
93 hprogram,hinifile,hinifiletype,hfile,hfiletype)
95 IF (lhook) CALL dr_hook(
'ZOOM_PGD_SEA',1,zhook_handle)
subroutine zoom_pgd_seaflux(DTCO, DTS, SG, S, UG, U, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE)
subroutine zoom_pgd_sea(DTCO, DTS, SG, S, UG, U, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE)