Changeset 1454 for LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

Timestamp:

Nov 18, 2010, 1:01:24 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Merge of LMDZ5V1.0-dev branch r1453 into LMDZ5 trunk r1434

---

Fusion entre la version r1453 de la branche de développement LMDZ5V1.0-dev
et le tronc LMDZ5 (r1434)

Location:

LMDZ5/trunk

Files:

• . (modified) (1 prop)
• libf/dyn3dpar/integrd_p.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

@@ -6 +6 @@
      $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis,finvmaold)
       USE parallel
-      USE control_mod
+      USE control_mod, only : planet_type
       IMPLICIT NONE
 
@@ -279 +279 @@
 
           CALL qminimum_p( q, nq, deltap )
-         endif ! of if (planet_type.eq."earth")
 c
 c    .....  Calcul de la valeur moyenne, unique  aux poles pour  q .....
@@ -337 +336 @@
       ENDDO
 c$OMP END DO NOWAIT
+
+      endif ! of if (planet_type.eq."earth")
+
 c
 c