Changeset 16 for trunk/NEMO/OPA_SRC/FLO/flo_oce.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/FLO/flo_oce.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/FLO/flo_oce.F90

@@ -11 +11 @@
    !!  OPA 9.0 , LODYC-IPSL (2003)
    !!----------------------------------------------------------------------
-#if defined key_floats
+#if   defined key_floats   ||   defined key_esopa
    !!----------------------------------------------------------------------
    !!   'key_floats'                                        drifting floats
@@ -20 +20 @@
    IMPLICIT NONE
 
-   LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .TRUE.    ! float flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .TRUE.    !: float flag
 
    !! float parameters
    !! ----------------
    INTEGER, PARAMETER ::   &
-      jpnfl      = 23 ,          &  ! total number of floats during the run
-      jpnnewfl   =  0 ,          &  ! number of floats added in a new run
-      jpnrstarfl = jpnfl-jpnnewfl   ! number of floats for the restart
+      jpnfl     = 23 ,            &  ! total number of floats during the run
+      jpnnewflo =  0 ,            &  ! number of floats added in a new run
+      jpnrstflo = jpnfl-jpnnewflo    ! number of floats for the restart
 
    !! float variables
@@ -61 +61 @@
    !!   Default option :                                 NO drifting floats
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .FALSE.   ! float flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_floats = .FALSE.   !: float flag
 #endif