Changeset 787 for LMDZ4/trunk/makegcm


Ignore:
Timestamp:
Jun 19, 2007, 12:48:32 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Adaptation makegcm: -lblas sur brodie

  • abandon programme psmile
  • creation des bons includes dans dyn3dpar
  • suppression gestion de oasis.FF90dummytrue
  • chgt de nom de libo sur les necs (rajout PARA)

JG, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/makegcm

    r768 r787  
    1717set veget=false
    1818set chimie=false
    19 set psmile=false
     19set psmile=true
    2020set parallel=false
    2121set vampir=false
    … …  
    458458        set veget="$2" ; shift ; shift ; goto top
    459459
    460      case -psmile
    461         set psmile="$2"
    462         if ( "$psmile" == 'true' ) then
    463           set couple='true'
    464         endif
    465         shift ; shift ; goto top
    466 
    467460     case -chimie
    468461        set chimie="$2" ; shift ; shift ; goto top
    … …  
    581574endif
    582575
    583 if ( "$psmile" == 'true' ) then
    584    set cppflags="$cppflags -DCPP_PSMILE"
    585 endif
    586 
    587576set FLAG_PARA=''
    588577if ( "$parallel" == 'true' ) then
    … …  
    657646endif
    658647if ( $NEC || $XNEC || $X6NEC || $X8BRODIE ) then
    659     set nomlib=F90_${dim_}_t${ntrac}
     648    set nomlib=F90_${dim_}_t${ntrac}${FLAG_PARA}
    660649endif
    661650echo calcul de la dimension
    … …  
    762751
    763752########################################################################
    764 #  utilisation des vraies routines de couplage si on est en couple
    765 ########################################################################
    766 if ( $couple == 'true' ) then
    767   banner couple
    768   pwd
    769   if ( "$psmile" == 'true' ) then
    770      if ( -f $libf/phy$physique/oasis.F ) then
    771         \rm $libf/phy$physique/oasis.F
    772      endif
    773      if ( ! -f $libf/phy$physique/oasis.F90 ) then
    774        \cp $libf/phy$physique/oasis.psmile $libf/phy$physique/oasis.F90
    775      endif
    776      if ( `diff $libf/phy$physique/oasis.F90 $libf/phy$physique/oasis.psmile | wc -w` ) then
    777        \cp $libf/phy$physique/oasis.psmile $libf/phy$physique/oasis.F90
    778      endif
    779   else
    780      if ( -f $libf/phy$physique/oasis.F90 ) then
    781        \rm $libf/phy$physique/oasis.F90
    782      endif
    783      if (! -f $libf/phy$physique/oasis.F ) then
    784        \cp $libf/phy$physique/oasis.true $libf/phy$physique/oasis.F
    785      else
    786        if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true | wc -w` ) then
    787 #         \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy
    788          \cp $libf/phy$physique/oasis.true $libf/phy$physique/oasis.F
    789        endif
    790      endif
    791   endif
    792 else
    793   if ( -f $libf/phy$physique/oasis.F90 ) then
    794     \rm $libf/phy$physique/oasis.F90
    795   endif
    796   if (! -f $libf/phy$physique/oasis.F ) then
    797     \cp $libf/phy$physique/oasis.dummy $libf/phy$physique/oasis.F
    798   else
    799     if ( `diff $libf/phy$physique/oasis.F $libf/phy$physique/oasis.dummy | wc -w` ) then
    800       \cp $libf/phy$physique/oasis.F $libf/phy$physique/oasis.true
    801       \cp $libf/phy$physique/oasis.dummy $libf/phy$physique/oasis.F
    802     endif
    803   endif
    804 endif
    805 ########################################################################
    806753#  Avant de lancer le make, on recree le makefile si necessaire
    807754########################################################################
    … …  
    821768#      \mv $libf/grid/dimensions90.tmp $libf/grid/dimensions90.h
    822769#endif
    823 awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     s/) {if (NR > 1) print p0," &"; sub ("     s","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
    824 # sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     s/ \&\n     \& /g ; p }' $libf/dyn3d/paramet.h >! $libf/dyn3d/paramet90.tmp
    825 if ( ! -f $libf/dyn3d/paramet90.h || `diff $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h | wc -w` ) then
    826       \mv $libf/dyn3d/paramet90.tmp $libf/dyn3d/paramet90.h
    827 endif
    828 awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     \./) {if (NR > 1) print p0," &"; sub ("     \.","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d/control.h >! $libf/dyn3d/control.tmp
    829 #sed -n -e 's/^c/\!/' -e '1 h' -e '2,$ H' -e '$ { x ; s/\n     \./ \&\n     \& /g ; p }' $libf/dyn3d/control.h >! $libf/dyn3d/control.tmp
    830 if ( ! -f $libf/dyn3d/control.inc  || `diff $libf/dyn3d/control.tmp $libf/dyn3d/control.inc | wc -w` ) then
    831       \mv $libf/dyn3d/control.tmp $libf/dyn3d/control.inc
     770awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     s/) {if (NR > 1) print p0," &"; sub ("     s","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d${FLAG_PARA}/paramet.h >! $libf/dyn3d${FLAG_PARA}/paramet90.tmp
     771if ( ! -f $libf/dyn3d${FLAG_PARA}/paramet90.h || `diff $libf/dyn3d${FLAG_PARA}/paramet90.tmp $libf/dyn3d${FLAG_PARA}/paramet90.h | wc -w` ) then
     772      \mv $libf/dyn3d${FLAG_PARA}/paramet90.tmp $libf/dyn3d${FLAG_PARA}/paramet90.h
     773endif
     774awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     \./) {if (NR > 1) print p0," &"; sub ("     \.","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/dyn3d${FLAG_PARA}/control.h >! $libf/dyn3d${FLAG_PARA}/control.tmp
     775if ( ! -f $libf/dyn3d${FLAG_PARA}/control.inc  || `diff $libf/dyn3d${FLAG_PARA}/control.tmp $libf/dyn3d${FLAG_PARA}/control.inc | wc -w` ) then
     776      \mv $libf/dyn3d${FLAG_PARA}/control.tmp $libf/dyn3d${FLAG_PARA}/control.inc
    832777endif
    833778awk 'BEGIN {} { sub ("^c","\!") ; if ($0 ~ /^     S/) {if (NR > 1) print p0," &"; sub ("     S","     \\&")} else { if (NR > 1) print p0  } p0=$0 } END { print p0}' $libf/phylmd/YOMCST.h >! $libf/phylmd/YOMCST.tmp
    … …  
    839784      \mv $libf/phylmd/clesphys.tmp $libf/phylmd/clesphys.inc
    840785endif
    841 #sed -e 's/^c/\!/' $libf/dyn3dpar/paramet.h >! $libf/dyn3dpar/paramet90.h
    842786##########################################
    843787cd $model
    … …  
    998942     endif
    999943     if ($couple == true) then
    1000         if ($psmile == true) then
    1001         set opt_link="$opt_link -lsxioipsl -float0 $optdbl -P static $NCDFLIB "
    1002         else
    1003         set opt_link="$opt_link -lsxioipsl -loasis2.4_mpi2 -float0 $optdbl -P static $NCDFLIB "
    1004         endif
     944       set opt_link="$opt_link -lsxioipsl -float0 $optdbl -P static $NCDFLIB "
    1005945     else
    1006946       set opt_link="$opt_link -lsxioipsl -float0 $optdbl -P static $NCDFLIB "
    … …  
    1008948   else
    1009949#     set opt_link=" -float0 $optdbl -P static -L$MODIPSLDIR -lsxsechiba -lsxparameters -lsxstomate -lsxioipsl $NCDFLIB "
    1010      set opt_link=" -float0 $optdbl -P static -L$MODIPSLDIR -lsxioipsl $NCDFLIB "
     950     set opt_link=" -float0 $optdbl -P static -L$MODIPSLDIR -lsxioipsl $NCDFLIB -lblas"
    1011951
    1012952   endif
Note: See TracChangeset for help on using the changeset viewer.