| 1 |
jscott |
1.1 |
print *,'J=',JPR,' L=',LPR,' P PT PX' |
| 2 |
|
|
print *,P(1,JPR),PT(1,JPR),PX(1,JPR) |
| 3 |
|
|
print *,' T(J,L)=',T(1,JPR,LPR),' Q(J,L)=',Q(1,JPR,LPR) |
| 4 |
|
|
print *,' TT(J,L)=',TT(1,JPR,LPR),' QT(J,L)=',QT(1,JPR,LPR) |
| 5 |
|
|
print *,' TX(J,L)=',TX(1,JPR,LPR),' DOPK=',DOPK |
| 6 |
|
|
print *,' V(J,L)=',V(1,JPR,LPR),' V(J+1,L)=',V(1,JPR+1,LPR) |
| 7 |
|
|
print *,' VT(J,L)=',VT(1,JPR,LPR),' VT(J+1,L)=',VT(1,JPR+1,LPR) |
| 8 |
|
|
print *,' VX(J,L)=',VX(1,JPR,LPR),' VX(J+1,L)=',VX(1,JPR+1,LPR) |
| 9 |
|
|
print *,' U(J,L)=',U(1,JPR,LPR),' U(J+1,L)=',U(1,JPR+1,LPR) |
| 10 |
|
|
print *,' UT(J,L)=',UT(1,JPR,LPR),' UT(J+1,L)=',UT(1,JPR+1,LPR) |
| 11 |
|
|
print *,' UX(J,L)=',UX(1,JPR,LPR),' UX(J+1,L)=',UX(1,JPR+1,LPR) |
| 12 |
|
|
print *,'ODATA(1,JPR,1)',ODATA(1,JPR,1) |
| 13 |
|
|
c print*,' AJL(59) from main' |
| 14 |
|
|
c do l=1,lm |
| 15 |
|
|
c do j=1,jm |
| 16 |
|
|
c if(j.eq.20.or.j.eq.2)then |
| 17 |
|
|
c print '(2i5,f10.2)',(l,j,AJL(j,l,59)) |
| 18 |
|
|
c endif |
| 19 |
|
|
c enddo |
| 20 |
|
|
c enddo |
Parent Directory
| 
Revision Log
| 
Revision Graph