Changeset 8140
- Timestamp:
- 2017-06-05T12:52:48+02: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
r8137 r8140 4817 4817 !! no need to output, just pass to cpl var 4818 4818 IF (lk_oasis) THEN 4819 zn_chl_srf(:,:) = trn(:,:,1,jpchd) + trn(:,:,1,jpchn)4819 zn_chl_srf(:,:) = (trn(:,:,1,jpchd) + trn(:,:,1,jpchn)) * 1.0E-6 !! surf Chl in Kg-chl/m3 as needed for cpl 4820 4820 chloro_out_cpl(:,:) = zn_chl_srf(:,:) !! Coupling Chl 4821 4821 END IF
Note: See TracChangeset
for help on using the changeset viewer.