Changeset 2844 for branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90

Timestamp:

2011-09-20T15:40:17+02:00 (13 years ago)

Author:

cbricaud

Message:

minor corrections

File:

• branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90 (modified) (4 diffs)

branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90

@@ -17 +17 @@
    !! * Modules used
    USE flo_oce         ! ocean drifting floats
-   !USE oce             ! ocean dynamics and tracers
    USE dom_oce         ! ocean space and time domain
    USE lib_mpp         ! distribued memory computing library
    USE in_out_manager  ! I/O manager
-   !USE phycst          ! physic constants
-   !USE dianam          ! build name of file (routine)
-   !USE ioipsl
 
    IMPLICIT NONE
@@ -29 +25 @@
 
    PUBLIC flo_rst      ! routine called by floats.F90
-
-   !INTEGER :: jfl      ! number of floats
-   !INTEGER :: numfl   ! logical unit for floats netcdf output
 
    !! * Substitutions
@@ -45 +38 @@
    SUBROUTINE flo_rst( kt )
       !!---------------------------------------------------------------------
-      !!                  ***  ROUTINE flo_wri ***
+      !!                  ***  ROUTINE flo_rst ***
       !!             
       !! ** Purpose :  
@@ -85 +78 @@
          END DO
 
-         CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
-         REWIND inum
+         inum=0
+         IF( lwp )THEN
+            CALL ctl_opn( inum, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
+            REWIND inum
+         ENDIF
          !
          DO jpn = 1, jpnij