Changeset 8657 for branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2017-10-25T14:46:18+02:00 (7 years ago)

Author:

jpalmier

Message:

update the branch to match last GO6 changes

File:

• branches/NERC/dev_r5518_GO6_COAREbulk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

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

@@ -89 +89 @@
          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
@@ -124 +116 @@
          !
          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