- Timestamp:
- 2017-10-18T16:13:12+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r8607 r8632 282 282 ELSE 283 283 IF(lwp) WRITE(numout,*) 'Chl surf concentration - setting to zero ...' 284 zn_chl_srf(:,:) = (trn(:,:,1,jpchn) + trn(:,:,1,jpchd)) * scl_chl * 1.E-6284 zn_chl_srf(:,:) = MAX( 0.0, (trn(:,:,1,jpchn) + trn(:,:,1,jpchd)) * scl_chl * 1.E-6 ) 285 285 ENDIF 286 286 IF (lk_oasis) THEN
Note: See TracChangeset
for help on using the changeset viewer.