Changeset 11937

Timestamp:

2019-11-20T14:34:26+01:00 (5 years ago)

Author:

gsamson

Message:

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

File:

• NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/ABL/ablmod.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/ABL/ablmod.F90

@@ -45 +45 @@
               &          , ptm_su,pssu_ice,pssv_ice,pssq_ice,pcd_du_ice  & 
               &          , psen_ice, pevp_ice, pwndm_ice, pfrac_oce      & 
-              &          , ptaui_ice,     ptauj_ice                      &
+              &          , ptaui_ice, ptauj_ice                          &
 #endif           
            &   )
@@ -485 +485 @@
       !
       CALL lbc_lnk_multi( 'ablmod',  u_abl(:,:,:,nt_a      ), 'T', -1.,  v_abl(:,:,:,nt_a      ), 'T', -1. )
+      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...
       !
       ! first ABL level
@@ -1046 +1047 @@
       END DO     
 
-     DO jj = 2, jpj-1
+      DO jj = 2, jpj-1
          DO ji = 2,jpi-1
             pvar2d( ji  ,jj ) = pvar2d( ji  ,jj )              &