- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/trc_oce.F90
r10888 r10986 86 86 WRITE(numout,*) ' trc_oce_rgb : Initialisation of the optical look-up table' 87 87 WRITE(numout,*) ' ~~~~~~~~~~~ ' 88 IF(lflush) CALL FLUSH(numout) 88 89 ENDIF 89 90 ! … … 154 155 ! 155 156 r_si2 = 1.e0 / zrgb(2, 1) ! blue with the smallest chlorophyll concentration) 156 IF(lwp) WRITE(numout,*) ' RGB longest depth of extinction r_si2 = ', r_si2 157 IF(lwp) THEN 158 WRITE(numout,*) ' RGB longest depth of extinction r_si2 = ', r_si2 159 IF(lflush) CALL FLUSH(numout) 160 ENDIF 157 161 ! 158 162 DO jc = 1, 61 ! check 159 163 zchl = zrgb(1,jc) 160 164 irgb = NINT( 41 + 20.* LOG10( zchl ) + 1.e-15 ) 161 IF(lwp .AND. nn_print >= 1 ) WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' irgb = ', irgb 165 IF(lwp .AND. nn_print >= 1 ) THEN 166 WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' irgb = ', irgb 167 IF(lflush) CALL FLUSH(numout) 168 ENDIF 162 169 IF( irgb /= jc ) THEN 163 170 IF(lwp) WRITE(numout,*) ' jc =', jc, ' Chl = ', zchl, ' Chl class = ', irgb
Note: See TracChangeset
for help on using the changeset viewer.