Changeset 998 for trunk/LMDZ.MARS/libf/phymars/getslopes.F90

Timestamp:

Jun 28, 2013, 4:57:08 PM (11 years ago)

Author:

tnavarro

Message:

a trick to compile testphys1d with debug option

File:

• trunk/LMDZ.MARS/libf/phymars/getslopes.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/getslopes.F90

@@ -25 +25 @@
 real grady(iim,jjm+1) ! y: longitude-wise topography gradient, increasing westward
 integer i,j,ig0
+integer id2,idm1 ! a trick to compile testphys1d with debug option
 
+id2  = 2
+idm1 = iim-1
 
 ! rearrange topography on a 2d array
@@ -53 +56 @@
      gradx(i,j) = gradx(i,j) / rad
    enddo
-   grady(1,j) = (topogrid(2,j) - topogrid(iim,j)) / (2*pi+longgrid(2,j)-longgrid(iim,j)) 
+   grady(1,j) = (topogrid(id2,j) - topogrid(iim,j)) / (2*pi+longgrid(id2,j)-longgrid(iim,j)) 
    grady(1,j) = grady(1,j) / rad
-   grady(iim,j) = (topogrid(1,j) - topogrid(iim-1,j)) / (2*pi+longgrid(1,j)-longgrid(iim-1,j)) 
+   grady(iim,j) = (topogrid(1,j) - topogrid(idm1,j)) / (2*pi+longgrid(1,j)-longgrid(idm1,j)) 
    grady(iim,j) = grady(iim,j) / rad
    do i=2,iim-1