New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8980 for branches/NERC – NEMO

Changeset 8980 for branches/NERC


Ignore:
Timestamp:
2017-12-11T18:13:37+01:00 (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

    r8453 r8980  
    2020   USE trd_oce        ! trends: ocean variables 
    2121   USE trdtrc         ! ocean passive mixed layer tracers trends  
     22# if defined key_top 
    2223   USE trc,           ONLY: tra    ! tracer definitions (trn, trb, tra, etc.)  
     24# endif 
    2325   USE trdglo         ! trends: global domain averaged 
    2426   USE trdpen         ! trends: Potential ENergy 
     
    164166      ENDIF 
    165167 
     168# if defined key_top 
    166169      IF( ctype == 'TRC' ) THEN                           !==  passive tracer trend  ==! 
    167170         ! 
     
    195198         ! 
    196199      ENDIF 
     200# endif 
    197201      ! 
    198202      CALL wrk_dealloc( jpi, jpj, jpk, ztrds ) 
Note: See TracChangeset for help on using the changeset viewer.