post_initial_mod Module Reference

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

Function/Subroutine Documentation

post_initial()

subroutine, public post_initial_mod::post_initial	(	integer, intent(in)	ng,
		integer, intent(in)	model )

Definition at line 39 of file 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 ini_zeta (ng, tile, model)
        CALL set_depth (ng, tile, model)
      END DO
!$OMP BARRIER
!
!-----------------------------------------------------------------------
!  Initialize other state variables.
!-----------------------------------------------------------------------
!
      DO tile=last_tile(ng),first_tile(ng),-1
        CALL 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 nesting (ng, model, ngetd)
      END IF
# endif
!
      RETURN

References mod_parallel::first_tile, ini_fields_mod::ini_fields(), ini_fields_mod::ini_zeta(), mod_parallel::last_tile, mod_scalars::refinedgrid, and set_depth_mod::set_depth().

Referenced by main3d(), and roms_kernel_mod::nlm_initial().

Here is the call graph for this function:

Here is the caller graph for this function: