Changeset 632

Timestamp:

May 4, 2005, 5:05:57 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Rajout d'une option

-parallel false|true

a l'appel de makegcm et de la cle cpp CPP_PARALLEL à la compilation
LF

File:

• LMDZ4/trunk/makegcm (modified) (8 diffs)

LMDZ4/trunk/makegcm

@@ -17 +17 @@
 set veget=true
 set psmile=false
+set parallel=false
 set OPT_STACK='-Wf,-init stack=nan'
 set OPT_STACK=' '
@@ -29 +30 @@
 ###### VERSION LMDZ.4
 # set LMDGCM=$HOME/LMDZ.4
-#set LMDGCM="`pwd`"
+set LMDGCM="`pwd`"
+setenv LIBOGCM $LMDGCM/libo
 #
 
@@ -338 +340 @@
            pour selectionner le mode psmile ou non (par defaut)
 
+-parallel  false|true
+           pour selectionner le mode parallele ou non (false par defaut)
+
 -v true|false
            pour selectionner la vegetation (par defaut) ou non
@@ -410 +415 @@
         endif
         shift ; shift ; goto top
+
+     case -parallel
+        set parallel="$2" ; shift ; shift ; goto top
   
      case -t
@@ -488 +496 @@
    set optim90="$optim90 -DCPP_PSMILE"
    set optimtru90="$optimtru90 -DCPP_PSMILE"
+endif
+
+if ( "$parallel" == 'true' ) then
+   set optim="$optim -DCPP_PARALLEL"
+   set optim90="$optim90 -DCPP_PARALLEL"
+   set optimtru90="$optimtru90 -DCPP_PARALLEL"
 endif
 
@@ -700 +714 @@
 #  Avant de lancer le make, on recree le makefile si necessaire
 ########################################################################
+########################################################################
 # c'est a dire dans 3 cas:
 # 1. si la liste des fichiers .F et .h a ete modifiee depuis la
@@ -707 +722 @@
 # 3. Si le makefile n'existe pas.
 ########################################################################
-
+##########################################
+# On adapte d'abord certains include à F90
+##########################################
+sed -e 's/^c/\!/' $libf/grid/dimensions.h >! $libf/grid/dimensions90.tmp
+if ( ! -f $libf/grid/dimensions90.h || `diff $libf/grid/dimensions90.tmp $libf/grid/dimensions90.h | wc -w` ) then
+      \mv $libf/grid/dimensions90.tmp $libf/grid/dimensions90.h
+endif
+sed -e 's/^c/\!/' -e 's/^     s/  \&/' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
+if ( ! -f $libf/dyn3d/paramet90.h || `diff $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h | wc -w` ) then
+      \mv $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h
+endif
+sed -e 's/^c/\!/' $libf/dyn3dpar/paramet.h >! $libf/dyn3dpar/paramet90.h
+##########################################
 cd $model
 find libf -name '*.[Fh]' -print >! tmp77
@@ -871 +898 @@
 
 
-#
-# les deux test suivants sont "temporaires" pour pallier des "faiblesses" du 
-# compilateur fortran Sun: f90: SC4.0 11 Sep 1995 FORTRAN 90 1.1
-#
-#if ($code == 'create_limit' && $SUN) then
-#   set link=f77
-#   set opt_link="-L$NCDFLIB -lnetcdf"
-#endif
-
-#if ($code == 'create_etat0' && $SUN) then
-#   if ( ! -f $libo/libdyn3d.a ) then
-#     echo "Priere de compiler gcm en premier pour des raisons d'optimisation"
-#     \rm $libf/grid/dimensions.h
-#     exit
-#   endif
-#   set optim=" -dalign "
-#   set optim90=" -dalign -fixed "
-#   set opt_link="-L$IOIPSLDIR -lioipsl  -L$NCDFLIB -lnetcdf"
-#   set link="$f90 $optim90"
-#   touch $LMDGCM/libf/dyn3d/startvar.F
-#   touch $LMDGCM/libf/dyn3d/etat0_netcdf.F
-#endif
 
 #