Changeset 1216 for trunk/LMDZ.GENERIC/libf/grid/dimension/makdim

Timestamp:

Apr 3, 2014, 9:09:47 AM (11 years ago)

Author:

emillour

Message:

Generic model:
Major cleanup, in order to ease the use of LMDZ.GENERIC with (parallel) dynamics
in LMDZ.COMMON: (NB: this will break LMDZ.UNIVERSAL, which should be thrashed
in the near future)

• Updated makegcm_* scripts (and makdim) and added the "-full" (to enforce full recomputation of the model) option
• In dyn3d: converted control.h to module control_mod.F90 and converted iniadvtrac.F to module infotrac.F90
• Added module mod_const_mpi.F90 in dyn3d (not used in serial mode)
• Rearanged input/outputs routines everywhere to handle serial/MPI cases. physdem.F => phyredem.F90 , phyetat0.F => phyetat0.F90 ; all read/write routines for startfi files are gathered in module iostart.F90
• added parallelism related routines init_phys_lmdz.F90, comgeomphy.F90, dimphy.F90, iniphysiq.F90, mod_grid_phy_lmdz.F90, mod_phys_lmdz_mpi_data.F90, mod_phys_lmdz_mpi_transfert.F90, mod_phys_lmdz_omp_data.F90, mod_phys_lmdz_omp_transfert.F90, mod_phys_lmdz_para.F90, mod_phys_lmdz_transfert_para.F90 in phymars and mod_const_mpi.F90 in dyn3d (for compliance with parallelism)
• added created generic routines 'planetwide_maxval' and 'planetwide_minval', in module "planetwide_mod", that enable obtaining the max and min of a field over the whole planet. This should be further imroved with computation of means (possibly area weighed), etc.

EM

File:

• trunk/LMDZ.GENERIC/libf/grid/dimension/makdim (modified) (3 diffs)

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

@@ -1 +1 @@
 #!/bin/bash
 
-nqmx=$1
-shift
+#nqmx=$1
+#shift
 for i in $* ; do
    list=$list.$i
 done
-
-fichdim=dimensions${list}.t${nqmx}
+fichdim=dimensions${list}
+#fichdim=dimensions${list}.t${nqmx}
 
 echo $fichdim
@@ -18 +18 @@
    jm=$2
    lm=$3
-   n2=$1
+#   n2=$1
    ndm=1
 
@@ -51 +51 @@
 !   INCLUDE 'dimensions.h'
 !
-!   dimensions.h contient les dimensions du modele
-!   ndm est tel que iim=2**ndm
-!   nqmx est la dimension de la variable traceur q
+!   dimensions.h contains the model dimensions
+!   
 !-----------------------------------------------------------------------
 
-      INTEGER, parameter :: iim= $im
+      INTEGER, parameter :: iim=$im
       INTEGER, parameter :: jjm=$jm
       INTEGER, parameter :: llm=$lm
       INTEGER, parameter :: ndm=$ndm
-
-      integer, parameter :: nqmx=$nqmx
 
 !-----------------------------------------------------------------------