Changeset 99 for trunk/mesoscale/LMD_MM_MARS/SRC

Timestamp:

Mar 22, 2011, 6:59:34 PM (14 years ago)

Author:

aslmd

Message:

LMD_LES_MARS: corrections bug valeurs nulles du flux de chaleur sensible. script llsubmit universel.

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

@@ -1101 +1101 @@
 DO i = ips,ipe
 subs = (j-jps)*(ipe-ips+1)+(i-ips+1)
+            !!! 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
 #include "module_lmd_driver_output3.inc"  
        !  ^-- generated from Registry
-!TSK(i,j) = output_tab2d(subs,ind_TSURF)
 ENDDO
 ENDDO