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

trunk/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -125 +125 @@
             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1) + zuap
             va(ji,jj,1) = va(ji,jj,1) + zhpj(ji,jj,1) + zvap
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
             ! save the trend for diagnostics
             utrd(ji,jj,1,1) = zhpi(ji,jj,1) + zuap
@@ -153 +153 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zhpi(ji,jj,jk) + zuap
                va(ji,jj,jk) = va(ji,jj,jk) + zhpj(ji,jj,jk) + zvap
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
                ! save the momentum trends for diagnostics
                utrd(ji,jj,jk,1) = zhpi(ji,jj,jk) + zuap
@@ -238 +238 @@
             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1)
             va(ji,jj,1) = va(ji,jj,1) + zhpj(ji,jj,1)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
             ! save the momentum trends for diagnostics
             utrd(ji,jj,1,1) = zhpi(ji,jj,1)
@@ -263 +263 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zhpi(ji,jj,jk)
                va(ji,jj,jk) = va(ji,jj,jk) + zhpj(ji,jj,jk)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
                ! save the momentum trends for diagnostics
                utrd(ji,jj,jk,1) = zhpi(ji,jj,jk)
@@ -293 +293 @@
                ! add the new one to the general momentum trend
                ua(ji,jj,iku) = ua(ji,jj,iku) + zhpi(ji,jj,iku)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
                ! save the momentum trends for diagnostics
                utrd(ji,jj,iku,1) = zhpi(ji,jj,iku)
@@ -307 +307 @@
                ! add the new one to the general momentum trend
                va(ji,jj,ikv) = va(ji,jj,ikv) + zhpj(ji,jj,ikv)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
                ! save the momentum trends for diagnostics
                vtrd(ji,jj,ikv,1) = zhpj(ji,jj,ikv)
@@ -394 +394 @@
             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1)
             va(ji,jj,1) = va(ji,jj,1) + zhpj(ji,jj,1)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
             ! save the momentum trends for diagnostics
             utrd(ji,jj,1,1) = zhpi(ji,jj,1)
@@ -419 +419 @@
                ua(ji,jj,jk) = ua(ji,jj,jk) + zhpi(ji,jj,jk)
                va(ji,jj,jk) = va(ji,jj,jk) + zhpj(ji,jj,jk)
-# if defined key_trddyn
+# if defined key_trddyn || defined key_trd_vor
                ! save the momentum trends for diagnostics
                utrd(ji,jj,jk,1) = zhpi(ji,jj,jk)