Changeset 4747

Timestamp:

10/14/19 13:56:22 (4 years ago)

Author:

jgipsl

Message:

As done in [4746]: Corrected bug when reading/writing restart variables with 4 or 5 dimensions. Note that this option is not used in the current reference versions of the modeles.

File:

• IOIPSL/trunk/src/restcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/restcom.f90

@@ -1403 +1403 @@
         DO ll = 1, llm
           DO jj = 1,jjm
-              ist = (((((nn-1)*mmm) + (mm-1)*llm + (ll-1))*jjm) + (jj-1))*req_sz+1
+              ist = ((((((nn-1)*mmm) + (mm-1))*llm + (ll-1))*jjm) + (jj-1))*req_sz+1
               CALL mathop (topp,req_sz,buff_tmp2(ist:ist+req_sz-1), &
  &               missing_val,nbindex,ijndex,scal,var_sz,buff_tmp1)
@@ -2204 +2204 @@
           DO jj = 1,jjm
             buff_tmp1(1:siz1) = var(:,jj,ll,mm,nn)
-            ist = (((((nn-1) * mmm) + (mm-1)*llm + (ll-1))*jjm) + (jj-1))*req_sz+1
+            ist = ((((((nn-1) * mmm) + (mm-1))*llm + (ll-1))*jjm) + (jj-1))*req_sz+1
             CALL mathop &
  &          (topp,siz1,buff_tmp1,missing_val,nbindex,ijndex, &