Changeset 1528 for trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

Timestamp:

Apr 2, 2016, 4:09:43 PM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Got rid of references to "dimensions.h" from physics packages: use nbp_lon (=iim), nbp_lat (==jjp1) and nbp_lev from module mod_grid_phy_lmdz (in phy_common) instead.
• Added "ioipsl_getin_p_mod.F90" (getin_p routine) in phy_common to correctly read in parameters from *.def files in a parallel environment.

EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90 (modified) (6 diffs)

trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

@@ -7 +7 @@
 implicit none
 
-!#include "dimensions.h"
-!#include "dimphys.h"
-!#include "comcstfi.h"
-!#include "callkeys.h"
-!#include "comdiurn.h"
-!#include "chimiedata.h"
-!#include "tracer.h"
-!#include "conc.h"
-#include "diffusion.h"
+include "diffusion.h"
 
 ! July 2014 JYC ADD BALISTIC Transport coupling to compute wup for H and H2
@@ -937 +929 @@
         use tracer_mod, only: nqmx
         IMPLICIT NONE
-!#include "dimensions.h"
 
         INTEGER,INTENT(IN) :: nl,nq
@@ -973 +964 @@
         use tracer_mod, only: nqmx
         IMPLICIT NONE
-!#include "dimensions.h"
 
         INTEGER :: nl,nq,l
@@ -1058 +1048 @@
         use tracer_mod, only: nqmx
         IMPLICIT NONE
-!#include "dimensions.h"
         
         INTEGER :: nl,nq,il,l,i,iq,nlx,iz,ig
@@ -1400 +1389 @@
         use tracer_mod, only: nqmx
         IMPLICIT NONE
-!#include "dimensions.h"
         INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
         INTEGER,DIMENSION(1) :: indP
@@ -1502 +1490 @@
         use tracer_mod, only: nqmx
         IMPLICIT NONE
-!#include "dimensions.h"
         INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
         INTEGER,DIMENSION(1) :: indP