Changeset 7703 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
- Timestamp:
- 2017-02-20T13:00:57+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r7497 r7703 1547 1547 zalk = max(0.,trn(ji,jj,jk,jpalk)) !! alkalinity 1548 1548 zoxy = max(0.,trn(ji,jj,jk,jpoxy)) !! oxygen 1549 # if defined key_axy_carbchem && defined key_mocsy 1550 zpho = max(0.,trn(ji,jj,jk,jpdin)) / 16.0 !! phosphate via DIN and Redfield 1551 # endif 1549 1552 !! 1550 1553 !! also need physical parameters for gas exchange calculations
Note: See TracChangeset
for help on using the changeset viewer.