Changeset 5774 for branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2015-10-02T11:39:50+02:00 (9 years ago)

Author:

cetlod

Message:

LDF-ADV, step II.2: phasing the improvements/simplifications of advective tracer trend: minor bug corrections

File:

• branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (1 diff)

branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -204 +204 @@
       !
 
-      ioptio = 0                      ! Parameter control
-      IF( ln_trcadv_cen                      )   nadv = np_CEN
-      IF( ln_trcadv_fct                      )   nadv = np_FCT
-      IF( ln_trcadv_fct .AND. nn_fct_zts > 0 )   nadv = np_FCT_zts
-      IF( ln_trcadv_mus                      )   nadv = np_MUS
-      IF( ln_trcadv_ubs                      )   nadv = np_UBS
-      IF( ln_trcadv_qck                      )   nadv = np_QCK
+      ioptio = 0                       !==  Parameter control  ==!
+      IF( ln_trcadv_cen )   ioptio = ioptio + 1
+      IF( ln_trcadv_fct )   ioptio = ioptio + 1
+      IF( ln_trcadv_mus )   ioptio = ioptio + 1
+      IF( ln_trcadv_ubs )   ioptio = ioptio + 1
+      IF( ln_trcadv_qck )   ioptio = ioptio + 1
+
       !
       IF( ioptio == 0 ) THEN