/[MITgcm]/MITgcm/pkg/dic/dic_atmos.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_atmos.F

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

revision 1.15 by jmc, Sun Apr 11 20:59:27 2010 UTC revision 1.16 by jmc, Sun Apr 11 21:04:39 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
5  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
 #undef DIC_OLD_TRUNCATION  
6    
7  CBOP  CBOP
8  C !ROUTINE: DIC_ATMOS  C !ROUTINE: DIC_ATMOS
# Line 25  C !USES: =============================== Line 24  C !USES: ===============================
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "GRID.h"  #include "GRID.h"
 c#include "DYNVARS.h"  
 c#include "FFIELDS.h"  
27  #include "DIC_VARS.h"  #include "DIC_VARS.h"
28  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
29  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
# Line 126  C linearly interpolate between file entr Line 123  C linearly interpolate between file entr
123    
124        ENDIF        ENDIF
125    
   
126  C interactive atmosphere  C interactive atmosphere
127        IF (dic_int1.EQ.3) THEN        IF (dic_int1.EQ.3) THEN
128    
# Line 203  C calculate new atmos pCO2 Line 199  C calculate new atmos pCO2
199         total_ocean_carbon = total_carbon         total_ocean_carbon = total_carbon
200         atpco2 = total_atmos_carbon/total_atmos_moles         atpco2 = total_atmos_carbon/total_atmos_moles
201    
 c     print*,'QQpCO2', total_atmos_carbon, atpco2, total_ocean_carbon,  
 c    &                 total_flux  
   
202         WRITE(ioUnit,*) 'QQ atmos C, total, pCo2',         WRITE(ioUnit,*) 'QQ atmos C, total, pCo2',
203       &                     total_atmos_carbon, atpco2       &                     total_atmos_carbon, atpco2
204         total_carbon=total_atmos_carbon + total_ocean_carbon         total_carbon=total_atmos_carbon + total_ocean_carbon
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22