Index: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90
===================================================================
--- NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90	(revision 12808)
+++ NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90	(revision 13159)
@@ -62,10 +62,10 @@
          &      avm_abl (1:jpi,1:jpj,1:jpka            ), &
          &      avt_abl (1:jpi,1:jpj,1:jpka            ), &
-         &      mxld_abl(1:jpi,1:jpj,1:jpka            ), &         
-         &      mxlm_abl(1:jpi,1:jpj,1:jpka            ), & 
+         &      mxld_abl(1:jpi,1:jpj,1:jpka            ), &
+         &      mxlm_abl(1:jpi,1:jpj,1:jpka            ), &
          &      fft_abl (1:jpi,1:jpj                   ), &
-         &      pblh    (1:jpi,1:jpj                   ), &         
+         &      pblh    (1:jpi,1:jpj                   ), &
          &      msk_abl (1:jpi,1:jpj                   ), &
-         &      rest_eq (1:jpi,1:jpj                   ), &         
+         &      rest_eq (1:jpi,1:jpj                   ), &
          &      e3t_abl (1:jpka), e3w_abl(1:jpka)       , &
          &      ght_abl (1:jpka), ghw_abl(1:jpka)       , STAT=ierr )
Index: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablrst.F90
===================================================================
--- NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablrst.F90	(revision 12808)
+++ NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablrst.F90	(revision 13159)
@@ -74,5 +74,5 @@
             ENDIF
             !
-            CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka )
+            CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka, cdcomp = 'ABL' )
             lrst_abl = .TRUE.
          ENDIF
@@ -146,5 +146,5 @@
       ENDIF
 
-      CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar, kdlev = jpka )
+      CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar )
 
       ! Time info
Index: NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90
===================================================================
--- NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90	(revision 12808)
+++ NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90	(revision 13159)
@@ -335,13 +335,13 @@
       IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN
 
-        !!-------------------------------------------------------------------------------------------
-        !! 2 - Compute Cd x ||U||, Ch x ||U||, Ce x ||U||, and SSQ using now fields
-        !!-------------------------------------------------------------------------------------------
-  
-        CALL blk_oce_1( kt,  u_abl(:,:,2,nt_n      ),  v_abl(:,:,2,nt_n      ),   &   !   <<= in
-           &                tq_abl(:,:,2,nt_n,jp_ta), tq_abl(:,:,2,nt_n,jp_qa),   &   !   <<= in
-           &                sf(jp_slp )%fnow(:,:,1) , sst_m, ssu_m, ssv_m     ,   &   !   <<= in
-           &                sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) ,   &   !   <<= in
-           &                tsk_m, zssq, zcd_du, zsen, zevp                       )   !   =>> out
+         !!-------------------------------------------------------------------------------------------
+         !! 2 - Compute Cd x ||U||, Ch x ||U||, Ce x ||U||, and SSQ using now fields
+         !!-------------------------------------------------------------------------------------------
+
+         CALL blk_oce_1( kt,  u_abl(:,:,2,nt_n      ),  v_abl(:,:,2,nt_n      ),   &   !   <<= in
+            &                tq_abl(:,:,2,nt_n,jp_ta), tq_abl(:,:,2,nt_n,jp_qa),   &   !   <<= in
+            &                sf(jp_slp )%fnow(:,:,1) , sst_m, ssu_m, ssv_m     ,   &   !   <<= in
+            &                sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) ,   &   !   <<= in
+            &                tsk_m, zssq, zcd_du, zsen, zevp                       )   !   =>> out
 
 #if defined key_si3
