source:
trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90
@
3036
| Last change on this file since 3036 was 3000, checked in by , 2 years ago | |
|---|---|
| File size: 318 bytes | |
| Rev | Line | |
|---|---|---|
| [3000] | 1 | SUBROUTINE writeprofile(nlev,data,name2,qsurf) |
| [2948] | 2 | |
| 3 | ||
| 4 | IMPLICIT NONE | |
| 5 | ||
| 6 | ! arguments: | |
| [3000] | 7 | INTEGER nlev |
| [2948] | 8 | REAL data(nlev) |
| [2981] | 9 | REAL qsurf |
| [2948] | 10 | CHARACTER(len=30) :: name2 |
| 11 | ||
| 12 | !local | |
| 13 | INTEGER il | |
| 14 | ||
| 15 | !write the data | |
| [3000] | 16 | OPEN(1,file='profile_out_'//trim(name2),form='formatted') |
| 17 | write(1,*) qsurf | |
| [2948] | 18 | DO il=1,nlev |
| [3000] | 19 | write(1,*) data(il) |
| [2948] | 20 | ENDDO |
| [3000] | 21 | CLOSE(1) |
| [2948] | 22 | RETURN |
| 23 | END |
Note: See TracBrowser
for help on using the repository browser.
