Changeset 10754 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
- Timestamp:
- 2019-03-14T17:12:01+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/trc_oce.F90
r10745 r10754 188 188 zchl = zrgb(1,jc) 189 189 irgb = NINT( 41 + 20.* LOG10( zchl ) + 1.e-15 ) 190 IF(lwp .AND. nprint > = 1) WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' irgb = ', irgb190 IF(lwp .AND. nprint > 3 ) WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' irgb = ', irgb 191 191 IF( irgb /= jc ) THEN 192 192 IF(lwp) WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' Chl class = ', irgb
Note: See TracChangeset
for help on using the changeset viewer.