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/ICE/iceistate.F90

    r12725 r12726  
    157157      v_ip     (:,:,:) = 0._wp 
    158158      v_il     (:,:,:) = 0._wp 
    159       a_ip_frac(:,:,:) = 0._wp 
    160159      a_ip_eff (:,:,:) = 0._wp 
    161160      h_ip     (:,:,:) = 0._wp 
     
    377376 
    378377         ! Melt ponds 
    379          WHERE( a_i > epsi10 )   ;   a_ip_frac(:,:,:) = a_ip(:,:,:) / a_i(:,:,:) 
    380          ELSEWHERE               ;   a_ip_frac(:,:,:) = 0._wp 
     378         WHERE( a_i > epsi10 )   ;   a_ip_eff(:,:,:) = a_ip(:,:,:) / a_i(:,:,:) 
     379         ELSEWHERE               ;   a_ip_eff(:,:,:) = 0._wp 
    381380         END WHERE 
    382          a_ip_eff(:,:,:) = a_ip_frac(:,:,:) 
    383381         v_ip(:,:,:) = h_ip(:,:,:) * a_ip(:,:,:) 
    384382         v_il(:,:,:) = h_il(:,:,:) * a_ip(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.