Changeset 109 for trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

Timestamp:

2004-06-28T12:21:11+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE069 : Vorticity diagnostics has been added

File:

• trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90

@@ -64 +64 @@
       REAL(wp), DIMENSION(jpi,jpk) ::   &
          zwx, zwy, zwz, zww               ! temporary workspace arrays
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
       INTEGER ::   &
          ikbu, ikbum1 , ikbv, ikbvm1      ! temporary integers
@@ -98 +98 @@
                zwx(ji,jk) = ub(ji,jj,jk)
                zwz(ji,jk) = vb(ji,jj,jk)
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                utrd(ji,jj,jk,7) = ua(ji,jj,jk)
                vtrd(ji,jj,jk,7) = va(ji,jj,jk)
@@ -131 +131 @@
          END DO  
 
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
          ! diagnose the vertical diffusive momentum trends