Changeset 841 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Nov 13, 2012, 9:21:32 AM (12 years ago)

Author:

emillour

Message:

Common dynamics:

• updates to keep up with LMDZ5 Earth (rev 1678) changes
• fixed bug in leapfrog_p.F: parallel dynamics now work fine.
• see file "DOC/chantiers/commit_importants.log" for details.

EM

File:

• trunk/LMDZ.TITAN/libf/phytitan/iniphysiq.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/iniphysiq.F

@@ -8 +8 @@
      $           pdayref,ptimestep,
      $           plat,plon,parea,pcu,pcv,
-     $           prad,pg,pr,pcpp)
+     $           prad,pg,pr,pcpp,iflag_phys)
 
 c
@@ -49 +49 @@
 
       REAL prad,pg,pr,pcpp,punjours
- 
+      INTEGER,INTENT(IN) :: iflag_phys ! type of physics to be called
       INTEGER ngrid,nlayer
       REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)