Changeset 5775 for branches/2015/dev_r5721_CNRS9_NOC3_LDF

Timestamp:

2015-10-02T15:03:40+02:00 (9 years ago)

Author:

cetlod

Message:

LDF-ADV, step II.2: minor bugfix

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

@@ -247 +247 @@
       ENDIF
       !
-      !                              ! Set nadv
-      IF( ln_trcadv_cen  )   nadv = np_CEN
-      IF( ln_trcadv_fct  )   nadv = np_FCT
-      IF( 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
+      !                                !==  used advection scheme  ==!
+      !                                      ! set nadv
+      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
       !
       IF(lwp) THEN                   ! Print the choice