Changeset 111 for trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F

Timestamp:

Apr 18, 2011, 8:10:30 AM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: modifications pour portage gnome: makemeso jusque 128, api avec plus de niveaux vert, scripts launch

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

@@ -1104 +1104 @@
             !!! -- 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) 
+               !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