Changeset 5847 for branches/ORCHIDEE_2_2

Timestamp:

2019-03-25T13:56:22+01:00 (5 years ago)

Author:

josefine.ghattas

Message:

As done in the trunk rev [5846]: Corrected bug: this bug and alos the one corrected in [5843] are only important when running with DYNAMCIO. Using the offline driver or LMDZ regular grid, a call restclo without arguments is done which closes all restart files.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/ioipslctrl.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/ioipslctrl.f90

@@ -3504 +3504 @@
     IF (is_root_prc) THEN
       DO n=1,nb_restfile_ids
-        CALL restclo(restfile_ids(nb_restfile_ids))
+        CALL restclo(restfile_ids(n))
       ENDDO
     ENDIF