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 (7 years ago)

Author:

marc

Message:

Marc 20/2/17. Fix two bugs.

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (1 diff)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -1547 +1547 @@
                zalk = max(0.,trn(ji,jj,jk,jpalk)) !! alkalinity
                zoxy = max(0.,trn(ji,jj,jk,jpoxy)) !! oxygen
+#  if defined key_axy_carbchem && defined key_mocsy
+               zpho = max(0.,trn(ji,jj,jk,jpdin)) / 16.0 !! phosphate via DIN and Redfield
+#  endif
                !!
                !! also need physical parameters for gas exchange calculations