Changeset 648 for trunk/NEMO/LIM_SRC

Timestamp:

2007-04-12T16:00:53+02:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_031:RB: correct some file names for AGRIF

File:

• trunk/NEMO/LIM_SRC/limdia.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limdia.F90

@@ -175 +175 @@
        !!-------------------------------------------------------------------
        CHARACTER(len=jpchinf) ::   titinf
+       CHARACTER(len=50)      ::   clname 
        INTEGER  ::   jv            ! dummy loop indice
        INTEGER  ::   ntot , ndeb , irecl
@@ -240 +241 @@
 
        ! opening  "ice_evolu" file
+       clname = 'ice_evolu' 
        irecl = ( jpchinf + 1 ) * nvinfo 
-       CALL ctlopn( numevo_ice, 'ice_evolu', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
+       CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL',   &
           &           irecl, numout, .TRUE., 1 )