Changeset 109 for trunk/NEMO/OPA_SRC/TRD

Timestamp:

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

Author:

opalod

Message:

CT : UPDATE069 : Vorticity diagnostics has been added

Location:

trunk/NEMO/OPA_SRC/TRD

Files:

• trddyn_oce.F90 (modified) (3 diffs)
• trdvor.F90 (added)
• trdvor_ncinit.h90 (added)
• trdvor_ncwrite.h90 (added)

trunk/NEMO/OPA_SRC/TRD/trddyn_oce.F90

@@ -4 +4 @@
    !! Ocean trends :  dynamical trends arrays defined in memory 
    !!======================================================================
-#if   defined key_trddyn   ||   defined key_esopa
+#if   defined key_trddyn   ||   defined key_esopa || defined key_trd_vor
    !!----------------------------------------------------------------------
    !!   'key_trddyn'                             momentum trend diagnostics
@@ -13 +13 @@
    IMPLICIT NONE
    PUBLIC
-   
+
+    INTEGER  ::      & !!! namdia :  diagnostics on dynamics and/or tracer trends
+      ntrd=10,   &
+      nctls=0
+
    REAL(wp) ::   &
       tvols,     &  ! volume of the whole ocean computed at t-points
@@ -22 +26 @@
       utrd,      &  ! trends of the momentum equation
       vtrd
-   REAL(wp), DIMENSION(jpi,jpj,jpk,2) ::   & 
+   REAL(wp), DIMENSION(jpi,jpj,2) ::   & 
       utrd2,     &  ! trend with the free surface formulation
       vtrd2