Changeset 1425
- Timestamp:
- 2009-05-06T18:44:52+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traqsr.F90
r1423 r1425 138 138 DO ji = 1, jpi 139 139 zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj) ) ) 140 achl(ji,jj) = zchl141 140 irgb = NINT( 41 + 20.*LOG10(zchl) + 1.e-15 ) 142 141 zekb(ji,jj) = rkrgb(1,irgb) … … 232 231 INTEGER :: ji, jj, jk ! dummy loop indices 233 232 INTEGER :: irgb, ierror ! temporary integer 234 REAL(wp) :: zc0 , zc1 , zem! temporary scalars233 REAL(wp) :: zc0 , zc1 ! temporary scalars 235 234 REAL(wp) :: zc2 , zc3 , zchl ! - - 236 235 REAL(wp) :: zsi0r, zsi1r, zcoef ! - -
Note: See TracChangeset
for help on using the changeset viewer.