Changeset 1534 for trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90

Timestamp:

2009-07-24T12:35:25+02:00 (15 years ago)

Author:

cetlod

Message:

Improve the coupling interface for the carbon cycle, see ticket:488

File:

• trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90

@@ -54 +54 @@
 !!$   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   calving       !: calving
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   fr_i      !: ice fraction  (between 0 to 1)               -
+#if defined key_cpl_carbon_cycle
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   atm_co2   !: atmospheric pCO2                             [ppm]
+#endif
 
    !!----------------------------------------------------------------------