7 opwg, oprecip, opwebb, kz0, kgrvwaves,&
8 oprogsst, ktime_coupling,pocean_tstep,&
9 pichce, hinterpol_sst, hinterpol_sss )
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
58 REAL,
INTENT(OUT) :: ptstep
59 REAL,
INTENT(OUT) :: pout_tstep
60 CHARACTER(LEN=6),
INTENT(OUT) :: hsea_flux
61 CHARACTER(LEN=4),
INTENT(OUT) :: hsea_alb
62 LOGICAL,
INTENT(OUT) :: opwg
63 LOGICAL,
INTENT(OUT) :: oprecip
64 LOGICAL,
INTENT(OUT) :: opwebb
65 INTEGER,
INTENT(OUT) :: kz0
66 INTEGER,
INTENT(OUT) :: kgrvwaves
67 LOGICAL,
INTENT(OUT) :: oprogsst
68 INTEGER,
INTENT(OUT) :: ktime_coupling
69 REAL,
INTENT(OUT) :: pichce
70 REAL,
INTENT(OUT) :: pocean_tstep
71 CHARACTER(LEN=6),
INTENT(OUT) :: hinterpol_sst
72 CHARACTER(LEN=6),
INTENT(OUT) :: hinterpol_sss
73 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'DEFAULT_SEAFLUX',0,zhook_handle)
101 hinterpol_sst =
"NONE"
102 hinterpol_sss =
"NONE"
104 IF (lhook) CALL dr_hook(
'DEFAULT_SEAFLUX',1,zhook_handle)
subroutine default_seaflux(PTSTEP, POUT_TSTEP, HSEA_ALB, HSEA_FLUX, OPWG, OPRECIP, OPWEBB, KZ0, KGRVWAVES, OPROGSST, KTIME_COUPLING, POCEAN_TSTEP, PICHCE, HINTERPOL_SST, HINTERPOL_SSS)