/[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.49 by jmc, Fri May 16 01:53:27 2008 UTC revision 1.50 by jmc, Sun Jun 14 21:45:12 2009 UTC
# Line 110  C-    Initialise all arrays in common bl Line 110  C-    Initialise all arrays in common bl
110        ENDDO        ENDDO
111    
112  C-    every-one waits before master thread loads from file  C-    every-one waits before master thread loads from file
113        _BARRIER  C     this is done within IO routines => no longer needed
114    c     _BARRIER
115    
116        IF ( zonalWindFile .NE. ' '  ) THEN        IF ( zonalWindFile .NE. ' '  ) THEN
117         CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid )         CALL READ_FLD_XY_RS( zonalWindFile, ' ', fu, 0, myThid )
# Line 127  C-    every-one waits before master thre Line 128  C-    every-one waits before master thre
128         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )
129  c      IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN  c      IF ( convertEmP2rUnit.EQ.mass2rUnit ) THEN
130  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)
         _BARRIER  
131          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
132           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
133            DO j=1-Oly,sNy+Oly            DO j=1-Oly,sNy+Oly
# Line 161  c      ENDIF Line 161  c      ENDIF
161         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )         CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )
162         IF ( surfQFile .NE. ' '  ) THEN         IF ( surfQFile .NE. ' '  ) THEN
163  C-     Qnet is now (after c54) the net Heat Flux (including SW)  C-     Qnet is now (after c54) the net Heat Flux (including SW)
         _BARRIER  
164          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
165           DO bi = myBxLo(myThid), myBxHi(myThid)           DO bi = myBxLo(myThid), myBxHi(myThid)
166            DO j=1-OLy,sNy+OLy            DO j=1-OLy,sNy+OLy
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22