Changeset 515 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys

Timestamp:

Feb 4, 2012, 10:29:01 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: new GCM surface fields. new test case: crater. a flag for the Titus cap.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

@@ -1211 +1211 @@
 subs = (j-jps)*(ipe-ips+1)+(i-ips+1)
 
-!!! SEMBLE T IL PROBLEME AVEC NEWPHYS .... qui marche tres bien sans !
-#ifndef NEWPHYS           
-            !!! sparadrap pour regler un probleme avec mpiifort en LES
-            !!! -- HFX apparaissait nul aux interfaces des tuiles
-            if ( output_tab2d(subs,ind_HFX) .le. 1.e-8 ) then
-               !print *, 'HFX is zero !!! ', i, j
-               !print *, 'I substituted the value right next to it ', output_tab2d(subs+1,ind_HFX) 
-               output_tab2d(subs,ind_HFX) = output_tab2d(subs+1,ind_HFX)
-            endif
-#endif
+!!!! SEMBLE T IL PROBLEME AVEC NEWPHYS .... qui marche tres bien sans !
+!#ifndef NEWPHYS           
+!            !!! sparadrap pour regler un probleme avec mpiifort en LES
+!            !!! -- HFX apparaissait nul aux interfaces des tuiles
+!            if ( output_tab2d(subs,ind_HFX) .le. 1.e-8 ) then
+!               !print *, 'HFX is zero !!! ', i, j
+!               !print *, 'I substituted the value right next to it ', output_tab2d(subs+1,ind_HFX) 
+!               output_tab2d(subs,ind_HFX) = output_tab2d(subs+1,ind_HFX)
+!            endif
+!#endif
 
 #include "module_lmd_driver_output3.inc"