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 12726 for NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/BDY/bdyice.F90 – NEMO

Ignore:
Timestamp:
2020-04-09T16:30:48+02:00 (4 years ago)
Author:
clem
Message:

clean useless variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/BDY/bdyice.F90

    r12720 r12726  
    271271               ! 
    272272               ! melt ponds 
    273                IF( a_i(ji,jj,jl) > epsi10 ) THEN 
    274                   a_ip_frac(ji,jj,jl) = a_ip(ji,jj,jl) / a_i (ji,jj,jl) 
    275                ELSE 
    276                   a_ip_frac(ji,jj,jl) = 0._wp 
    277                ENDIF 
    278273               v_ip(ji,jj,jl) = h_ip(ji,jj,jl) * a_ip(ji,jj,jl) 
    279274               v_il(ji,jj,jl) = h_il(ji,jj,jl) * a_ip(ji,jj,jl) 
    … …  
    289284               t_i (ji,jj,:,jl) = rt0  
    290285 
    291                a_ip_frac(ji,jj,jl) = 0._wp 
    292                a_ip     (ji,jj,jl) = 0._wp 
    293                h_ip     (ji,jj,jl) = 0._wp 
    294                h_il     (ji,jj,jl) = 0._wp 
     286               a_ip(ji,jj,jl) = 0._wp 
     287               h_ip(ji,jj,jl) = 0._wp 
     288               h_il(ji,jj,jl) = 0._wp 
    295289                
    296290               IF( nn_icesal == 1 ) THEN     ! if constant salinity 
Note: See TracChangeset for help on using the changeset viewer.