| [3051] | 1 | SUBROUTINE writerestart1D(psurf,tsurf,nlayer,temp,u,v,nq,qnames,qsurf,q) |
|---|
| [2948] | 2 | |
|---|
| [3045] | 3 | implicit none |
|---|
| [2948] | 4 | |
|---|
| [3051] | 5 | ! Arguments |
|---|
| 6 | integer, intent(in) :: nlayer, nq |
|---|
| 7 | real, intent(in) :: psurf, tsurf |
|---|
| 8 | real, dimension(nlayer), intent(in) :: temp, u, v |
|---|
| 9 | real, dimension(nlayer,nq), intent(in) :: q |
|---|
| 10 | real, dimension(nq), intent(in) :: qsurf |
|---|
| 11 | character(len = *), dimension(nq), intent(in) :: qnames |
|---|
| [2948] | 12 | |
|---|
| [3051] | 13 | ! Local variables |
|---|
| 14 | integer :: il, iq |
|---|
| [2948] | 15 | |
|---|
| [3051] | 16 | ! Write the data needed for a restart in "restart1D.txt" |
|---|
| 17 | open(1,file = 'restart1D.txt',status = "replace",action = "write") |
|---|
| 18 | do iq = 1,nq |
|---|
| 19 | write(1,*) qnames(iq), qsurf(iq), (q(il,iq), il = 1,nlayer) |
|---|
| [3045] | 20 | enddo |
|---|
| [3051] | 21 | write(1,*) 'ps', psurf |
|---|
| 22 | write(1,*) 'u', (u(il), il = 1,nlayer) |
|---|
| 23 | write(1,*) 'v', (v(il), il = 1,nlayer) |
|---|
| 24 | write(1,*) 'teta', tsurf, (temp(il), il = 1,nlayer) |
|---|
| [3045] | 25 | close(1) |
|---|
| [2948] | 26 | |
|---|
| [3051] | 27 | END SUBROUTINE writerestart1D |
|---|
