Changeset 492 for trunk/LMDZ.COMMON/libf/dyn3dpar/iniacademic.F90

Timestamp:

Jan 5, 2012, 8:28:41 AM (13 years ago)

Author:

emillour

Message:

Common dynamics: updates to keep up with LMDZ5 Earth (rev 1605)
See file "DOC/chantiers/commit_importants.log" for details.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/iniacademic.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/iniacademic.F90

@@ -209 +209 @@
         ! surface pressure
         if (iflag_phys>2) then
-           ps(:)=108080.  ! Earth aqua/terra planets
-        else
+           ! specific value for CMIP5 aqua/terra planets
+           ! "Specify the initial dry mass to be equivalent to
+           !  a global mean surface pressure (101325 minus 245) Pa."
+           ps(:)=101080.  
+        else
+           ! use reference surface pressure
            ps(:)=preff
         endif
+        
         ! ground geopotential
         phis(:)=0.