Changeset 2830 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

Timestamp:

2011-08-23T12:20:06+02:00 (13 years ago)

Author:

kpedwards

Message:

Updates to average physics variables for TOP substepping.

File:

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

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

@@ -35 +35 @@
    INTEGER ::   nadv   ! choice of the type of advection scheme
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:) ::   r2dt  ! vertical profile time-step, = 2 rdttra
-   !                                                    ! except at nit000 (=rdttra) if neuler=0
+   !                                                    ! except at nitrrc000 (=rdttra) if neuler=0
 
    !! * Substitutions
@@ -80 +80 @@
       ENDIF
 
-      IF( kt == nit000 )   CALL trc_adv_ctl          ! initialisation & control of options
+      IF( kt == nittrc000 )   CALL trc_adv_ctl          ! initialisation & control of options
 
 #if ! defined key_pisces
-      IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000
+      IF( neuler == 0 .AND. kt == nittrc000 ) THEN     ! at nittrc000
          r2dt(:) =  rdttrc(:)           ! = rdttrc (restarting with Euler time stepping)
-      ELSEIF( kt <= nit000 + nn_dttrc ) THEN          ! at nit000 or nit000+1
+      ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN          ! at nittrc000 or nittrc000+1
          r2dt(:) = 2. * rdttrc(:)       ! = 2 rdttrc (leapfrog)
       ENDIF