Changeset 10399 for NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/ice.F90

Timestamp:

2018-12-17T12:25:09+01:00 (5 years ago)

Author:

clem

Message:

improve ice advection (toward an acceptable solution)

File:

• NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/ice.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r9947_SI3_advection/src/ICE/ice.F90

@@ -145 +145 @@
    INTEGER , PUBLIC ::   nn_nevp          !: number of iterations for subcycling
    REAL(wp), PUBLIC ::   rn_relast        !: ratio => telast/rdt_ice (1/3 or 1/9 depending on nb of subcycling nevp) 
+   !
+   !                                     !!** ice-advection namelist (namdyn_adv) **
+   LOGICAL , PUBLIC ::   ln_adv_Pra       !: Prather        advection scheme
+   LOGICAL , PUBLIC ::   ln_adv_UMx       !: Ultimate-Macho advection scheme
    !
    !                                     !!** ice-surface forcing namelist (namforcing) **