Changeset 174 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jun 23, 2011, 4:06:41 PM (13 years ago)
Author:
emillour
Message:

Mars GCM:

  • correct bug (introduced previously) in lect_start_archive.F on loop boundaries for soil temperature.

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dyn3d/lect_start_archive.F

    r164 r174  
    11361136        allocate(oldval(nsoilold+1))
    11371137        allocate(newval(nsoilmx))
    1138         do i=1,iip1
    1139          do j=1,jjp1
     1138        do i=1,imold+1
     1139         do j=1,jmold+1
    11401140           ! copy values
    11411141           oldval(1)=tsurfold(i,j)
    … …  
    11681168        oldgrid(1)=0. ! ground
    11691169        oldgrid(2:nsoilold+1)=mlayerold(1:nsoilold)
    1170         do i=1,iip1
    1171          do j=1,jjp1
     1170        do i=1,imold+1
     1171         do j=1,jmold+1
    11721172           ! copy values
    11731173           oldval(1)=tsurfold(i,j)
Note: See TracChangeset for help on using the changeset viewer.