Changeset 1114 for LMDZ4/branches/LMDZ4-dev/makegcm

Timestamp:

Mar 3, 2009, 5:40:26 PM (15 years ago)

Author:

jghattas

Message:

Creation du module infotrac:

• contient les variables de advtrac.h
• contient la subroutine iniadvtrac renommer en infotrac_init
• le nombre des traceurs est lu dans tracer.def en dynamique (ou par default ou recu par INCA)
• ce module est utilise dans la dynamique et la physique
• contient aussi la variable nbtr qui avant etait stockee dans dimphy

Le fichier advtrac.h n'existe plus.
La compilation ne prend plus en compte le nombre de traceur.

/JG

File:

• LMDZ4/branches/LMDZ4-dev/makegcm (modified) (7 diffs)

LMDZ4/branches/LMDZ4-dev/makegcm

@@ -11 +11 @@
 set phys="PHYS=$physique"
 set include='-I$(LIBF)/grid -I$(LIBF)/bibio -I$(LIBF)/filtrez -I. '
-set ntrac = 4
 set filtre=filtrez
 set grille=reg
@@ -365 +364 @@
 -d imxjmxlm  ou im, jm, et lm sont resp. le nombre de longitudes, latitudes
              et couches verticales. 
-
--t ntrac   selectionne le nombre de traceur advectes par la dynamique.
-           Dans les versions courantes du modele terrestre on a par exemple
-           ntrac=2 pour l'eau vapeur et liquide
-
-             L'effet des options -d et -t est d'ecraser le fichier 
+             L'effet des options -d est d'ecraser le fichier 
              $LMDGCM/libf/grid/dimensions.h
-             qui contient sous forme de 4 PARAMETER FORTRAN les 3 dimensions
-             de la grille horizontale im, jm, lm plus le nombre de traceurs
-             advectes passivement par la dynamique ntrac, par un nouveu fichier
-             $LMDGCM/libf/grid/dimension/dimensions.im.jm.lm.tntrac
+             qui contient sous forme de 3 PARAMETER FORTRAN les 3 dimensions
+             de la grille horizontale im, jm et verticale lm, par un nouveu fichier
+             $LMDGCM/libf/grid/dimension/dimensions.im.jm.lm
              Si ce fichier n'existe pas encore, il est cree par le script
              $LMDGCM/libf/grid/dimension/makdim
@@ -472 +465 @@
         set parallel="$2" ; shift ; shift ; goto top
   
-     case -t
-        set ntrac=$2 ; shift ; shift ; goto top
-
      case -include
         set include="$include -I$2" ; shift ; shift ; goto top
@@ -584 +574 @@
 
 ########################################################################
-# choix du nombre de traceur par defaut si il n'a pas ete choisi,
-# suivant la physique
-########################################################################
-
-if ( $ntrac == 0  ) then
-    if ( "$physique" == 'nophys' ) then
-        set ntrac=1
-    else if ( "$physique" == 'lmd' ) then
-        set ntrac=2
-    else if ( "$physique" == 'lmd_test_li' ) then
-        set ntrac=2
-    else if ( "$physique" == 'ec' ) then
-        set ntrac=1
-    else
-        set ntrac = 1
-    endif
-endif
-
-########################################################################
 #subtilites sur le nom de la librairie
 ########################################################################
@@ -631 +602 @@
    set dim=`echo $dim | sed -e 's/[^0-9]/ /g'`
 endif
-set nomlib=${nomlib}${physique}_${dim_}_t${ntrac}_$grille
+set nomlib=${nomlib}${physique}_${dim_}_$grille
 ## M-A-F nomlib trop long sur CRAY pour ar
 if ( $CRAY ) then
-    set nomlib=F90_${dim_}_t${ntrac}
+    set nomlib=F90_${dim_}
 endif
 if ( $NEC || $XNEC || $X6NEC || $X8BRODIE ) then
-    set nomlib=F90_${dim_}_t${ntrac}_'phy'${physique}${FLAG_PARA}
+    set nomlib=F90_${dim_}_'phy'${physique}${FLAG_PARA}
 endif
 echo calcul de la dimension
@@ -664 +635 @@
 ########################################################################
 # Gestion des dimensions du modele.
-# on cree ou remplace le fichier des dimensions/nombre de traceur
+# on cree ou remplace le fichier des dimensions
 ########################################################################
 
@@ -682 +653 @@
 
 cd dimension
-./makdim $ntrac $dim
+./makdim $dim
 cat $libf/grid/dimensions.h