Changeset 267

Timestamp:

2005-09-08T15:59:20+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_05:RB+OA: Update and rewritting of part of the TOP component

File:

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

trunk/NEMO/TOP_SRC/trc.F90

@@ -14 +14 @@
    !!   'key_passivetrc'   :                               Passive tracer
    !!---------------------------------------------------------------------
-   !!  TOP 1.0 , LOCEAN-IPSL (2005)
-   !! $Header$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
+   !!  OPA 9.0 , LODYC-IPSL (2003)
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -88 +86 @@
    LOGICAL, PUBLIC  ::  &
       lrsttr          !!: boolean term for restart i/o for passive tracers (namelist)
-   
-   CHARACTER(len=48) , PUBLIC  ::  &
-      trestart        !!: name variable of restart file
    
    INTEGER , PUBLIC  ::  &
@@ -124 +119 @@
    !! --------------------------------------------------
    INTEGER , PUBLIC   ::  & 
-      nwritetrc,  &   !!: time step frequency for concentration outputs (namelist)
-      nit5     ,  &   !!: id for tracer output file
-      ndepit5  ,  &   !!: id for depth mesh
-      nhorit5  ,  &   !!: id for horizontal mesh
-      ndimt50  ,  &   !!: number of ocean points in index array
-      ndimt51         !!: number of ocean points in index array
-   
-   INTEGER , PUBLIC, DIMENSION (jpij)  ::  & 
-      ndext51         !!: integer arrays for ocean surface index
-   
-   INTEGER , PUBLIC, DIMENSION (jpij*jpk)  ::  & 
-      ndext50         !!: integer arrays for ocean 3D index
-   
-   
-   !! julian day 
-   !! --------------------------------------------------
-   INTEGER  , PUBLIC ::  & 
-      ijulian         !!: julian day 
-   
-   REAL(wp), PUBLIC  ::  &
-      djulian         !!: julian day ( real)
-   
+      nwritetrc       !!: time step frequency for concentration outputs (namelist)
    
 # if defined key_trc_diaadd
@@ -174 +148 @@
    !! --------------------------------------------------
    INTEGER , PUBLIC :: &
-      nwriteadd,  &   !!: frequency of additional arrays outputs(namelist)
-      nitd     ,  &   !!: id for additional array output file
-      ndepitd  ,  &   !!: id for depth mesh
-      nhoritd         !!: id for horizontal mesh
+      nwriteadd     !!: frequency of additional arrays outputs(namelist)
 #endif
    
@@ -209 +180 @@
       nwritetrd       !!: frequency of additional arrays outputs(namelist)
    
-   INTEGER , PUBLIC, DIMENSION (jptra)  :: &
-      nit6    ,   &   !!: id for additional array output file
-      ndepit6 ,   &   !!: id for depth mesh
-      nhorit6         !!: id for horizontal mesh
-   
 #endif 
    
@@ -221 +187 @@
    
    INTEGER , PUBLIC, DIMENSION(jptra) :: &
-      numtr   ,   &    !!: logical unit for passive tracers data
-      nlectr  ,   &    !!: switch for reading once
-      ntrc1   ,   &    !!: ????
-      ntrc2            !!: ????
-   
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jptra) ::  &  
-      trdta            !!: passive tracers data at given time-step
-   
-   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jptra,2) ::  &  
-      tracdta          !!: passive tracers data array for two value
-                        !: needed for time interpolation
+      numtr          !!: logical unit for passive tracers data
+   
 #endif