Changeset 109 for trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_atsk.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_imp_atsk.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_atsk.F90

@@ -69 +69 @@
          zwx, zwy, zwz,               &  ! workspace
          zwd, zws, zwi, zwt
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
       INTEGER ::   &
-         ikbu, ikbum1, ikbv, ikbvm1   &  ! temporary integers
+         ikbu, ikbum1, ikbv, ikbvm1     ! temporary integers
 #endif
       !!----------------------------------------------------------------------
@@ -176 +176 @@
             DO ji = 2, jpim1
                zua = ( zwx(ji,jk) - ub(ji,jj,jk) ) / z2dt
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                ! save the vertical diffusive momentum trend
                utrd(ji,jj,jk,7) = zua - ua(ji,jj,jk)
@@ -184 +184 @@
          END DO
 
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
          ! diagnose surface and bottom momentum fluxes
          DO ji = 2, jpim1
@@ -285 +285 @@
             DO ji = 2, jpim1
                zva = ( zwx(ji,jk) - vb(ji,jj,jk) ) / z2dt
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                ! save the vertical diffusive momentum fluxes
                vtrd(ji,jj,jk,7) = zva - va(ji,jj,jk)
@@ -293 +293 @@
          END DO
 
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
          ! diagnose surface and bottom momentum fluxes
          DO ji = 2, jpim1