Changeset 209 for codes/icosagcm/trunk
- Timestamp:
- 07/10/14 11:31:16 (10 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/disvert_dcmip200.f90
r186 r209 61 61 ENDDO 62 62 63 !$OMP MASTER 63 64 IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3' 64 65 IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, ' ncar_p0=',ncar_p0, ' ncar_disvert_c=',cindx 65 66 IF (is_mpi_root) PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 67 !$OMP END MASTER 66 68 67 69 END SUBROUTINE disvert -
codes/icosagcm/trunk/src/disvert_dcmip3.f90
r186 r209 60 60 ENDDO 61 61 62 !$OMP MASTER 62 63 IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3' 63 64 IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, ' ncar_p0=',ncar_p0, ' ncar_disvert_c=',cindx 64 65 IF (is_mpi_root) PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 66 !$OMP END MASTER 65 67 66 68 END SUBROUTINE disvert -
codes/icosagcm/trunk/src/disvert_ncar.f90
r186 r209 61 61 ENDDO 62 62 63 !$OMP MASTER 63 64 IF (is_mpi_root) PRINT *, 'Vertical placement of model levels according to DCMIP Appendix E.3' 64 65 IF (is_mpi_root) PRINT *, 'Parameters : ncar_dz=', ncar_dz, ' ncar_p0=',ncar_p0, ' ncar_disvert_c=',cindx 65 66 PRINT *, 'Isothermal amtosphere with ncar_T0=',ncar_T0 67 !$OMP END MASTER 66 68 67 69 END SUBROUTINE disvert -
codes/icosagcm/trunk/src/disvert_ncarl30.f90
r186 r209 102 102 DO l = 1, llm 103 103 presnivs(l) = 0.5 *( ap(l)+bp(l)*preff + ap(l+1)+bp(l+1)*preff ) 104 104 105 !$OMP MASTER 105 106 IF (is_mpi_root) PRINT*, 'PRESNIVS(',l,')=',presnivs(l),' Z ~ ',log(preff/presnivs(l))*8., & 106 107 ' DZ ~ ',8.*log((ap(l)+bp(l)*preff)/ max(ap(l+1)+bp(l+1)*preff,1.e-10)) 108 !$OMP END MASTER 107 109 ENDDO 108 110
Note: See TracChangeset
for help on using the changeset viewer.