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

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

@@ -85 +85 @@
       !! ** Purpose :   Standard output of passive tracer : concentration fields
       !!
-      !! ** Method  :   At the beginning of the first time step (nit000), define all
+      !! ** Method  :   At the beginning of the first time step (nittrc000), define all
       !!             the NETCDF files and fields for concentration of passive tracer
       !!
@@ -135 +135 @@
 
       ! define time axis
-      itmod = kt - nit000 + 1
+      itmod = kt - nittrc000 + 1
       it    = kt
       iiter = ( nit000 - 1 ) / nn_dttrc
@@ -144 +144 @@
       IF(ll_print)WRITE(numout,*)'trcdit_wr kt=',kt,' kindic ',kindic
       
-      IF( kt == nit000 ) THEN
+      IF( kt == nittrc000 ) THEN
 
          ! Compute julian date from starting date of the run
@@ -150 +150 @@
          zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment
          IF(lwp)WRITE(numout,*)' '  
-         IF(lwp)WRITE(numout,*)' Date 0 used :', nit000                         &
+         IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000                         &
             &                 ,' YEAR ', nyear, ' MONTH ', nmonth, ' DAY ', nday   &
             &                 ,'Julian day : ', zjulian  
@@ -226 +226 @@
       !! ** Purpose :   output of passive tracer : additional 2D and 3D arrays
       !!
-      !! ** Method  :   At the beginning of the first time step (nit000), define all
+      !! ** Method  :   At the beginning of the first time step (nittrc000), define all
       !!             the NETCDF files and fields for concentration of passive tracer
       !!
@@ -275 +275 @@
 
       ! define time axis
-      itmod = kt - nit000 + 1
+      itmod = kt - nittrc000 + 1
       it    = kt
       iiter = ( nit000 - 1 ) / nn_dttrc
@@ -284 +284 @@
       IF( ll_print ) WRITE(numout,*) 'trcdii_wr kt=', kt, ' kindic ', kindic
 
-      IF( kt == nit000 ) THEN
+      IF( kt == nittrc000 ) THEN
 
          ! Define the NETCDF files for additional arrays : 2D or 3D
@@ -375 +375 @@
       !! ** Purpose :   output of passive tracer : biological fields
       !!
-      !! ** Method  :   At the beginning of the first time step (nit000), define all
+      !! ** Method  :   At the beginning of the first time step (nittrc000), define all
       !!             the NETCDF files and fields for concentration of passive tracer
       !!
@@ -424 +424 @@
 
       ! define time axis
-      itmod = kt - nit000 + 1
+      itmod = kt - nittrc000 + 1
       it    = kt
       iiter = ( nit000 - 1 ) / nn_dttrc
@@ -433 +433 @@
       IF(ll_print) WRITE(numout,*)'trcdib_wr kt=',kt,' kindic ',kindic
 
-      IF( kt == nit000 ) THEN
+      IF( kt == nittrc000 ) THEN
 
          ! Define the NETCDF files for biological trends