Changeset 109 for trunk/NEMO/OPA_SRC/DYN/dynzdf_iso.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_iso.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/DYN/dynzdf_iso.F90

@@ -114 +114 @@
          zfuw, zdiu, zdju, zdj1u,      &  ! workspace
          zfvw, zdiv, zdjv, zdj1v
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
       INTEGER ::   &
          ikbu, ikbum1 , ikbv, ikbvm1      ! temporary integers
@@ -247 +247 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zuav
                va(ji,jj,jk) = va(ji,jj,jk) + zvav
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                ! save the trends for diagnostics
                utrd(ji,jj,jk,5) = utrd(ji,jj,jk,5) + zuav
@@ -290 +290 @@
             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)
@@ -298 +298 @@
          END DO  
 
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
 
          ! 1.4 diagnose surface and bottom momentum fluxes
@@ -351 +351 @@
             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)
@@ -359 +359 @@
          END DO   
 
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
          ! 2.4 diagnose surface and bottom momentum fluxes
          DO ji = 2, jpim1