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

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

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

revision 1.4 by cnh, Tue May 26 21:29:45 1998 UTC revision 1.5 by cnh, Wed May 27 21:01:47 1998 UTC
# Line 65  C--    Write "text-plots" of certain fie Line 65  C--    Write "text-plots" of certain fie
65        ENDIF        ENDIF
66    
67  C--   Write model state to binary file  C--   Write model state to binary file
68         CALL WRITE_STATE( myCurrentTime, myIter, myThid )        CALL WRITE_STATE( myCurrentTime, myIter, myThid )
 C      WRITE(suff,'(I10.10)') myIter  
 C      CALL DFILE_SET_RW  
 C      CALL DFILE_SET_CONT_ON_ERROR  
 C      CALL WRITE_FLD_XYZ(  'U.',suff,      uVel)  
 C      CALL WRITE_FLD_XYZ(  'V.',suff,      vVel)  
 C      CALL WRITE_FLD_XYZ(  'T.',suff,     theta)  
 C      CALL WRITE_FLD_XYZ(  'S.',suff,      salt)  
 C      CALL WRITE_FLD_XYZ(  'W.',suff,  IO_tmp3d)  
 C      CALL WRITE_FLD_XYZ('RHO.',suff,  IO_tmp3d)  
 C      CALL WRITE_FLD_XYZ( 'PH.',suff,  IO_tmp3d)  
 C      CALL WRITE_FLD_XY ( 'PS.',suff,  IO_tmp2d)  
69    
 C--   Write model checkpoint files  
 C     nCheck = 1,2,...nCheckLev, 1,2,...nCheckLev, etc...  
 C     CALL WRITE_CHECKPOINT( myIter, myThid )  
 C     nCheck = MOD(nCheck,nCheckLev)+1  
 C     suff   = checkPtSuff(nCheck)  
 C     CALL DFILE_SET_RW  
 C     CALL DFILE_SET_CONT_ON_ERROR  
 C     CALL WRITE_FLD_XYZ(  'uVel.',suff,uVel  )  
 C     CALL WRITE_FLD_XYZ(  'vVel.',suff,vVel  )  
 C     CALL WRITE_FLD_XYZ( 'theta.',suff,theta )  
 C     CALL WRITE_FLD_XYZ(  'salt.',suff,salt  )  
 C     CALL WRITE_FLD_XY ('cg2d_x.',suff,cg2d_x)  
 C     CALL WRITE_FLD_XYZ(    'gu.',suff,gu    )  
 C     CALL WRITE_FLD_XYZ(    'gv.',suff,gv    )  
 C     CALL WRITE_FLD_XYZ( 'gunm1.',suff,gunm1 )  
 C     CALL WRITE_FLD_XYZ( 'gvnm1.',suff,gvnm1 )  
   
70        _BARRIER        _BARRIER
71  C  C
72        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22