Changeset 623 for trunk/NEMO/OPA_SRC/FLO/flowri.F90

Timestamp:

2007-02-26T18:26:08+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_024:RB: Use of ctlopn for all files (except for dimg and coupled part)

File:

• trunk/NEMO/OPA_SRC/FLO/flowri.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/FLO/flowri.F90

@@ -56 +56 @@
       !! * Local declarations
       CHARACTER (len=21) ::  clname
-      INTEGER ::   inum = 11       ! temporary logical unit for restart file
+      INTEGER ::   inum            ! temporary logical unit for restart file
       INTEGER  ::   &
          iafl,ibfl,icfl,ia1fl,ib1fl,ic1fl,jfl,irecflo,   &
@@ -81 +81 @@
          ! open the file numflo 
          clname='trajec_float'
-         OPEN (numflo,FILE=clname,FORM='UNFORMATTED')
+         CALL ctlopn( numflo, clname, 'UNKNOWN', 'UNFORMATTED', 'SEQUENTIAL',   &
+            &           1, numout, .FALSE., 1 )
          !      REWIND numflo
 
@@ -141 +142 @@
             ! these 2 lines have accendentaly been removed from ATL6-V8 run hence
             ! giving 0 salinity and temperature on the float trajectory
-            CALL mpp_sum( ztemp, jpk*jpnfl )
-            CALL mpp_sum( zsal , jpk*jpnfl )
+!bug RB
+!compilation failed in mpp
+!            CALL mpp_sum( ztemp, jpk*jpnfl )
+!            CALL mpp_sum( zsal , jpk*jpnfl )
 
          ELSE
@@ -266 +269 @@
          END DO
 
-         OPEN (inum,FILE=clname,FORM='UNFORMATTED')
+         CALL ctlopn( inum, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+            &           1, numout, .FALSE., 0 )
          REWIND inum
          !