Changeset 14586 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcopt_medusa.F90
- Timestamp:
- 2021-03-04T16:29:51+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_readchl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcopt_medusa.F90
r14388 r14586 126 126 DO jj = 1, jpj 127 127 DO ji = 1, jpi 128 !totchl = trn(ji,jj,jk,jpchn) + trn(ji,jj,jk,jpchd) 129 totchl = chl_for_qsr(ji,jj,jk) 128 IF ( ln_chlbio ) THEN 129 totchl = chl_for_qsr(ji,jj,jk) 130 ELSE 131 totchl = trn(ji,jj,jk,jpchn) + trn(ji,jj,jk,jpchd) 132 ENDIF 130 133 totchl = MIN( 10. , MAX( 0.05, totchl ) ) 131 134 irgb = NINT( 41 + 20.* LOG10( totchl ) + 1.e-15 )
Note: See TracChangeset
for help on using the changeset viewer.