Changeset 144 for trunk/MESOSCALE/LMD_MM_MARS

Timestamp:

Jun 3, 2011, 4:39:05 AM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: LES: resolution du probleme rencontre sur GNOME avec mpiifort, modele instable apres quelques iterations. probleme identifie aux noeuds de decoupe du domaine pour les procs calcul parallele, par exemple sur la variable HFX. la solution quick-and-dirty suggeree en r99 semble causer des problemes avec NEWPHYS. fonctionnement correct avec NEWPHYS en enlevant ce fix ls! donc ajout d'une option precompilateur #ifndef dans module_lmd_driver

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

@@ -1116 +1116 @@
 DO i = ips,ipe
 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 *, '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"  
        !  ^-- generated from Registry