--- MITgcm_contrib/bling/pkg/bling_airseaflux.F 2014/05/23 17:33:42 1.1 +++ MITgcm_contrib/bling/pkg/bling_airseaflux.F 2014/06/05 21:15:17 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_airseaflux.F,v 1.1 2014/05/23 17:33:42 mmazloff Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_airseaflux.F,v 1.2 2014/06/05 21:15:17 mmazloff Exp $ C $Name: $ #include "BLING_OPTIONS.h" @@ -189,7 +189,7 @@ SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j)) C First determine local saturation pCO2 -#ifdef USE_EXFPCO2 +#ifdef USE_EXFCO2 pCO2sat(i,j) = apco2(i,j,bi,bj) #else pCO2sat(i,j) = bling_pCO2