Changeset 11937


Ignore:
Timestamp:
2019-11-20T14:34:26+01:00 (2 months ago)
Author:
gsamson
Message:

dev_r11265_ABL: put back lbc_lnk for tracers to ensure mpp reproductibility (#2131)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/ABL/ablmod.F90

    r11873 r11937  
    4545              &          , ptm_su,pssu_ice,pssv_ice,pssq_ice,pcd_du_ice  &  
    4646              &          , psen_ice, pevp_ice, pwndm_ice, pfrac_oce      &  
    47               &          , ptaui_ice,     ptauj_ice                      & 
     47              &          , ptaui_ice, ptauj_ice                          & 
    4848#endif            
    4949           &   ) 
     
    485485      ! 
    486486      CALL lbc_lnk_multi( 'ablmod',  u_abl(:,:,:,nt_a      ), 'T', -1.,  v_abl(:,:,:,nt_a      ), 'T', -1. ) 
     487      CALL lbc_lnk_multi( 'ablmod', tq_abl(:,:,:,nt_a,jp_ta), 'T',  1., tq_abl(:,:,:,nt_a,jp_qa), 'T',  1., kfillmode = jpfillnothing )   ! ++++ this should not be needed... 
    487488      ! 
    488489      ! first ABL level 
     
    10461047      END DO      
    10471048 
    1048      DO jj = 2, jpj-1 
     1049      DO jj = 2, jpj-1 
    10491050         DO ji = 2,jpi-1 
    10501051            pvar2d( ji  ,jj ) = pvar2d( ji  ,jj )              & 
Note: See TracChangeset for help on using the changeset viewer.