/[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.46 by jmc, Mon Oct 1 13:28:59 2007 UTC revision 1.47 by jmc, Mon Oct 15 15:28:24 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  c      IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN
131  C-     EmPmR is now (after c59h) expressed in kg/m2/s (fresh water mass flux)  C-     EmPmR is now (after c59h) expressed in kg/m2/s (fresh water mass flux)
132          _BARRIER          _BARRIER
133          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
# Line 139  C-     EmPmR is now (after c59h) express Line 139  C-     EmPmR is now (after c59h) express
139            ENDDO            ENDDO
140           ENDDO           ENDDO
141          ENDDO          ENDDO
142         ENDIF  c      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.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22