Changeset 2830 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.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/OPA_SRC/TRA/tranxt.F90 (modified) (3 diffs)

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -48 +48 @@
    USE agrif_opa_interp
 #endif
+#if defined key_top
+   USE trc, ONLY: nittrc000  !get first time step for passive tracers
+#endif
 
    IMPLICIT NONE
@@ -214 +217 @@
       !!----------------------------------------------------------------------
 
+#if defined key_top
+      IF( kt == nit000 .OR. (kt == nittrc000 .AND. cdtype == 'TRC'))  THEN
+#else
       IF( kt == nit000 )  THEN
+#endif
          IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'tra_nxt_fix : time stepping'
+         IF(lwp) WRITE(numout,*) 'tra_nxt_fix : time stepping', cdtype
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       ENDIF
@@ -282 +289 @@
       !!----------------------------------------------------------------------
 
-      IF( kt == nit000 ) THEN
+#if defined key_top
+      IF( kt == nit000 .OR. (kt == nittrc000 .AND. cdtype == 'TRC'))  THEN
+#else
+      IF( kt == nit000 )  THEN
+#endif
          IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping'
+         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       ENDIF