Changeset 209 for codes/icosagcm/trunk/src/disvert_ncar.f90
- Timestamp:
- 07/10/14 11:31:16 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.