ad_post_initial_mod Module Reference

Functions/Subroutines
subroutine, public	ad_post_initial (ng, model)

Function/Subroutine Documentation

ad_post_initial()

subroutine, public ad_post_initial_mod::ad_post_initial	(	integer, intent(in)	ng,
		integer, intent(in)	model )

Definition at line 43 of file ad_post_initial.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
!
!  Local variable declarations.
!
      integer :: tile
 
# ifdef NESTING
!
!-----------------------------------------------------------------------
!  Extract donor grid initial data at contact points and store it in
!  REFINED structure so it can be used for the space-time interpolation.
!-----------------------------------------------------------------------
!
      IF (refinedgrid(ng)) THEN
        CALL ad_nesting (ng, model, ngetd)
      END IF
# endif
!
!-----------------------------------------------------------------------
!  Initialize other state variables.
!-----------------------------------------------------------------------
!
      DO tile=last_tile(ng),first_tile(ng),-1
        CALL ad_ini_fields (ng, tile, model)
      END DO
!$OMP BARRIER
!
!-----------------------------------------------------------------------
!  Initialize free-surface and compute initial level thicknesses and
!  depths. Here we need nonlinear 'Zt_avg1' and 'Hz' to compute initial
!  'ad_ubar' and 'ad_vbar'.
!-----------------------------------------------------------------------
!
      DO tile=first_tile(ng),last_tile(ng),+1
        CALL set_zeta_timeavg (ng, tile, inlm)
        CALL set_depth (ng, tile, inlm)
        CALL ad_set_depth (ng, tile, model)
        CALL ad_ini_zeta (ng, tile, model)
      END DO
!$OMP BARRIER
!
      RETURN

References ad_ini_fields_mod::ad_ini_fields(), ad_ini_fields_mod::ad_ini_zeta(), ad_set_depth_mod::ad_set_depth(), mod_parallel::first_tile, mod_param::inlm, mod_parallel::last_tile, mod_scalars::refinedgrid, set_depth_mod::set_depth(), and ini_fields_mod::set_zeta_timeavg().

Referenced by ad_main3d().

Here is the call graph for this function:

Here is the caller graph for this function: