/[MITgcm]/MITgcm/pkg/atm_compon_interf/atm_store_aim_fields.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/atm_store_aim_fields.F

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

revision 1.1 by jmc, Wed Sep 11 20:17:27 2013 UTC revision 1.2 by jmc, Sat Sep 28 00:15:18 2013 UTC
# Line 36  C     == Global variables == Line 36  C     == Global variables ==
36    
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "PARAMS.h"  #include "PARAMS.h"
39    c#include "ATMIDS.h"
40  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
41  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
42  # include "AIM2DYN.h"  # include "AIM2DYN.h"
# Line 74  C       that will be exported to the cou Line 75  C       that will be exported to the cou
75         ENDDO         ENDDO
76    
77  #ifdef ALLOW_AIM_CO2  #ifdef ALLOW_AIM_CO2
78        IF ( atmCpl_exchange_DIC ) THEN  c     IF ( atmCpl_exchange_DIC ) THEN
79  C     o Accumulate atmospheric CO2 from Aim pkg that will be exported  C     o Accumulate atmospheric CO2 from Aim pkg that will be exported
80  C       to the coupling layer.  C       to the coupling layer.
81         airCO2Time(bi,bj) = airCO2Time(bi,bj) + cplTimeFraction         airCO2Time(bi,bj) = airCO2Time(bi,bj) + cplTimeFraction
# Line 84  C       to the coupling layer. Line 85  C       to the coupling layer.
85       &                      + aim_CO2(i,j,bi,bj)*cplTimeFraction       &                      + aim_CO2(i,j,bi,bj)*cplTimeFraction
86          ENDDO          ENDDO
87         ENDDO         ENDDO
88        ENDIF  c     ENDIF
89  #endif /* ALLOW_AIM_CO2 */  #endif /* ALLOW_AIM_CO2 */
90    
91  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22