Changeset 1036 for trunk/LMDZ.MARS/libf/grid/dimension/makdim

Timestamp:

Sep 11, 2013, 2:34:44 PM (11 years ago)

Author:

emillour

Message:

Mars GCM: (a first step towards using parallel dynamics)

• IMPORTANT CHANGE: Implemented dynamic tracers. It is no longer necessary to compile the model with the '-t #' option, number of tracers is simply read from tracer.def file (as before). Adapted makegcm_* scripts (and co.) accordingly. Technical aspects of the switch to dynamic tracers are:
  • advtrac.h (in dyn3d) removed and replaced by module infotrac.F
  • tracer.h (in phymars) removed and replaced by module tracer_mod.F90 (which contains nqmx, the number of tracers, etc. and can be used anywhere in the physics).
• Included some side cleanups: removed unused files (in dyn3d) anldoppler2.F, anl_mcdstats.F and anl_stats-diag.F, and all the unecessary dimensions.* files in grid/dimension.
• Checked that changes are clean and that GCM yields identical results (in debug mode) to previous svn version.

EM

File:

• trunk/LMDZ.MARS/libf/grid/dimension/makdim (modified) (4 diffs)

trunk/LMDZ.MARS/libf/grid/dimension/makdim

@@ -1 @@
-nqmx=$1
-shift
+
 for i in $* ; do
    list=$list.$i
 done
-fichdim=dimensions${list}.t${nqmx}
+fichdim=dimensions${list}
 
 
@@ -15 +14 @@
    lm=$3
    n2=$1
-   ndm=1
+#   ndm=1
 
 #  while [ "$n2" -gt 2 ]; do
@@ -30 +29 @@
        jm=$1
       lm=$2
-      ndm=1
+#      ndm=1
  else if [ $# -ge 1 ] ; then
          im=1
          jm=1
          lm=$1
-         ndm=1
+#         ndm=1
  else
          echo il faut au moins une dimension
@@ -49 +48 @@
 !   dimensions.h contient les dimensions du modele
 !   ndm est tel que iim=2**ndm
-!   nqmx est la dimension de la variable traceur q
 !-----------------------------------------------------------------------
 
-      INTEGER, parameter :: iim= $im
+      INTEGER, parameter :: iim=$im
       INTEGER, parameter :: jjm=$jm
       INTEGER, parameter :: llm=$lm
-      INTEGER, parameter :: ndm=$ndm
-
-      integer, parameter :: nqmx=$nqmx
 
 !-----------------------------------------------------------------------