/[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.45 by dimitri, Sat Sep 22 03:11:03 2007 UTC revision 1.46 by jmc, Mon Oct 1 13:28:59 2007 UTC
# Line 127  C-    every-one waits before master thre Line 127  C-    every-one waits before master thre
127        ENDIF        ENDIF
128        IF ( EmPmRfile .NE. ' '  ) THEN        IF ( EmPmRfile .NE. ' '  ) THEN
129         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )
130           IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN
131    C-     EmPmR is now (after c59h) expressed in kg/m2/s (fresh water mass flux)
132            _BARRIER
133            DO bj = myByLo(myThid), myByHi(myThid)
134             DO bi = myBxLo(myThid), myBxHi(myThid)
135              DO j=1-Oly,sNy+Oly
136               DO i=1-Olx,sNx+Olx
137                EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
138               ENDDO
139              ENDDO
140             ENDDO
141            ENDDO
142           ENDIF
143        ENDIF        ENDIF
144        IF ( saltFluxFile .NE. ' '  ) THEN        IF ( saltFluxFile .NE. ' '  ) THEN
145         CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid )         CALL READ_FLD_XY_RS( saltFluxFile, ' ', saltFlux, 0, myThid )
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22