cfgs/SPITZ12/EXPREF/namelist_cfg

@@ -94,8 +94,8 @@
    !                    !  bulk algorithm :
    ln_NCAR    = .true.     ! "NCAR"      algorithm   (Large and Yeager 2008)
       !
-      ln_Cd_L12   = .false.   !  air-ice drags = F(ice concentration) (Lupkes et al. 2012)
-      ln_Cd_L15   = .true.    !  air-ice drags = F(ice concentration) (Lupkes et al. 2015)
+      ln_Cx_ice_LU12   = .false.   !  air-ice drags = F(ice concentration) (Lupkes et al. 2012)
+      ln_Cx_ice_LG15   = .true.    !  air-ice drags = F(ice concentration) (Lupkes et al. 2015)
       !
    cn_dir = './'  !  root directory for the bulk data location
    !___________!_________________________!___________________!___________!_____________!________!___________!______________________________________!__________!_______________!

cfgs/ref_cfgs.txt

@@ -7,6 +7,5 @@ ORCA2_OFF_PISCES OCE TOP OFF
 ORCA2_OFF_TRC OCE TOP OFF
 ORCA2_SAS_ICE OCE ICE NST SAS
 ORCA2_ICE_PISCES OCE TOP ICE NST ABL
-ORCA2_ICE_ABL OCE ICE ABL
 SPITZ12 OCE ICE
 WED025 OCE ICE

ext/AGRIF/AGRIF_FILES/modbcfunction.F90

@@ -447,14 +447,14 @@ subroutine Agrif_Find_Nearest ( tabvarsindic, fineloc, parentloc )
     type(Agrif_Variable), pointer :: parent_var
     type(Agrif_Variable), pointer :: child_var
     integer :: i
-    integer, dimension(6)           :: nb_child     !< Number of cells on the child grid
-    integer, dimension(6)           :: ub_child     !< Upper bound on the child grid
-    integer, dimension(6)           :: lb_child     !< Lower bound on the child grid
-    integer, dimension(6)           :: lb_parent    !< Lower bound on the parent grid
-    real, dimension(6)              :: s_child      !< Child  grid position (s_root = 0)
-    real, dimension(6)              :: s_parent     !< Parent grid position (s_root = 0)
-    real, dimension(6)              :: ds_child     !< Child  grid dx (ds_root = 1)
-    real, dimension(6)              :: ds_parent    !< Parent grid dx (ds_root = 1)
+    integer,      dimension(6)      :: nb_child     !< Number of cells on the child grid
+    integer,      dimension(6)      :: ub_child     !< Upper bound on the child grid
+    integer,      dimension(6)      :: lb_child     !< Lower bound on the child grid
+    integer,      dimension(6)      :: lb_parent    !< Lower bound on the parent grid
+    real(kind=8), dimension(6)      :: s_child      !< Child  grid position (s_root = 0)
+    real(kind=8), dimension(6)      :: s_parent     !< Parent grid position (s_root = 0)
+    real(kind=8), dimension(6)      :: ds_child     !< Child  grid dx (ds_root = 1)
+    real(kind=8), dimension(6)      :: ds_parent    !< Parent grid dx (ds_root = 1)
     integer                         :: nbdim        !< Number of dimensions
     real, dimension(6) :: xfineloc
 !

ext/AGRIF/AGRIF_FILES/modtypes.F90

@@ -378,7 +378,7 @@ end type Agrif_Variables_List
     integer               :: Agrif_Regridding = 10
     integer               :: Agrif_Minwidth
     real                  :: Agrif_Efficiency = 0.7
-    integer               :: MaxSearch = 10 
+    integer               :: MaxSearch = 3 
     real(kind=8), dimension(3)    :: Agrif_mind
 !> @}
 !> \name parameters for the interpolation of the child grids

ext/AGRIF/AGRIF_FILES/modupdatebasic.F90

@@ -231,16 +231,15 @@ subroutine Agrif_basicupdate_max1d ( x, y, np, nc, s_parent, s_child, ds_parent,
     REAL, DIMENSION(np), intent(out)    :: x
     REAL, DIMENSION(nc), intent(in)     :: y
     INTEGER,             intent(in)     :: np,nc
-    REAL,                intent(in)     :: s_parent,  s_child
-    REAL,                intent(in)     :: ds_parent, ds_child
+    REAL(kind=8),        intent(in)     :: s_parent,  s_child
+    REAL(kind=8),        intent(in)     :: ds_parent, ds_child
 !
     INTEGER :: i, ii, locind_child_left, coeffraf
-    REAL    :: xpos, invcoeffraf
+    REAL(kind=8) :: xpos
     INTEGER :: nbnonnuls
     INTEGER :: diffmod
 !
     coeffraf = nint(ds_parent/ds_child)
-    invcoeffraf = 1./coeffraf
 !
     if (coeffraf == 1) then
         locind_child_left = 1 + nint((s_parent - s_child)/ds_child)