7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
58 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
59 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
60 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
61 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'PREP_SEA',0,zhook_handle)
69 IF (u%CSEA==
'SEAFLX')
THEN
71 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
73 IF (lhook) CALL dr_hook(
'PREP_SEA',1,zhook_handle)
subroutine prep_seaflux(DTCO, UG, U, SM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_sea(DTCO, UG, U, SM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)