Ignore:
Timestamp:
2020-07-31T11:00:33+02:00 (4 months ago)
Author:
jchanut
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/AGRIF/dev_r12970_AGRIF_CMEMS/AGRIF_FILES/modbc.F90

    r13027 r13370  
    188188    END WHERE 
    189189! 
    190     call Agrif_get_var_global_bounds(child,lubglob,nbdim) 
     190    call Agrif_get_var_global_bounds(child,lubglob,nbdim,parent) 
    191191! 
    192192    indtruetab(1:nbdim,1,1) = max(indtab(1:nbdim,1,1), lubglob(1:nbdim,1)) 
     
    229229! 
    230230#if defined AGRIF_MPI 
    231                 call Agrif_get_var_bounds_array(child,lower,upper,nbdim) 
     231                call Agrif_get_var_bounds_array(child,lower,upper,nbdim,parent) 
    232232 
    233233                do i = 1,nbdim 
Note: See TracChangeset for help on using the changeset viewer.