Changeset 2124 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2010-09-25T12:11:49+02:00 (14 years ago)

Author:

cetlod

Message:

removed useless variables

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcadv.F90 (modified) (1 diff)

branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -65 +65 @@
       !!----------------------------------------------------------------------
 
-      IF( kt == nittrc000 )   CALL trc_adv_ctl          ! initialisation & control of options
+      IF( kt == nit000 )   CALL trc_adv_ctl          ! initialisation & control of options
 
-      IF( neuler == 0 .AND. kt == nittrc000 ) THEN     ! at nit000
+      IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000
          r2dt(:) =  rdttra(:) * FLOAT(nn_dttrc)          ! = rdtra (restarting with Euler time stepping)
-      ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN          ! at nit000 or nit000+1
+      ELSEIF( kt <= nit000 + nn_dttrc ) THEN          ! at nit000 or nit000+1
          r2dt(:) = 2. * rdttra(:) * FLOAT(nn_dttrc)      ! = 2 rdttra (leapfrog)
       ENDIF