Changeset 5081 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

Timestamp:

2015-02-13T10:51:27+01:00 (9 years ago)

Author:

smasson

Message:

dev_r4765_CNRS_agrif: final version of tke/agrif?

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90 (modified) (2 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

@@ -25 +25 @@
    REAL(wp), PUBLIC ::   rn_sponge_dyn = 2800.     !: sponge coeff. for dynamics
    LOGICAL , PUBLIC ::   ln_chk_bathy  = .FALSE.   !: check of parent bathymetry 
-   LOGICAL , PUBLIC ::   ln_agrif_tke  = .FALSE.   !: interp/extrap for TKE
 
    !                                              !!! OLD namelist names
@@ -66 +65 @@
    INTEGER :: e3t_id, e1u_id, e2v_id, sshn_id
    INTEGER :: scales_t_id
-   INTEGER :: avt_id, avm_id, avmu_id, avmv_id
+# if defined key_zdftke
+   INTEGER :: avt_id, avm_id, en_id
+# endif  
    INTEGER :: umsk_id, vmsk_id
    INTEGER :: kindic_agr