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

Timestamp:

02/08/13 12:09:35 (11 years ago)

Author:

ymipsl

Message:

Some operations must be only done by the mpi master task.

YM

File:

• codes/icosagcm/trunk/src/disvert_ncarl30.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/disvert_ncarl30.f90

@@ -9 +9 @@
   SUBROUTINE init_disvert
   USE icosa
+  USE mpipara
   IMPLICIT NONE
   
@@ -23 +24 @@
   SUBROUTINE disvert(ap,bp,presnivs)
   USE icosa
+  USE mpipara
   IMPLICIT NONE
   REAL(rstd),INTENT(OUT) :: ap(:)
@@ -97 +99 @@
       presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff )
   
-      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))
+     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))
     ENDDO