Changeset 13370 for vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modbc.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/modbc.F90 (modified) (2 diffs)

vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modbc.F90

@@ -188 +188 @@
     END WHERE
 !
-    call Agrif_get_var_global_bounds(child,lubglob,nbdim)
+    call Agrif_get_var_global_bounds(child,lubglob,nbdim,parent)
 !
     indtruetab(1:nbdim,1,1) = max(indtab(1:nbdim,1,1), lubglob(1:nbdim,1))
@@ -229 +229 @@
 !
 #if defined AGRIF_MPI
-                call Agrif_get_var_bounds_array(child,lower,upper,nbdim)
+                call Agrif_get_var_bounds_array(child,lower,upper,nbdim,parent)
 
                 do i = 1,nbdim