Changeset 1510 for trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F

Timestamp:

Jan 16, 2016, 4:15:48 PM (9 years ago)

Author:

emillour

Message:

Common dynamics:

• Fix missing declaration (from rev. 1508) in integrd_p to compile and run in OpenMP.

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3dpar/integrd_p.F

@@ -5 +5 @@
      $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
      $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis) !,finvmaold)
-      USE parallel_lmdz, ONLY: ij_begin, ij_end, pole_nord, pole_sud
+      USE parallel_lmdz, ONLY: ij_begin, ij_end, pole_nord, pole_sud,
+     &                         omp_chunk
       USE control_mod, only : planet_type
       USE comvert_mod, ONLY: ap,bp