Changeset 9526 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

Timestamp:

2018-04-30T12:22:35+02:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: rename ln_...NONE as ln_...OFF (CONFIG, OPA_SRC, TOP_SRC) ; agrif zoom now only in AGRIF_NORDIC configuration

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90 (modified) (5 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90

@@ -34 +34 @@
    !
    !                                      !!: ** lateral mixing namelist (nam_trcldf) **
-   LOGICAL , PUBLIC ::   ln_trcldf_NONE    !: No operator (no explicit lateral diffusion)
+   LOGICAL , PUBLIC ::   ln_trcldf_OFF     !: No operator (no explicit lateral diffusion)
    LOGICAL , PUBLIC ::   ln_trcldf_tra     !: use active tracer operator
    REAL(wp), PUBLIC ::      rn_ldf_multi      !: multiplier of T-S eddy diffusivity to obtain the passive tracer one
@@ -67 +67 @@
       !!----------------------------------------------------------------------
       !
-      IF( ln_trcldf_NONE )   RETURN       ! not lateral diffusion applied on passive tracers
+      IF( ln_trcldf_OFF )   RETURN        ! not lateral diffusion applied on passive tracers
       !
       IF( ln_timing )   CALL timing_start('trc_ldf')
@@ -127 +127 @@
       !! ** Purpose :   Define the operator for the lateral diffusion
       !!
-      !! ** Method  : - ln_trcldf_tra =T : use nldf_tra set in ldftra module 
+      !! ** Method  : - ln_trcldf_tra=T : use nldf_tra set in ldftra module 
       !!              to defined the passive tracer lateral diffusive operator
-      !!              - ln_trcldf_NONE=T : no explicit diffusion used
+      !!              - ln_trcldf_OFF=T : no explicit diffusion used
       !!----------------------------------------------------------------------
       INTEGER ::   ios, ioptio   ! local integers
       !!
-      NAMELIST/namtrc_ldf/ ln_trcldf_NONE, ln_trcldf_tra,   &   ! operator & direction
+      NAMELIST/namtrc_ldf/ ln_trcldf_OFF , ln_trcldf_tra,   &   ! operator & direction
          &                 rn_ldf_multi  , rn_fact_lap          ! coefficient
       !!----------------------------------------------------------------------
@@ -154 +154 @@
       IF(lwp) THEN                     ! Namelist print
          WRITE(numout,*) '   Namelist namtrc_ldf : set lateral mixing parameters (type, direction, coefficients)'
-         WRITE(numout,*) '      no explicit diffusion                 ln_trcldf_NONE  = ', ln_trcldf_NONE
+         WRITE(numout,*) '      no explicit diffusion                 ln_trcldf_OFF   = ', ln_trcldf_OFF
          WRITE(numout,*) '      use active tracer operator            ln_trcldf_tra   = ', ln_trcldf_tra
          WRITE(numout,*) '      diffusivity coefficient :'
-         WRITE(numout,*) '         multiplier of TRA coef. for TRC          rn_ldf_multi = ', rn_ldf_multi
-         WRITE(numout,*) '         enhanced zonal Eq. laplacian coef.       rn_fact_lap  = ', rn_fact_lap
+         WRITE(numout,*) '         multiplier of TRA coef. for TRC       rn_ldf_multi = ', rn_ldf_multi
+         WRITE(numout,*) '         enhanced zonal Eq. laplacian coef.    rn_fact_lap  = ', rn_fact_lap
 
       ENDIF
@@ -165 +165 @@
       nldf_trc = np_ERROR
       ioptio   = 0
-      IF( ln_trcldf_NONE ) THEN   ;   nldf_trc = np_no_ldf   ;   ioptio = ioptio + 1   ;   ENDIF
+      IF( ln_trcldf_OFF  ) THEN   ;   nldf_trc = np_no_ldf   ;   ioptio = ioptio + 1   ;   ENDIF
       IF( ln_trcldf_tra  ) THEN   ;   nldf_trc = nldf_tra    ;   ioptio = ioptio + 1   ;   ENDIF
       IF( ioptio /=  1   )   CALL ctl_stop( 'trc_ldf_ini: use ONE of the 2 operator options (NONE/tra)' )