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/trcnam_medusa.F90

    r8131 r8457  
    8888#if defined key_roam 
    8989      NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        & 
     90# if defined key_foam_medusa 
     91      &    xobs_xco2a,                                        & 
     92# endif 
    9093      &    xthetarem,xo2min  
    9194#endif 
     
    569572         &   ' key_debug_medusa                                                       = INACTIVE' 
    570573# endif 
     574#if defined key_foam_medusa 
     575         WRITE(numout,*)     & 
     576         &   ' key_foam_medusa                                                        = ACTIVE' 
     577#else 
     578         WRITE(numout,*)     & 
     579         &   ' key_foam_medusa                                                        = INACTIVE' 
     580#endif 
    571581         WRITE(numout,*) ' ' 
    572582 
     
    10851095      xthetarem = 0. 
    10861096      xo2min    = 0. 
     1097# if defined key_foam_medusa 
     1098      xobs_xco2a = 0. 
     1099# endif 
    10871100 
    10881101      !READ(numnatm,natroam) 
     
    11041117!!       xthetarem :  oxygen consumption by carbon remineralisation 
    11051118!!       xo2min    :  oxygen minimum concentration 
     1119# if defined key_foam_medusa 
     1120!!       xobs_xco2a : observed atmospheric xCO2 
     1121# endif 
    11061122 
    11071123      IF(lwp) THEN 
     
    11211137          WRITE(numout,*)     & 
    11221138          &   ' oxygen minimum concentration                               xo2min      = ', xo2min 
     1139# if defined key_foam_medusa 
     1140          WRITE(numout,*)     & 
     1141          &   ' observed atmospheric xCO2                                  xobs_xco2a  = ', xobs_xco2a 
     1142# endif 
    11231143       ENDIF 
    11241144 
Note: See TracChangeset for help on using the changeset viewer.