Changeset 13370 for vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterp.F90

Timestamp:

2020-07-31T11:00:33+02:00 (4 years ago)

Author:

jchanut

Message:

#2222, changes to allow less vertical levels over child grid than parent

File:

• vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterp.F90 (modified) (2 diffs)

vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modinterp.F90

@@ -199 +199 @@
     if (.not.find_list_interp) then
 !
-        call Agrif_get_var_bounds_array(child, lowerbound, upperbound, nbdim)
+        call Agrif_get_var_bounds_array(child, lowerbound, upperbound, nbdim, parent)
         call Agrif_Childbounds(nbdim, lowerbound, upperbound,               &
                                pttab, petab, Agrif_Procrank, coords,        &
@@ -968 +968 @@
             end select
 !
-            call Agrif_get_var_bounds_array(child,lowerbound,upperbound,nbdim)
+            call Agrif_get_var_bounds_array(child,lowerbound,upperbound,nbdim,parent)
 
 #if defined AGRIF_MPI