Changeset 1473 for trunk/NEMO/LIM_SRC_2

Timestamp:

2009-06-12T16:07:47+02:00 (15 years ago)

Author:

smasson

Message:

for dimgout: allow changing the number of proc for restart, see ticket:442

File:

• trunk/NEMO/LIM_SRC_2/limrst_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limrst_2.F90

@@ -170 +170 @@
       !!----------------------------------------------------------------------
       REAL(wp) ::   ziter
+      INTEGER  ::   jlibalt = jprstlib
+      LOGICAL  ::   llok
       INTEGER  ::   itest
       !!----------------------------------------------------------------------
@@ -179 +181 @@
       ENDIF
 
-      CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib )
+      IF ( jprstlib == jprstdimg ) THEN
+        ! eventually read netcdf file (monobloc)  for restarting on different number of processors
+        ! if {cn_icerst_in}.nc exists, then set jlibalt to jpnf90
+        INQUIRE( FILE = TRIM(cn_icerst_in)//'.nc', EXIST = llok )
+        IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF
+      ENDIF
+
+      CALL iom_open ( cn_icerst_in, numrir, kiolib = jlibalt )
 
       CALL iom_get( numrir, 'kt_ice' , ziter )