Changeset 9490 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

Timestamp:

2018-04-23T10:44:07+02:00 (6 years ago)

Author:

gm

Message:

#2075 - dev_merge_2017: scale-aware setting of lateral viscous and diffusive coefficient

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

@@ -73 +73 @@
 
    USE trc_oce
-
-!!gm : I don't understand this as ldftra (where everything is defined) is used by TRC in all cases (ON/OFF-line)
-!!gm   so the following lines should be removed....   logical should be the one of TRC namelist
-!!gm   In case off coarsening....  the ( ahtu, ahtv, aeiu, aeiv) arrays are needed that's all.
-   !* lateral diffusivity (tracers) *
-   USE ldftra , ONLY :  rn_aht_0     =>   rn_aht_0     !:   laplacian lateral eddy diffusivity [m2/s]
-   USE ldftra , ONLY :  rn_bht_0     =>   rn_bht_0     !: bilaplacian lateral eddy diffusivity [m4/s]
-   USE ldftra , ONLY :  ahtu         =>   ahtu         !: lateral diffusivity coef. at u-points 
-   USE ldftra , ONLY :  ahtv         =>   ahtv         !: lateral diffusivity coef. at v-points 
-   USE ldftra , ONLY :  rn_aeiv_0    =>   rn_aeiv_0    !: eddy induced velocity coefficient (m2/s) 
-   USE ldftra , ONLY :  aeiu         =>   aeiu         !: eddy induced velocity coef. at u-points (m2/s)   
-   USE ldftra , ONLY :  aeiv         =>   aeiv         !: eddy induced velocity coef. at v-points (m2/s) 
-   USE ldftra , ONLY :  ln_ldfeiv    =>   ln_ldfeiv    !: eddy induced velocity flag
      
-!!gm this should be : ln_trcldf_triad (TRC namelist)
-   USE ldfslp , ONLY :  ln_traldf_triad => ln_traldf_triad   !: triad scheme (Griffies et al.)
-
+!!gm  this can be removed if :
+!!gm    in trcadv.F90 and trcsub.F90  we add a USE ldfslp
    !* direction of lateral diffusion *
    USE ldfslp , ONLY :   l_ldfslp  =>  l_ldfslp       !: slopes flag
@@ -96 +82 @@
    USE ldfslp , ONLY :   wslpi      =>   wslpi        !: i-slope at w-point
    USE ldfslp , ONLY :   wslpj      =>   wslpj        !: j-slope at w-point
-!!gm end 
+   USE ldfslp , ONLY :  ln_traldf_triad => ln_traldf_triad   !: use of triad scheme
+!!gm end
 
    !* vertical diffusion *