Changeset 433 for trunk/NEMO/TOP_SRC/trc.F90

Timestamp:

2006-04-10T17:40:29+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_044 : CT : update the passive tracers TOP component and the standard GYRE configuration

File:

• trunk/NEMO/TOP_SRC/trc.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/trc.F90

@@ -49 +49 @@
    !! passive tracers fields (before,now,after)
    !! --------------------------------------------------
-   REAL(wp), PUBLIC  ::  &
-      trai            !!: initial total tracer
+   REAL(wp), PUBLIC, SAVE  ::  &
+      trai    ,   &   !!: initial total tracer
+      areatot         !!: total volume 
 
    REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jptra) :: &
@@ -123 +124 @@
       nwritetrc       !!: time step frequency for concentration outputs (namelist)
    
-# if defined key_trc_diaadd
+#if defined key_trc_diaadd
    !! additional 2D/3D outputs namelist
    !! --------------------------------------------------
@@ -153 +154 @@
 #endif
    
-# if defined key_trc_diatrd
+#if defined key_trc_diatrd
    
    !!  non conservative trends (biological, ...)
@@ -174 +175 @@
    
    
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra,jpdiatrc) :: &
+   REAL(wp), PUBLIC, DIMENSION(:,:,:,:,:), ALLOCATABLE, SAVE :: &
       trtrd           !!: trends of the tracer equations
    
+   INTEGER, PUBLIC, DIMENSION(jptra), SAVE :: ikeep ! indice of tracer for which dyn trends are stored
+   INTEGER, PUBLIC, SAVE                   :: nkeep ! number of tracers for which dyn trends are stored 
+                                                    ! (used to allocate trtrd buffer)
+
    !! netcdf files and index common
    !! --------------------------------------------------