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

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

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

revision 1.6 by cnh, Tue Jun 9 18:57:38 1998 UTC revision 1.7 by cnh, Wed Jun 10 01:44:03 1998 UTC
# Line 74  C          fu(i,j,bi,bj) = -tauMax Line 74  C          fu(i,j,bi,bj) = -tauMax
74        ELSE        ELSE
75         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
76         CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid )         CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid )
77           DO bj = myByLo(myThid), myByHi(myThid)
78            DO bi = myBxLo(myThid), myBxHi(myThid)
79             DO j=1,sNy
80              DO i=1,sNx
81               fu(i,j,bi,bj) = fu(i,j,bi,bj)/(delZ(1)*rhonil)
82              ENDDO
83             ENDDO
84            ENDDO
85           ENDDO
86         _END_MASTER(myThid)         _END_MASTER(myThid)
87        ENDIF        ENDIF
88  C  C
# Line 92  C Line 101  C
101        ELSE        ELSE
102         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
103         CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid )         CALL READ_FLD_XY_RS( meridWindFile, ' ', fv, 0, myThid )
104           DO bj = myByLo(myThid), myByHi(myThid)
105            DO bi = myBxLo(myThid), myBxHi(myThid)
106             DO j=1,sNy
107              DO i=1,sNx
108               fv(i,j,bi,bj) = fv(i,j,bi,bj)/(delZ(1)*rhonil)
109              ENDDO
110             ENDDO
111            ENDDO
112           ENDDO
113         _END_MASTER(myThid)         _END_MASTER(myThid)
114        ENDIF        ENDIF
115  C  C
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22