Changeset 1665 for LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90

Timestamp:

Oct 9, 2012, 3:35:26 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1628

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1628

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/guide_p_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90

@@ -455 +455 @@
 !       Calcul niveaux pression milieu de couches 
         CALL pression_p( ip1jmp1, ap, bp, ps, p )
-        if (disvert_type==1) then
+        if (pressure_exner) then
           CALL exner_hyb_p(ip1jmp1,ps,p,alpha,beta,pks,pk,pkf)
         else
@@ -755 +755 @@
     ELSE
         CALL pression_p( ip1jmp1, ap, bp, psi, p )
-        if (disvert_type==1) then
+        if (pressure_exner) then
           CALL exner_hyb_p(ip1jmp1,psi,p,alpha,beta,pks,pk,pkf)
-        else ! we assume that we are in the disvert_type==2 case
+        else
           CALL exner_milieu_p(ip1jmp1,psi,p,beta,pks,pk,pkf)
         endif