Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by adcroft, Mon Jun 22 15:26:26 1998 UTC | revision 1.2.12.1 by heimbach, Fri Mar 7 05:23:29 2003 UTC | |
|---|---|---|
| # | Line 258 C MITgcmUV | Line 258 C MITgcmUV |
| 258 | ||
| 259 | open(99,file='POLY3.COEFFS',form='formatted',status='unknown') | open(99,file='POLY3.COEFFS',form='formatted',status='unknown') |
| 260 | write(99,*) NumLevels | write(99,*) NumLevels |
| 261 | write(99,*) (ab(3,J),ab(4,J),ab(2,J),J=1 , NumLevels) | write(99,'(3(G20.13))') (ab(3,J),ab(4,J),ab(2,J),J=1 , NumLevels) |
| 262 | do J=1,NumLevels | do J=1,NumLevels |
| 263 | write(99,*)(AB(I,J),I=5,13) | write(99,'(3(G20.13))')(AB(I,J),I=5,13) |
| 264 | enddo | enddo |
| 265 | close(99) | close(99) |
| 266 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |