Changeset 391 for trunk/NEMO/LIM_SRC/limrst.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/limrst.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limrst.F90

@@ -74 +74 @@
          zsec, zdate0, zdt
 
-      CHARACTER(len=45)  ::  &
-         ccfile = 'restart_ice_out.nc'
+      CHARACTER(len=45)  ::  ccfile
+
+      ccfile = 'restart_ice_out.nc'
+
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         ccfile= TRIM(Agrif_CFixed())//'_'//TRIM(ccfile)
+      endif
+#endif
 
       inumwrs  = 61
@@ -172 +179 @@
 
       !- dummy variables :
-      CHARACTER(len=45)  ::  &
-         ccfile = 'restart_ice_in.nc'
+      CHARACTER(len=45)  ::  ccfile
       INTEGER :: &
         ji, jj
@@ -193 +199 @@
          clvnames(60)       
 
+
+       ccfile = 'restart_ice_in.nc'
+#if defined key_agrif
+      if ( .NOT. Agrif_Root() ) then
+         ccfile= TRIM(Agrif_CFixed())//'_'//TRIM(ccfile)
+      endif
+#endif
 
       !Initialisations