Changeset 8980 for branches/NERC

Timestamp:

2017-12-11T18:13:37+01:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- debug - protect TRC part of trdtra under key_top use condition to avoid bug in physic only runs

File:

• branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

@@ -20 +20 @@
    USE trd_oce        ! trends: ocean variables
    USE trdtrc         ! ocean passive mixed layer tracers trends 
+# if defined key_top
    USE trc,           ONLY: tra    ! tracer definitions (trn, trb, tra, etc.) 
+# endif
    USE trdglo         ! trends: global domain averaged
    USE trdpen         ! trends: Potential ENergy
@@ -164 +166 @@
       ENDIF
 
+# if defined key_top
       IF( ctype == 'TRC' ) THEN                           !==  passive tracer trend  ==!
          !
@@ -195 +198 @@
          !
       ENDIF
+# endif
       !
       CALL wrk_dealloc( jpi, jpj, jpk, ztrds )