Changeset 1119 for trunk/NEMO/TOP_SRC/par_trc.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

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

trunk/NEMO/TOP_SRC/par_trc.F90

@@ -30 +30 @@
    INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_my_trc_3d
    !                     ! total number of sms diagnostic arrays
-   INTEGER, PUBLIC, PARAMETER ::   jpdiatrd = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd
+   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd
    
    !  1D configuration ("key_c1d")
@@ -55 +55 @@
 #endif
 
+   REAL(wp), PUBLIC  :: rtrn  = 1.e-15      !: truncation value     
    !!======================================================================
 END MODULE par_trc