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

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

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

revision 1.7 by jmc, Wed Aug 2 03:40:28 2006 UTC revision 1.8 by jmc, Sun Jun 14 21:45:12 2009 UTC
# Line 57  C Line 57  C
57        ENDDO        ENDDO
58    
59        IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN        IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN
        _BARRIER  
60  C     Read an initial state for each component if required  C     Read an initial state for each component if required
61         IF (uVelInitFile .NE. ' ')         IF (uVelInitFile .NE. ' ')
62       & CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )       & CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22