Changeset 2910 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2011-10-13T11:41:49+02:00 (13 years ago)

Author:

kpedwards

Message:

Updates from Christian - use kit000 in local TRA code; plus a few style corrections in TRC code.

File:

• branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -51 +51 @@
       !!-------------------------------------------------------------------
 
-     IF(nn_dttrc .NE. 1) THEN
-        CALL trc_sub_stp(kt)
-     ENDIF
+     IF( nn_dttrc /= 1 )   CALL trc_sub_stp( kt )  ! averaging physical variables for sub-stepping
+
      IF( MOD( kt , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step
-
          !
          IF(ln_ctl) THEN
@@ -73 +71 @@
                                    CALL trc_trp( kt )           ! transport of passive tracers
          IF( kt == nittrc000 )     CALL iom_close( numrtr )     ! close input  passive tracers restart file
-         IF( lrst_trc )            CALL trc_rst_wri( kt )       ! write tracer restart file
-         IF( lk_trdmld_trc  )      CALL trd_mld_trc( kt )       ! trends: Mixed-layer
+         IF( lrst_trc        )     CALL trc_rst_wri( kt )       ! write tracer restart file
+         IF( lk_trdmld_trc   )     CALL trd_mld_trc( kt )       ! trends: Mixed-layer
          !
-         IF(nn_dttrc .NE. 1) THEN
-            CALL trc_sub_reset(kt)
-         ENDIF
+         IF( nn_dttrc /= 1   )     CALL trc_sub_reset( kt )  ! resetting physical variables when sub-stepping
+         !
       ENDIF