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 9929 for NEMO/trunk/src/ICE/icealb.F90 – NEMO

Ignore:
Timestamp:
2018-07-11T15:59:30+02:00 (6 years ago)
Author:
clem
Message:

remove unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icealb.F90

    r9910 r9929  
    149149               ! 
    150150               !                       !--- Snow-covered ice albedo (freezing, melting cases) 
    151                IF( pt_su(ji,jj,jl) < rt0_snow ) THEN 
     151               IF( pt_su(ji,jj,jl) < rt0 ) THEN 
    152152                  zalb_snw = rn_alb_sdry - ( rn_alb_sdry - zalb_ice ) * EXP( - ph_snw(ji,jj,jl) * z1_c3 ) 
    153153               ELSE 
Note: See TracChangeset for help on using the changeset viewer.