Changeset 2830 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/TOP_SRC/trcnam.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/trcnam.F90 (modified) (2 diffs)

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

@@ -109 +109 @@
       END DO
 
+      !!KPE  computes the first time step of tracer model
+      nittrc000 = nit000 + nn_dttrc - 1
+ 
 
       IF(lwp) THEN                   ! control print
@@ -114 +117 @@
          WRITE(numout,*) ' Namelist : namtrc'
          WRITE(numout,*) '    time step freq. for pass. trac. nn_dttrc             = ', nn_dttrc
+         WRITE(numout,*) '    first time step for pass. trac. nittrc000            = ', nittrc000
          WRITE(numout,*) '    frequency of outputs for passive tracers nn_writetrc = ', nn_writetrc  
          WRITE(numout,*) '    restart LOGICAL for passive tr. ln_rsttr             = ', ln_rsttr