Changeset 209

Timestamp:

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

Author:

ymipsl

Message:

std print only for master openmp task
YM

Location:

codes/icosagcm/trunk/src

Files:

• disvert_dcmip200.f90 (modified) (1 diff)
• disvert_dcmip3.f90 (modified) (1 diff)
• disvert_ncar.f90 (modified) (1 diff)
• disvert_ncarl30.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/disvert_dcmip200.f90

@@ -61 +61 @@
   ENDDO
 
+!$OMP MASTER  
   IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3'
   IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, '  ncar_p0=',ncar_p0, '  ncar_disvert_c=',cindx
   IF (is_mpi_root) PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 
+!$OMP END MASTER  
 
 END SUBROUTINE disvert

codes/icosagcm/trunk/src/disvert_dcmip3.f90

@@ -60 +60 @@
   ENDDO
 
+!$OMP MASTER  
   IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3'
   IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, '  ncar_p0=',ncar_p0, '  ncar_disvert_c=',cindx
   IF (is_mpi_root) PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 
+!$OMP END MASTER  
 
 END SUBROUTINE disvert

codes/icosagcm/trunk/src/disvert_ncar.f90

@@ -61 +61 @@
   ENDDO
 
+!$OMP MASTER  
   IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3'
   IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, '  ncar_p0=',ncar_p0, '  ncar_disvert_c=',cindx
   PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 
+!$OMP END MASTER  
 
 END SUBROUTINE disvert

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