Changeset 8330

Timestamp:

2017-07-13T16:36:06+02:00 (7 years ago)

Author:

frrh

Message:

Reinstate missing key_debug_medusa clause which got de-selected during manual
conflict resolution

File:

• branches/UKMO/dev_r5518_GO6M_StableTo6959/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6M_StableTo6959/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -77 +77 @@
          IF( ln_trcdmp )        CALL trc_dmp( kstp )            ! internal damping trends
                                 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
+
          IF( ln_zps ) THEN
            IF( ln_isfcav ) THEN ; CALL zps_hde_isf( kstp, jptra, trb, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi )  ! both top & bottom