18 USE modi_default_seaflux
19 USE modi_default_ch_dep
20 USE modi_default_diag_seaflux
21 USE modi_read_default_seaflux_n
22 USE modi_default_seaice
23 USE modi_read_seaflux_conf_n
25 USE modi_read_nam_prep_seaflux_n
28 USE yomhook
,ONLY : lhook, dr_hook
29 USE parkind1
,ONLY : jprb
36 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
37 CHARACTER(LEN=3),
INTENT(IN) :: hinit
38 REAL(KIND=JPRB) :: zhook_handle
42 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_SEAFLUX_N',0,zhook_handle)
45 lprecip,lpwebb,nz0,ngrvwaves,lprogsst, &
46 ntime_coupling,xocean_tstep,xichce,cinterpol_sst,&
49 xfreezing_sst,xseaice_tstep, xsic_efolding_time, &
50 xsit_efolding_time, xcd_ice_cst, xsi_flx_drv )
55 ldiag_ocean,ldiag_seaice,lsurf_budgetc,lreset_budgetc,xdiag_tstep)
65 IF (lhook) CALL dr_hook(
'READ_NAMELISTS_SEAFLUX_N',1,zhook_handle)
subroutine read_namelists_seaflux_n(SM, HPROGRAM, HINIT)
subroutine read_default_seaflux_n(CHS, DGO, DGS, DGSI, O, S, HPROGRAM)
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)
subroutine read_nam_prep_seaflux_n(HPROGRAM)
subroutine read_seaflux_conf_n(CHS, DGO, DGS, DGSI, O, S, HPROGRAM)
subroutine default_seaice(HPROGRAM, HINTERPOL_SIC, HINTERPOL_SIT, PFREEZING_SST, PSEAICE_TSTEP, PSIC_EFOLDING_TIME, PSIT_EFOLDING_TIME, PCD_ICE, PSI_FLX_DRV)
subroutine default_ch_dep(HCH_DRY_DEP)
subroutine default_diag_seaflux(K2M, OSURF_BUDGET, O2M_MIN_ZS, ORAD_BUDGET, OCOEF, OSURF_VARS, ODIAG_OCEAN, ODIAG_SEAICE, OSURF_BUDGETC, ORESET_BUDGETC, PDIAG_TSTEP)