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

Timestamp:

2009-02-03T14:15:21+01:00 (15 years ago)

Author:

cetlod

Message:

Initialization of biological trends variable name, see ticket:312

File:

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

trunk/NEMO/TOP_SRC/trc.F90

@@ -57 +57 @@
    INTEGER , PUBLIC  ::  nutrst     !: logical unit for restart FILE for passive tracers
    INTEGER , PUBLIC  ::  nrsttr     !: control of the time step ( 0 or 1 ) for pass. tr.
-   CHARACTER(len=32) ::  cn_trcrst_in  !: suffix of pass. tracer restart name (input)
-   CHARACTER(len=32) ::  cn_trcrst_out !: suffix of pass. tracer restart name (output)
+   CHARACTER(len=50) ::  cn_trcrst_in  !: suffix of pass. tracer restart name (input)
+   CHARACTER(len=50) ::  cn_trcrst_out !: suffix of pass. tracer restart name (output)
    
    !! information for outputs
@@ -74 +74 @@
    CHARACTER(len=80), PUBLIC, DIMENSION (jpdia3d) ::   ctrc3l   !: 3d output field long name
 
-   
    REAL(wp), PUBLIC, DIMENSION (jpi,jpj,    jpdia2d) ::   trc2d   !:  additional 2d outputs  
    REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jpdia3d) ::   trc3d   !:  additional 3d outputs  
    
-   
-   !! netcdf files and index common
-   !! --------------------------------------------------
    INTEGER , PUBLIC ::   nwritedia     !: frequency of additional arrays outputs(namelist)
 # endif
 
-# if defined key_trc_diabio
-
-   !! Biological trends
-   !! -----------------
+#if defined key_trc_diabio || defined key_trdmld_trc
    CHARACTER(len=8),  DIMENSION(jpdiabio) ::   ctrbio   !: biological trends name      (NAMELIST)
    CHARACTER(len=20), DIMENSION(jpdiabio) ::   ctrbiu   !: biological trends unit      (NAMELIST)
    CHARACTER(len=80), DIMENSION(jpdiabio) ::   ctrbil   !: biological trends long name (NAMELIST)
+   INTEGER ::   nwritebio   !: time step frequency for biological outputs (NAMELIST)
+#endif
+# if defined key_trc_diabio
+   !! Biological trends
+   !! -----------------
    REAL(wp), DIMENSION(jpi,jpj,jpk,jpdiabio) :: trbio   !: biological trends
-
-   !! Netcdf output parameters
-   !! ------------------------
-   INTEGER ::   nwritebio   !: time step frequency for biological outputs (NAMELIST)
-
 # endif