/[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.3 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.4 by adcroft, Tue Aug 28 12:58:10 2001 UTC
# Line 59  c      _EXCH_XYZ_R8(uVel  , myThid ) Line 59  c      _EXCH_XYZ_R8(uVel  , myThid )
59  c      _EXCH_XYZ_R8(vVel  , myThid )  c      _EXCH_XYZ_R8(vVel  , myThid )
60        ENDIF        ENDIF
61    
62    c     IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN
63           CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
64           _EXCH_XYZ_R8(wVel,myThid)
65    c     ENDIF
66    
67        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
68         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
69          DO k=1,Nr          DO k=1,Nr
# Line 76  c      _EXCH_XYZ_R8(vVel  , myThid ) Line 81  c      _EXCH_XYZ_R8(vVel  , myThid )
81         ENDDO         ENDDO
82        ENDDO        ENDDO
83    
 c     IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN  
        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)  
        _EXCH_XYZ_R8(wVel,myThid)  
 c     ENDIF  
   
84        RETURN        RETURN
85        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22