Changeset 776 for trunk/LMDZ.COMMON/libf/dyn3dpar/guide_p_mod.F90

Timestamp:

Sep 7, 2012, 2:49:58 PM (12 years ago)

Author:

emillour

Message:

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

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/guide_p_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/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