/[MITgcm]/MITgcm/verification/solid-body.cs-32x32x1/code/ini_vel.F
ViewVC logotype

Diff of /MITgcm/verification/solid-body.cs-32x32x1/code/ini_vel.F

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

revision 1.2 by jmc, Tue Feb 11 04:02:24 2003 UTC revision 1.3 by jmc, Tue Apr 28 18:06:15 2009 UTC
# Line 69  C     Read an initial state for each com Line 69  C     Read an initial state for each com
69         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
70         CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )         CALL READ_FLD_XYZ_RL( uVelInitFile, ' ', uVel, 0, myThid )
71         _END_MASTER(myThid)         _END_MASTER(myThid)
72  c      _EXCH_XYZ_R8(uVel  , myThid )  c      _EXCH_XYZ_RL(uVel  , myThid )
73        ENDIF        ENDIF
74    
75        IF (vVelInitFile .NE. ' ') THEN        IF (vVelInitFile .NE. ' ') THEN
76         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
77         CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid )         CALL READ_FLD_XYZ_RL( vVelInitFile, ' ', vVel, 0, myThid )
78         _END_MASTER(myThid)         _END_MASTER(myThid)
79  c      _EXCH_XYZ_R8(vVel  , myThid )  c      _EXCH_XYZ_RL(vVel  , myThid )
80        ENDIF        ENDIF
81    
82  c     IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN  c     IF (uVelInitFile .NE. ' ' .OR. vVelInitFile .NE. ' ') THEN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22