Changeset 8213 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcstp.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/trcstp.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -90 +90 @@
          tra(:,:,:,:) = 0.e0
          !
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp begins at kt =', kt
-         CALL flush(numout)
-# endif
                                    CALL trc_rst_opn  ( kt )       ! Open tracer restart file 
-# if defined key_debug_medusa
-                                   CALL trc_rst_stat 
-                                   CALL trc_rst_tra_stat
-# endif
          IF( lrst_trc )            CALL trc_rst_cal  ( kt, 'WRITE' )   ! calendar
          IF( lk_iomput ) THEN  ;   CALL trc_wri      ( kt )       ! output of passive tracers with iom I/O manager
@@ -111 +103 @@
 # endif
                                    CALL trc_trp      ( kt )       ! transport of passive tracers
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp transport complete at kt =', kt
-         CALL trc_rst_stat
-         CALL trc_rst_tra_stat
-         CALL flush(numout)
-# endif
          IF( kt == nittrc000 ) THEN
             CALL iom_close( numrtr )       ! close input tracer restart file
@@ -125 +111 @@
          !
          IF( nn_dttrc /= 1   )     CALL trc_sub_reset( kt )       ! resetting physical variables when sub-stepping
-# if defined key_debug_medusa
-         IF(lwp) WRITE(numout,*) ' MEDUSA trc_stp ends at kt =', kt
-         CALL flush(numout)
-# endif
          !
       ENDIF