Changeset 65 for trunk/mesoscale/LMD_MM_MARS

Timestamp:

Feb 16, 2011, 1:11:38 AM (14 years ago)

Author:

aslmd

Message:

LMD_MM_MARS: essai nest avec ifort: correction makegcm. correction DEALLOCATE manquant dans module_lmd_driver. cependant toujours un probleme de tableau a allouer deja alloue... pas de probleme avec les autres compilateurs.

Location:

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2

Files:

• mars_lmd/makegcm_mpifort (modified) (2 diffs)
• phys/module_lmd_driver.F (modified) (2 diffs)

trunk/mesoscale/LMD_MM_MARS/SRC/WRFV2/mars_lmd/makegcm_mpifort

@@ -57 +57 @@
     echo You must initialize the variable NCDFINC in your environnement
     echo for instance: "setenv NCDFINC /usr/myself/netcdf" in .cshrc
+    exit
+  endif
+  if ( ! $?WHERE_MPI ) then
+    echo You must initialize the variable WHERE_MPI in your environnement
+    echo for instance: "setenv WHERE_MPI /home/install_mpi/bin" in .cshrc
     exit
   endif
@@ -479 +484 @@
 
 cd $libf/grid
-if ( -f dimensions.h ) then
-echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
-echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
-echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
-echo  vous pouvez continuer en repondant oui.
-echo "Voulez-vous vraiment continuer?"
-if ( $< == "oui" ) then
-\rm $libf/grid/dimensions.h
-else
-exit
-endif
-endif
+#*********WRF
+#if ( -f dimensions.h ) then
+#echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
+#echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
+#echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
+#echo  vous pouvez continuer en repondant oui.
+#echo "Voulez-vous vraiment continuer?"
+#if ( $< == "oui" ) then
+#\rm $libf/grid/dimensions.h
+#else
+#exit
+#endif
+#endif
 
 cd dimension
 makdim $ntrac $dim
 cat $libf/grid/dimensions.h
+#*********WRF nest
+#a completer par la suite
+cp -f $libf/grid/dimensions.h $libf/grid/d2_dimensions.h
+cp -f $libf/grid/dimensions.h $libf/grid/d3_dimensions.h
+cp -f $libf/grid/dimensions.h $libf/grid/d4_dimensions.h
+
 
 cd $LMDGCM

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

@@ -11 +11 @@
 !           - additions for idealized cases - January 2009
 !           - additions for new soil model in physics - January 2010 
+!           - unified module_lmd_driver: old, new phys and LES - February 2011
 !*******************************************************************************
 MODULE module_lmd_driver
@@ -895 +896 @@
 DEALLOCATE(p_prof)
 DEALLOCATE(t_prof)
+DEALLOCATE(t8w_prof)
 DEALLOCATE(u_prof)
 DEALLOCATE(v_prof)