Changeset 2345 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/FLO/floats.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/floats.F90 (modified) (5 diffs)

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

@@ -14 +14 @@
    !!   flo_init  : initialization of float trajectories computation
    !!----------------------------------------------------------------------
+   USE oce             ! ocean variables
    USE flo_oce         ! floats variables
    USE lib_mpp         ! distributed memory computing
@@ -20 +21 @@
    USE flo4rk          ! Trajectories, Runge Kutta scheme (flo_4rk routine)
    USE floblk          ! Trajectories, Blanke scheme      (flo_blk routine)
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
@@ -30 +32 @@
    !! 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)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -79 +80 @@
       !! ** Purpose :   Read the namelist of floats
       !!----------------------------------------------------------------------
-      USE ioipsl
-      !!
       NAMELIST/namflo/ ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4 
       !!---------------------------------------------------------------------
@@ -90 +89 @@
          WRITE(numout,*)
          WRITE(numout,*) '         Namelist floats :'
-         WRITE(numout,*) '            restart                          ln_rstflo = ', ln_rstflo
-         WRITE(numout,*) '            frequency of float output file   nn_writefl  = ', nn_writefl
-         WRITE(numout,*) '            frequency of float restart file  nn_stockfl  = ', nn_stockfl
-         WRITE(numout,*) '            Argo type floats                 ln_argo   = ', ln_argo
-         WRITE(numout,*) '            Computation of T trajectories    ln_flork4 = ', ln_flork4
+         WRITE(numout,*) '            restart                          ln_rstflo  = ', ln_rstflo
+         WRITE(numout,*) '            frequency of float output file   nn_writefl = ', nn_writefl
+         WRITE(numout,*) '            frequency of float restart file  nn_stockfl = ', nn_stockfl
+         WRITE(numout,*) '            Argo type floats                 ln_argo    = ', ln_argo
+         WRITE(numout,*) '            Computation of T trajectories    ln_flork4  = ', ln_flork4
       ENDIF
       !