Changeset 391 for trunk/NEMO/LIM_SRC/iceini.F90

Timestamp:

2006-03-10T11:35:43+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of AGRIF :

add agrif to ice files

File:

• trunk/NEMO/LIM_SRC/iceini.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/iceini.F90

@@ -60 +60 @@
       !!   8.5  !  02-08  (G. Madec)  F90: Free form and modules
       !!----------------------------------------------------------------------
-
+       CHARACTER(len=80) :: namelist_icename
+       
       ! Open the namelist file 
-      OPEN( numnam_ice, FILE= 'namelist_ice', FORM='formatted', STATUS = 'old') 
+      namelist_icename = 'namelist_ice'
+           
+      CALL ctlopn(numnam_ice,namelist_icename,'OLD', 'FORMATTED', 'SEQUENTIAL',   &
+                     1,numout,.FALSE.,1)      
 
       CALL ice_run                    !  read in namelist some run parameters
@@ -114 +118 @@
       !!   2.0  !  03-08 (C. Ethe)  Original code
       !!-------------------------------------------------------------------
+
       NAMELIST/namicerun/ ln_limdyn, acrit, hsndif, hicdif
       !!-------------------------------------------------------------------
@@ -132 +137 @@
          WRITE(numout,*) '   computation of temp. in ice  (=0) or not (=9999) hicdif = ', hicdif
       ENDIF
-      
    END SUBROUTINE ice_run