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/OCE/SBC/sbccpl.F90

    r12288 r12725  
    23082308            SELECT CASE( sn_snd_mpnd%clcat )   
    23092309            CASE( 'yes' )   
    2310                ztmp3(:,:,1:jpl) =  a_ip_frac(:,:,1:jpl) 
     2310               ztmp3(:,:,1:jpl) =  a_ip_eff(:,:,1:jpl) 
    23112311               ztmp4(:,:,1:jpl) =  h_ip(:,:,1:jpl)   
    23122312            CASE( 'no' )   
     
    23142314               ztmp4(:,:,:) = 0.0   
    23152315               DO jl=1,jpl   
    2316                  ztmp3(:,:,1) = ztmp3(:,:,1) + a_ip_frac(:,:,jpl)   
     2316                 ztmp3(:,:,1) = ztmp3(:,:,1) + a_ip_eff(:,:,jpl)   
    23172317                 ztmp4(:,:,1) = ztmp4(:,:,1) + h_ip(:,:,jpl)  
    23182318               ENDDO   
Note: See TracChangeset for help on using the changeset viewer.