Changeset 4747 for IOIPSL


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/restcom.f90

    r3474 r4747  
    14031403        DO ll = 1, llm 
    14041404          DO jj = 1,jjm 
    1405               ist = (((((nn-1)*mmm) + (mm-1)*llm + (ll-1))*jjm) + (jj-1))*req_sz+1 
     1405              ist = ((((((nn-1)*mmm) + (mm-1))*llm + (ll-1))*jjm) + (jj-1))*req_sz+1 
    14061406              CALL mathop (topp,req_sz,buff_tmp2(ist:ist+req_sz-1), & 
    14071407 &               missing_val,nbindex,ijndex,scal,var_sz,buff_tmp1) 
     
    22042204          DO jj = 1,jjm 
    22052205            buff_tmp1(1:siz1) = var(:,jj,ll,mm,nn) 
    2206             ist = (((((nn-1) * mmm) + (mm-1)*llm + (ll-1))*jjm) + (jj-1))*req_sz+1 
     2206            ist = ((((((nn-1) * mmm) + (mm-1))*llm + (ll-1))*jjm) + (jj-1))*req_sz+1 
    22072207            CALL mathop & 
    22082208 &          (topp,siz1,buff_tmp1,missing_val,nbindex,ijndex, & 
Note: See TracChangeset for help on using the changeset viewer.