/[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.6 by jmc, Mon Oct 7 16:24:45 2002 UTC revision 1.7 by jmc, Wed Aug 2 03:40:28 2006 UTC
# Line 26  C     === Global variables === Line 26  C     === Global variables ===
26    
27  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
28  C     == Routine arguments ==  C     == Routine arguments ==
29  C     myThid -  Number of this instance of INI_VEL  C     myThid ::  Number of this instance of INI_VEL
30        INTEGER myThid        INTEGER myThid
31    
32  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
33  C     == Local variables ==  C     == Local variables ==
34  C     bi,bj,i,j,k - Loop counters  C     i,j,k  :: Loop counters
35    C     bi,bj  :: tile indices
36        INTEGER bi,bj,i,j,k        INTEGER bi,bj,i,j,k
37  CEOP  CEOP
38    
# Line 55  C Line 56  C
56         ENDDO         ENDDO
57        ENDDO        ENDDO
58    
59          IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN
60           _BARRIER
61  C     Read an initial state for each component if required  C     Read an initial state for each component if required
62        IF (uVelInitFile .NE. ' ') THEN         IF (uVelInitFile .NE. ' ')
63         _BEGIN_MASTER( myThid )       & CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )
        CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )  
        _END_MASTER(myThid)  
 c      _EXCH_XYZ_R8(uVel  , myThid )  
       ENDIF  
64    
65        IF (vVelInitFile .NE. ' ') THEN         IF (vVelInitFile .NE. ' ')
66         _BEGIN_MASTER( myThid )       & CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid )
        CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid )  
        _END_MASTER(myThid)  
 c      _EXCH_XYZ_R8(vVel  , myThid )  
       ENDIF  
67    
 c     IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN  
68         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
69  c     ENDIF        ENDIF
70    
71        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
72         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22