Changeset 645 for trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

Timestamp:

May 3, 2012, 8:44:26 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

• Update of molecular diffusion routines (diffusion.h, moldiff_red.F90 and moldiffcoeff_red.F): optimized to run faster and diffuse only specific tracers (if they are present).
• bugs fixed in simpleclouds.F (extra arguments) and watercloud.F (wrong arguments in call to simpleclouds and rdust() should only be recomputed if dust_mass & dust_number tracers are available).

JYC+EM

File:

• trunk/LMDZ.MARS/libf/phymars/simpleclouds.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

@@ -1 +1 @@
       subroutine simpleclouds(ngrid,nlay,ptimestep,
-     &             pplev,pplay,pzlay,pt,pdt,
+     &             pplay,pzlay,pt,pdt,
      &             pq,pdq,pdqcloud,pdtcloud,
      &             nq,tau,rice)
@@ -41 +41 @@
       integer nq                 ! nombre de traceurs
       REAL ptimestep             ! pas de temps physique (s)
-      REAL pplev(ngrid,nlay+1)   ! pression aux inter-couches (Pa)
+!      REAL pplev(ngrid,nlay+1)   ! pression aux inter-couches (Pa)
       REAL pplay(ngrid,nlay)     ! pression au milieu des couches (Pa)
       REAL pzlay(ngrid,nlay)     ! altitude at the middle of the layers