Changeset 1473 for trunk/NEMO/TOP_SRC/SED

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/TOP_SRC/SED/sedrst.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/SED/sedrst.F90

@@ -55 +55 @@
 
       REAL(wp) :: zkt
-      CHARACTER(len = 20)  ::  cltra
+      CHARACTER(len = 20) ::   cltra
+      INTEGER             ::   jlibalt = jprstlib
+      LOGICAL             ::   llok
       !--------------------------------------------------------------------
  
@@ -65 +67 @@
       ALLOCATE( zhipor(jpoce,jpksed) ) 
 
-      CALL iom_open( 'restart_sed', numrsr, kiolib = jprstlib )     
+      IF ( jprstlib == jprstdimg ) THEN
+        ! eventually read netcdf file (monobloc)  for restarting on different number of processors
+        ! if restart_sed.nc exists, then set jlibalt to jpnf90
+        INQUIRE( FILE = 'restart_sed.nc', EXIST = llok )
+        IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF
+      ENDIF
+
+      CALL iom_open( 'restart_sed', numrsr, kiolib = jlibalt )     
       CALL iom_get( numrsr, 'kt'     , zkt      )   ! time-step