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

trunk/NEMO/OPA_SRC/opa.F90

@@ -40 +40 @@
    USE trdtra          ! ocean active tracer trends    (trd_tra_init routine)
    USE trdmld          ! ocean active tracer mixed layer trend ??? 
+   USE trdvor          ! vorticity budget 
    USE flxfwb          ! 
 
@@ -187 +188 @@
 
       !                                     ! Ocean trends
-      IF( lk_trddyn )   CALL trd_dyn_init        ! momentum     
+      IF( lk_trddyn .OR. lk_trdvor)   CALL trd_dyn_init        ! momentum     
       IF( lk_trdtra .OR. lk_trdmld )   &
          &             CALL trd_tra_init        ! active tracers