/[MITgcm]/MITgcm/model/src/write_myfield.F
ViewVC logotype

Diff of /MITgcm/model/src/write_myfield.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Wed Mar 24 21:39:44 2004 UTC revision 1.2 by cnh, Fri Mar 26 20:29:09 2004 UTC
# Line 96  C       Write each snap-shot as a new fi Line 96  C       Write each snap-shot as a new fi
96  C       - creates many files but for large configurations is easier to  C       - creates many files but for large configurations is easier to
97  C         transfer analyse a particular snap-shots  C         transfer analyse a particular snap-shots
98          WRITE(suff,'(I10.10)') myIter          WRITE(suff,'(I10.10)') myIter
99          CALL WRITE_FLD_XYZ_RL( localfile,suff,myField,myIter,myThid)          STOP 'WRITE_FLD_XYZ_RL CALL INCORRECT - CONTACT SUPPORT'
100    C       CALL WRITE_FLD_XYZ_RL( localfile,suff,myField,myIter,myThid)
101    
102  #endif /* MULTIPLE_RECORD_STATE_FILES */  #endif /* MULTIPLE_RECORD_STATE_FILES */
103    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22