Changeset 5951 for branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
- Timestamp:
- 2015-11-30T12:48:01+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.4_OBS_GENERAL_VINTERP/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r5950 r5951 189 189 CALL fld_read( kt, 1, sf_chl ) ! Read Chl data and provides it at the current time step 190 190 ! 191 !CDIR COLLAPSE192 !CDIR NOVERRCHK193 191 DO jj = 1, jpj ! Separation in R-G-B depending of the surface Chl 194 !CDIR NOVERRCHK195 192 DO ji = 1, jpi 196 193 zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj,1) ) ) … … 217 214 ! 218 215 DO jk = 2, nksr+1 219 !CDIR NOVERRCHK220 216 DO jj = 1, jpj 221 !CDIR NOVERRCHK222 217 DO ji = 1, jpi 223 218 zc0 = ze0(ji,jj,jk-1) * EXP( - fse3t(ji,jj,jk-1) * xsi0r ) … … 495 490 496 491 DO jk = 2, nksr+1 497 !CDIR NOVERRCHK498 492 DO jj = 1, jpj 499 !CDIR NOVERRCHK500 493 DO ji = 1, jpi 501 494 zc0 = ze0(ji,jj,jk-1) * EXP( - e3t_0(ji,jj,jk-1) * xsi0r )
Note: See TracChangeset
for help on using the changeset viewer.