diff --git a/src/OCE/OBS/diaobs.F90 b/src/OCE/OBS/diaobs.F90
index e86e007ce5fb13fb07c196895ea4940224a0f382..7d6b84576804423b710a091f2d34165945722200 100644
--- a/src/OCE/OBS/diaobs.F90
+++ b/src/OCE/OBS/diaobs.F90
@@ -404,7 +404,7 @@ CONTAINS
                ltype_night     = .FALSE.
             ENDIF
             
-            CALL obs_setinterpopts( nsurftypes, jtype, TRIM(cobstypessurf(jtype)), &
+            CALL obs_setinterpopts( nsurftypes, jtype, cobstypessurf(jtype),       &
                &                    nn_2dint_default, n2dint_type,                 &
                &                    ztype_avglamscl, ztype_avgphiscl,              &
                &                    ltype_fp_indegs, ltype_night,                  &
@@ -1074,7 +1074,7 @@ CONTAINS
          &                    ravgphiscl_type    !N/S diameter of obs footprint for this type
       LOGICAL, INTENT(IN)  :: lfp_indegs_type    !T=> footprint in degrees, F=> in metres
       LOGICAL, INTENT(IN)  :: lavnight_type      !T=> obs represent night time average
-      CHARACTER(len=8), INTENT(IN) :: ctypein 
+      CHARACTER(len=lca), INTENT(IN) :: ctypein 
 
       INTEGER, DIMENSION(ntypes), INTENT(INOUT) :: &
          &                    n2dint 
diff --git a/src/OCE/OBS/obs_surf_def.F90 b/src/OCE/OBS/obs_surf_def.F90
index b1b894d06854c36c34094bc889de07d20f7df05b..54cb6a737a0b01b735005079683a2e93439428d4 100644
--- a/src/OCE/OBS/obs_surf_def.F90
+++ b/src/OCE/OBS/obs_surf_def.F90
@@ -437,7 +437,7 @@ CONTAINS
       
       ! Set gridded stuff
       
-      newsurf%mt(insurf)    = surf%mt(ji)
+!clem bug?      newsurf%mt(insurf)    = surf%mt(ji)
  
       ! Deallocate temporary data
 
diff --git a/src/SAS/nemogcm.F90 b/src/SAS/nemogcm.F90
index ce1716e487cbe17cf518fa366ac65b8a90e36812..fe8af71cb88d3d011a74eef9e72d46f5ffd0bf5e 100644
--- a/src/SAS/nemogcm.F90
+++ b/src/SAS/nemogcm.F90
@@ -390,6 +390,7 @@ CONTAINS
 
 #if defined key_agrif
       uu(:,:,:,:) = 0.0_wp   ;   vv(:,:,:,:) = 0.0_wp   ;   ts(:,:,:,:,:) = 0.0_wp   ! needed for interp done at initialization phase
+      uu_b(:,:,:) = 0.0_wp   ;   vv_b(:,:,:) = 0.0_wp
 #endif 
       !                                      ! external forcing 
                            CALL sbc_init( Nbb, Nnn, Naa )  ! Forcings : surface module