Parent Directory | Revision Log | Revision Graph | 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 ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |