Ignore:
Timestamp:
2017-08-23T15:27:51+02:00 (3 years ago)
Author:
dford
Message:

Option to read in a value for atmospheric xCO2.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r8436 r8457  
    13201320         f_xco2a = fq4 
    13211321      endif 
     1322#  if defined key_foam_medusa 
     1323      IF ( xobs_xco2a > 0.0 ) THEN 
     1324         IF(lwp) WRITE(numout,*) ' using observed atm pCO2 = ', xobs_xco2a 
     1325         f_xco2a = xobs_xco2a 
     1326      ELSE 
     1327         IF(lwp) WRITE(numout,*) ' xobs_xco2a <= 0 so using default atm pCO2' 
     1328      ENDIF 
     1329#  endif 
    13221330#  if defined key_axy_pi_co2 
    13231331      !! f_xco2a = 284.725       !! CMIP5 pre-industrial pCO2 
Note: See TracChangeset for help on using the changeset viewer.