Changeset 209 for codes/icosagcm/trunk/src/disvert_dcmip200.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_dcmip200.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