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

Timestamp:

Aug 18, 2011, 12:09:27 PM (13 years ago)

Author:

emillour

Message:

Ehouarn: Mise a jour des dynamiques (seq et ) pour suivre
les changements et developpements de LMDZ5 terrestre
(mise a niveau avec LMDZ5 trunk, rev 1560). Ce qui ne devrais pas changer grand chose au fonctionnement de base du GCM).
Modification importante: correction du bug sur le cumul des flux de masse pour le transport des traceurs (mais dans les faits semble avoir peu d'impact).
(voir "commit_importants.log" pour les details des ajouts et modifications).

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/iniacademic.F90 (modified) (3 diffs)

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

@@ -1 +1 @@
 !
-! $Id: iniacademic.F90 1520 2011-05-23 11:37:09Z emillour $
+! $Id: iniacademic.F90 1529 2011-05-26 15:17:33Z fairhead $
 !
 SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
@@ -115 +115 @@
   endif
 
-  academic_case: if (iflag_phys == 2) then
+  academic_case: if (iflag_phys >= 2) then
      ! initializations
 
@@ -208 +208 @@
      IF (.NOT. read_start) THEN
         ! surface pressure
-        ps(:)=preff
+        if (iflag_phys>2) then
+           ps(:)=108080.  ! Earth aqua/terra planets
+        else
+           ps(:)=preff
+        endif
         ! ground geopotential
         phis(:)=0.