/[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.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by stephd, Mon May 9 20:17:39 2011 UTC
# Line 34  C !USES: =============================== Line 34  C !USES: ===============================
34  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
35  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
36  #include "DIC_ATMOS.h"  #include "DIC_ATMOS.h"
37    #ifdef USE_EXFWIND
38    #include "EXF_FIELDS.h"
39    #endif
40    
41  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
42  C  myThid               :: thread number  C  myThid               :: thread number
# Line 78  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
85                DO j=1-OLy,sNy+OLy
86                 DO i=1-OLx,sNx+OLx
87                   AtmospCO2(i,j,bi,bj)=apco2(i,j,bi,bj)
88                 ENDDO
89                ENDDO
90    #else
91    
92  c default - set only once  c default - set only once
93        if (dic_int1.eq.0.and.istate.eq.0) then        if (dic_int1.eq.0.and.istate.eq.0) then
# Line 282  c     _END_MASTER(myThid) Line 292  c     _END_MASTER(myThid)
292        endif        endif
293    
294  #endif  #endif
295    #endif
296    
297        RETURN        RETURN
298        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22