New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1425 – NEMO

Changeset 1425


Ignore:
Timestamp:
2009-05-06T18:44:52+02:00 (15 years ago)
Author:
ctlod
Message:

fix a small compilation error related to the implementation of RGB, see ticket: #428

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/TRA/traqsr.F90

    r1423 r1425  
    138138                  DO ji = 1, jpi 
    139139                     zchl = MIN( 10. , MAX( 0.03, sf_chl(1)%fnow(ji,jj) ) ) 
    140                      achl(ji,jj) = zchl 
    141140                     irgb = NINT( 41 + 20.*LOG10(zchl) + 1.e-15 ) 
    142141                     zekb(ji,jj) = rkrgb(1,irgb) 
     
    232231      INTEGER  ::   ji, jj, jk     ! dummy loop indices 
    233232      INTEGER  ::   irgb, ierror   ! temporary integer 
    234       REAL(wp) ::   zc0  , zc1  , zem     ! temporary scalars 
     233      REAL(wp) ::   zc0  , zc1            ! temporary scalars 
    235234      REAL(wp) ::   zc2  , zc3  , zchl    !    -         - 
    236235      REAL(wp) ::   zsi0r, zsi1r, zcoef   !    -         - 
Note: See TracChangeset for help on using the changeset viewer.