Changeset 8495 for branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
- Timestamp:
- 2017-09-04T18:50:10+02:00 (7 years ago)
- 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 88 88 #if defined key_roam 89 89 NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit, & 90 # if defined key_foam_medusa 91 & xobs_xco2a, & 92 # endif 90 93 & xthetarem,xo2min 91 94 #endif … … 474 477 & ' key_debug_medusa = INACTIVE' 475 478 # 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 476 486 WRITE(numout,*) ' ' 477 487 … … 990 1000 xthetarem = 0. 991 1001 xo2min = 0. 1002 # if defined key_foam_medusa 1003 xobs_xco2a = 0. 1004 # endif 992 1005 993 1006 !READ(numnatm,natroam) … … 1009 1022 !! xthetarem : oxygen consumption by carbon remineralisation 1010 1023 !! xo2min : oxygen minimum concentration 1024 # if defined key_foam_medusa 1025 !! xobs_xco2a : observed atmospheric xCO2 1026 # endif 1011 1027 1012 1028 IF(lwp) THEN … … 1026 1042 WRITE(numout,*) & 1027 1043 & ' oxygen minimum concentration xo2min = ', xo2min 1044 # if defined key_foam_medusa 1045 WRITE(numout,*) & 1046 & ' observed atmospheric xCO2 xobs_xco2a = ', xobs_xco2a 1047 # endif 1028 1048 ENDIF 1029 1049
Note: See TracChangeset
for help on using the changeset viewer.