Changeset 2345 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90

Timestamp:

2010-10-29T18:08:41+02:00 (14 years ago)

Author:

gm

Message:

v3.3beta: FLO-compilation errors (to be done also on v3.2 \!)

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/FLO/flo_oce.F90

@@ -20 +20 @@
    !! float parameters
    !! ----------------
-   INTEGER, PUBLIC, PARAMETER ::   jpnfl     = 23 ,                !: total number of floats during the run
-   INTEGER, PUBLIC, PARAMETER ::   jpnnewflo =  0 ,                !: number of floats added in a new run
+   INTEGER, PUBLIC, PARAMETER ::   jpnfl     = 23                  !: total number of floats during the run
+   INTEGER, PUBLIC, PARAMETER ::   jpnnewflo =  0                  !: number of floats added in a new run
    INTEGER, PUBLIC, PARAMETER ::   jpnrstflo = jpnfl - jpnnewflo   !: number of floats for the restart
 
    !! float variables
    !! ---------------
-   INTEGER, PUBLIC, DIMENSION(jpnfl)  ::   nisobfl   !: =0 for a isobar float , =1 for a float following the w velocity
-   INTEGER, PUBLIC, DIMENSION(jpnfl)  ::   ngrpfl    !: number to identify searcher group
+   INTEGER , PUBLIC, DIMENSION(jpnfl) ::   nisobfl   !: =0 for a isobar float , =1 for a float following the w velocity
+   INTEGER , PUBLIC, DIMENSION(jpnfl) ::   ngrpfl    !: number to identify searcher group
 
-   REAL(wp), PUBLIC, DIMENSION(jpnfl) ::   flxx , flyy , flzz    !: longitude, latitude, depth of float (decimal degree, m >0)
+   REAL(wp), PUBLIC, DIMENSION(jpnfl) ::   flxx , flyy , flzz    !: long, lat, depth of float (decimal degree, m >0)
    REAL(wp), PUBLIC, DIMENSION(jpnfl) ::   tpifl, tpjfl, tpkfl   !: (i,j,k) indices of float position
 
-   REAL(wp), PUBLIC, DIMENSION(jpi, jpj, jpk) ::   wb            !: vertical velocity at previous time step (m s-1).
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   wb              !: vertical velocity at previous time step (m s-1).
    
-   !                                  !!! * namelist namflo : langrangian floats *
+   !                                            !!! * namelist namflo : langrangian floats *
    LOGICAL, PUBLIC  ::   ln_rstflo  = .FALSE.    !: T/F float restart 
    LOGICAL, PUBLIC  ::   ln_argo    = .FALSE.    !: T/F argo type floats
    LOGICAL, PUBLIC  ::   ln_flork4  = .FALSE.    !: T/F 4th order Runge-Kutta
-   INTEGER, PUBLIC  ::   nn_writefl = 150       !: frequency of float output file 
-   INTEGER, PUBLIC  ::   nn_stockfl = 450       !: frequency of float restart file
+   INTEGER, PUBLIC  ::   nn_writefl = 150        !: frequency of float output file 
+   INTEGER, PUBLIC  ::   nn_stockfl = 450        !: frequency of float restart file
 
 #else
@@ -51 +51 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE flo_oce