Changeset 1473 for trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

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/TRP/trdmld_trc_rst.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

@@ -132 +132 @@
       CHARACTER (len=35) :: charout
       INTEGER ::  jk, jn, jl     ! loop indice
+      INTEGER ::  jlibalt = jprstlib
+      LOGICAL ::  llok
       !!-----------------------------------------------------------------------------
       
@@ -140 +142 @@
       ENDIF
       
-      CALL iom_open( cn_trdrst_trc_in, inum, kiolib = jprstlib ) 
+      IF ( jprstlib == jprstdimg ) THEN
+        ! eventually read netcdf file (monobloc)  for restarting on different number of processors
+        ! if {cn_trdrst_trc_in}.nc exists, then set jlibalt to jpnf90
+        INQUIRE( FILE = TRIM(cn_trdrst_trc_in)//'.nc', EXIST = llok )
+        IF ( llok ) THEN ; jlibalt = jpnf90  ; ELSE ; jlibalt = jprstlib ; ENDIF
+      ENDIF
+
+      CALL iom_open( cn_trdrst_trc_in, inum, kiolib = jlibalt ) 
       
       IF( ln_trdmld_trc_instant ) THEN