Changeset 1358

Timestamp:

Oct 27, 2014, 9:48:43 AM (10 years ago)

Author:

emillour

Message:

Mars GCM:
Correction wrt rev 1357; comcstfi.h no longer exists.
EM

File:

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

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

@@ -8 +8 @@
 !#include "dimensions.h"
 !#include "dimphys.h"
-#include "comcstfi.h"
+!#include "comcstfi.h"
 !#include "callkeys.h"
 !#include "comdiurn.h"
@@ -72 +72 @@
       real*8,dimension(:),allocatable,save :: Mtot1,Mtot2,Mraf1,Mraf2
       character(len=20),dimension(14) :: ListeDiff
+      real*8,parameter :: pi=3.141592653
+      real*8,parameter :: g=3.72d0
 !ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 !     tracer numbering in the molecular diffusion
@@ -212 +214 @@
       kbolt=1.3806504d-23
       RgazP=8.314472    
-      PI =3.141592653
-      g=3.72d0
+!      PI =3.141592653
+!      g=3.72d0
       Rmars=3390000d0 ! Used to compute escape parameter no need to be more accurate
         Grav=6.67d-11