Ignore:
Timestamp:
2017-09-04T18:50:10+02:00 (3 years ago)
Author:
dford
Message:

Merge in changes from dev_r5518_GO6_package_asm_surf_bgc, and adapt to the updated MEDUSA structure.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r8442 r8495  
    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 
     
    474477         &   ' key_debug_medusa                                                       = INACTIVE' 
    475478# endif 
     479#if defined key_foam_medusa 
     480         WRITE(numout,*)     & 
     481         &   ' key_foam_medusa                                                        = ACTIVE' 
     482#else 
     483         WRITE(numout,*)     & 
     484         &   ' key_foam_medusa                                                        = INACTIVE' 
     485#endif 
    476486         WRITE(numout,*) ' ' 
    477487 
     
    9901000      xthetarem = 0. 
    9911001      xo2min    = 0. 
     1002# if defined key_foam_medusa 
     1003      xobs_xco2a = 0. 
     1004# endif 
    9921005 
    9931006      !READ(numnatm,natroam) 
     
    10091022!!       xthetarem :  oxygen consumption by carbon remineralisation 
    10101023!!       xo2min    :  oxygen minimum concentration 
     1024# if defined key_foam_medusa 
     1025!!       xobs_xco2a : observed atmospheric xCO2 
     1026# endif 
    10111027 
    10121028      IF(lwp) THEN 
     
    10261042          WRITE(numout,*)     & 
    10271043          &   ' oxygen minimum concentration                               xo2min      = ', xo2min 
     1044# if defined key_foam_medusa 
     1045          WRITE(numout,*)     & 
     1046          &   ' observed atmospheric xCO2                                  xobs_xco2a  = ', xobs_xco2a 
     1047# endif 
    10281048       ENDIF 
    10291049 
Note: See TracChangeset for help on using the changeset viewer.