!STARTOFREGISTRYGENERATEDINCLUDE 'inc/nest_forcedown_interp_vert.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit.  Your changes to this file will be lost.
!
IF ( SIZE( grid%u_2, 1 ) * SIZE( grid%u_2, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  grid%u_2, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
IF ( SIZE( grid%v_2, 1 ) * SIZE( grid%v_2, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  grid%v_2, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
IF ( SIZE( grid%w_2, 1 ) * SIZE( grid%w_2, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting_w( &
                                  grid%w_2, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  alt_w_c, alt_w_n ) !coordinates for parent and nest
ENDIF
IF ( SIZE( grid%ph_2, 1 ) * SIZE( grid%ph_2, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting_w( &
                                  grid%ph_2, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  alt_w_c, alt_w_n ) !coordinates for parent and nest
ENDIF
IF ( SIZE( grid%t_2, 1 ) * SIZE( grid%t_2, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  grid%t_2, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_moist
IF ( SIZE( moist, 1 ) * SIZE( moist, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  moist(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_dfi_moist
IF ( SIZE( dfi_moist, 1 ) * SIZE( dfi_moist, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  dfi_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_scalar
IF ( SIZE( scalar, 1 ) * SIZE( scalar, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_dfi_scalar
IF ( SIZE( dfi_scalar, 1 ) * SIZE( dfi_scalar, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  dfi_scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
IF ( SIZE( grid%o3rad, 1 ) * SIZE( grid%o3rad, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  grid%o3rad, & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
DO itrace = PARAM_FIRST_SCALAR, num_aerod
IF ( SIZE( aerod, 1 ) * SIZE( aerod, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  aerod(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_aerocu
IF ( SIZE( aerocu, 1 ) * SIZE( aerocu, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  aerocu(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
DO itrace = PARAM_FIRST_SCALAR, num_tracer
IF ( SIZE( tracer, 1 ) * SIZE( tracer, 3 ) .GT. 1 ) THEN 
    CALL vert_interp_vert_nesting( &
                                  tracer(grid%sm31,grid%sm32,grid%sm33,itrace), & !CD field
                                  ids, ide, kds, kde, jds, jde, & !CD dims
                                  ims, ime, kms, kme, jms, jme, & !CD dims
                                  ips, ipe, kps, MIN( (kde-1), kpe ), jps, jpe, & !CD dims
                                  pgrid%s_vert, pgrid%e_vert, & !vertical dimension of the parent grid
                                  pgrid%cf1, pgrid%cf2, pgrid%cf3, pgrid%cfn, pgrid%cfn1, & !coarse grid extrapolation constants
                                  alt_u_c, alt_u_n ) !coordinates for parent and nest
ENDIF
ENDDO
!ENDOFREGISTRYGENERATEDINCLUDE