Ignore:
Timestamp:
2017-02-20T13:00:57+01:00 (4 years ago)
Author:
marc
Message:

Marc 20/2/17. Fix two bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r7497 r7703  
    15471547               zalk = max(0.,trn(ji,jj,jk,jpalk)) !! alkalinity 
    15481548               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 
    15491552               !! 
    15501553               !! also need physical parameters for gas exchange calculations 
Note: See TracChangeset for help on using the changeset viewer.