Ignore:
Timestamp:
2020-04-09T15:48:28+02:00 (8 months ago)
Author:
clem
Message:

fix previous revision. Make sure a_ip and a_ip_eff are correct

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/iceistate.F90

    r12720 r12725  
    377377 
    378378         ! Melt ponds 
    379          WHERE( a_i > epsi10 ) 
    380             a_ip_frac(:,:,:) = a_ip(:,:,:) / a_i(:,:,:) 
    381          ELSEWHERE 
    382             a_ip_frac(:,:,:) = 0._wp 
     379         WHERE( a_i > epsi10 )   ;   a_ip_frac(:,:,:) = a_ip(:,:,:) / a_i(:,:,:) 
     380         ELSEWHERE               ;   a_ip_frac(:,:,:) = 0._wp 
    383381         END WHERE 
    384382         a_ip_eff(:,:,:) = a_ip_frac(:,:,:) 
     
    456454      e_s_b  (:,:,:,:) = e_s  (:,:,:,:) 
    457455      sv_i_b (:,:,:)   = sv_i (:,:,:) 
    458       oa_i_b (:,:,:)   = oa_i (:,:,:) 
    459456      u_ice_b(:,:)     = u_ice(:,:) 
    460457      v_ice_b(:,:)     = v_ice(:,:) 
Note: See TracChangeset for help on using the changeset viewer.