Changeset 141

Timestamp:

May 27, 2011, 11:33:40 AM (14 years ago)

Author:

emillour

Message:

Mars: EM

minor bug correction in writeg1d (JYC)
add "-check" to debug option in makegcm_ifort

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/writeg1d.F (modified) (1 diff)
• makegcm_ifort (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -645 +645 @@
        -- IF (doubleq.AND.active) name_iaer(1) = "dust_doubleq"
        -- IF (water.AND.activice) name_iaer(2) = "h2o_ice"  
+
+== 27/05/2011 == EM
+>> minor bug correction in writeg1d (JYC)
+>> add "-check" to debug option in makegcm_ifort

trunk/LMDZ.MARS/libf/phymars/writeg1d.F

@@ -100 +100 @@
         WRITE(g1d_unitfich,REC=g1d_irec) xr4(1)
       ELSE
-        DO ilayer=1,g1d_nlayer
+        DO ilayer=1,nx
           g1d_irec=g1d_irec+1
           WRITE(g1d_unitfich,REC=g1d_irec) xr4(ilayer)

trunk/LMDZ.MARS/makegcm_ifort

@@ -368 +368 @@
         else if $LINUX then
            ## for ifort
-             set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
-             set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
-             set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
+             set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
+             set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
+             set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
         else 
            echo "pas d option debug predefinie pour cette machine"