Changeset 209 for codes/icosagcm/trunk/src/disvert_ncarl30.f90

Timestamp:

07/10/14 11:31:16 (10 years ago)

Author:

ymipsl

Message:

std print only for master openmp task
YM

File:

• codes/icosagcm/trunk/src/disvert_ncarl30.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/disvert_ncarl30.f90

@@ -102 +102 @@
     DO l = 1, llm
       presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )
-  
+
+!$OMP MASTER  
      IF (is_mpi_root)  PRINT*, 'PRESNIVS(',l,')=',presnivs(l),'  Z ~ ',log(preff/presnivs(l))*8.,       &
                                ' DZ ~ ',8.*log((ap(l)+bp(l)*preff)/ max(ap(l+1)+bp(l+1)*preff,1.e-10))
+!$OMP END MASTER
     ENDDO