Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.5 by molod, Mon Jul 26 18:45:17 2004 UTC | revision 1.6 by molod, Wed Aug 18 15:41:18 2004 UTC | |
|---|---|---|
| # | Line 69 C-- Write fields as consecutive record | Line 69 C-- Write fields as consecutive record |
| 69 | pref = 'fizhi_T.' | pref = 'fizhi_T.' |
| 70 | WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) | WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
| 71 | call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) | call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) |
| 72 | pref = 'fizhi_S.' | |
| 73 | WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) | |
| 74 | call mdswritefield(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid) | |
| 75 | ||
| 76 | ENDIF | ENDIF |
| 77 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |