/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_atmos.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_atmos.F

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

revision 1.2 by stephd, Mon May 9 20:17:39 2011 UTC revision 1.3 by stephd, Thu May 26 16:21:56 2011 UTC
# Line 81  C     Problem with I/O and global-sum fo Line 81  C     Problem with I/O and global-sum fo
81  C     Needs to be fixed before using this S/R in multi-threaded run  C     Needs to be fixed before using this S/R in multi-threaded run
82          STOP 'S/R DIC_ATMOS: multi-threaded not right'          STOP 'S/R DIC_ATMOS: multi-threaded not right'
83        ENDIF        ENDIF
84  #ifdef USE_EXFCO2  # ifdef USE_EXFCO2
85              DO bj=myByLo(myThid),myByHi(myThid)
86               DO bi=myBxLo(myThid),myBxHi(myThid)
87              DO j=1-OLy,sNy+OLy              DO j=1-OLy,sNy+OLy
88               DO i=1-OLx,sNx+OLx               DO i=1-OLx,sNx+OLx
89                 AtmospCO2(i,j,bi,bj)=apco2(i,j,bi,bj)                 AtmospCO2(i,j,bi,bj)=apco2(i,j,bi,bj)
90               ENDDO               ENDDO
91              ENDDO              ENDDO
92  #else             ENDDO
93              ENDDO
94    # else
95    
96  c default - set only once  c default - set only once
97        if (dic_int1.eq.0.and.istate.eq.0) then        if (dic_int1.eq.0.and.istate.eq.0) then
# Line 291  c     _END_MASTER(myThid) Line 295  c     _END_MASTER(myThid)
295    
296        endif        endif
297    
298  #endif  # endif  /*USE_EXFCO2*/
299  #endif  #endif
300    
301        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22