Ignore:
Timestamp:
2020-04-09T16:30:48+02:00 (8 months 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.