Changeset 174

Timestamp:

Jun 23, 2011, 4:06:41 PM (14 years ago)

Author:

emillour

Message:

Mars GCM:

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

EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/dyn3d/lect_start_archive.F (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -759 +759 @@
 - Added buoyancy diagnostics
 - Minor modifications in thermals routines 
+
+== 23/06/2011 == EM
+- correct bug (introduced previously) in lect_start_archive.F on loop
+  boundaries for soil temperature.

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

@@ -1136 +1136 @@
         allocate(oldval(nsoilold+1))
         allocate(newval(nsoilmx))
-        do i=1,iip1 
-         do j=1,jjp1 
+        do i=1,imold+1
+         do j=1,jmold+1
            ! copy values
            oldval(1)=tsurfold(i,j)
@@ -1168 +1168 @@
         oldgrid(1)=0. ! ground
         oldgrid(2:nsoilold+1)=mlayerold(1:nsoilold)
-        do i=1,iip1 
-         do j=1,jjp1 
+        do i=1,imold+1
+         do j=1,jmold+1
            ! copy values
            oldval(1)=tsurfold(i,j)