Changeset 109 for trunk/NEMO/OPA_SRC/DYN/dynspg_fsc_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/dynspg_fsc_atsk.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_fsc_atsk.F90

@@ -160 +160 @@
             spgu(ji,jj) = zspgu + zegu
             spgv(ji,jj) = zspgv + zegv
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
             ! save the surface pressure gradient trends 
             utrd2(ji,jj,1) = zspgu
@@ -176 +176 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + spgu(ji,jj)
                va(ji,jj,jk) = va(ji,jj,jk) + spgv(ji,jj)
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                ! save the surface pressure gradient trend for diagnostics
                utrd(ji,jj,jk,8) = spgu(ji,jj)
@@ -338 +338 @@
             spgv(ji,jj) = z2dt * ztdgv
 #endif
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
             ! save the transport divergence gradient trends
             utrd2(ji,jj,2) = utrd2(ji,jj,2) + ztdgu
@@ -354 +354 @@
                ua(ji,jj,jk) = (ua(ji,jj,jk) + spgu(ji,jj)) * umask(ji,jj,jk)
                va(ji,jj,jk) = (va(ji,jj,jk) + spgv(ji,jj)) * vmask(ji,jj,jk)
-#if defined key_trddyn
+#if defined key_trddyn || defined key_trd_vor
                ! save the surface pressure gradient trend for diagnostics
                utrd(ji,jj,jk,8) = utrd(ji,jj,jk,8) + spgu(ji,jj)/z2dt