Changeset 8213 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

Timestamp:

2017-06-25T11:27:43+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- split trcbio - mergeable-ish MEDUSA branch

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -78 +78 @@
          IF( ln_trcdmp_clo )    CALL trc_dmp_clo( kstp )        ! internal damping trends on closed seas only
                                 CALL trc_adv( kstp )            ! horizontal & vertical advection 
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp
-         CALL trc_rst_tra_stat
-         CALL flush(numout)
-# endif
                                 CALL trc_ldf( kstp )            ! lateral mixing
          IF( .NOT. lk_offline .AND. lk_zdfkpp )    &
@@ -90 +85 @@
 #endif
                                 CALL trc_zdf( kstp )            ! vertical mixing and after tracer fields
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp
-         CALL trc_rst_tra_stat
-         CALL flush(numout)
-# endif
                                 CALL trc_nxt( kstp )            ! tracer fields at next time step     
 # if defined key_debug_medusa