rp_post_initial_mod Module Reference

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

Function/Subroutine Documentation

rp_post_initial()

subroutine, public rp_post_initial_mod::rp_post_initial	(	integer, intent(in)	ng,
		integer, intent(in)	model )

Definition at line 39 of file rp_post_initial.F.

!***********************************************************************
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, model
!
!  Local variable declarations.
!
      integer :: tile
!
!-----------------------------------------------------------------------
!  Initialize free-surface and compute initial level thicknesses and
!  depths.
!-----------------------------------------------------------------------
!
      DO tile=first_tile(ng),last_tile(ng),+1
        CALL rp_ini_zeta (ng, tile, model)
        CALL rp_set_depth (ng, tile, model)
      END DO
!$OMP BARRIER
!
!-----------------------------------------------------------------------
!  Initialize other state variables.
!-----------------------------------------------------------------------
!
      DO tile=last_tile(ng),first_tile(ng),-1
        CALL rp_ini_fields (ng, tile, model)
      END DO
!$OMP BARRIER
 
# 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 rp_nesting (ng, model, ngetd)
      END IF
# endif
!
      RETURN

References mod_parallel::first_tile, mod_parallel::last_tile, mod_scalars::refinedgrid, rp_ini_fields_mod::rp_ini_fields(), rp_ini_fields_mod::rp_ini_zeta(), and rp_set_depth_mod::rp_set_depth().

Referenced by rp_main3d().

Here is the call graph for this function:

Here is the caller graph for this function: