tl_post_initial_mod Module Reference

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

Function/Subroutine Documentation

tl_post_initial()

subroutine, public tl_post_initial_mod::tl_post_initial	(	integer, intent(in)	ng,
		integer, intent(in)	model )

Definition at line 43 of file tl_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. Here we need nonlinear 'Zt_avg1' and 'Hz' to compute initial
!  'tl_ubar' and 'tl_vbar'.
!-----------------------------------------------------------------------
!
      DO tile=first_tile(ng),last_tile(ng),+1
        CALL set_zeta_timeavg (ng, tile, inlm)
        CALL set_depth (ng, tile, inlm)
        CALL tl_ini_zeta (ng, tile, model)
        CALL tl_set_depth (ng, tile, model)
      END DO
!$OMP BARRIER
!
!-----------------------------------------------------------------------
!  Initialize other state variables.
!-----------------------------------------------------------------------
!
      DO tile=last_tile(ng),first_tile(ng),-1
        CALL tl_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 tl_nesting (ng, model, ngetd)
      END IF
# endif
!
      RETURN

References mod_parallel::first_tile, mod_param::inlm, mod_parallel::last_tile, mod_scalars::refinedgrid, set_depth_mod::set_depth(), ini_fields_mod::set_zeta_timeavg(), tl_ini_fields_mod::tl_ini_fields(), tl_ini_fields_mod::tl_ini_zeta(), and tl_set_depth_mod::tl_set_depth().

Referenced by tl_main3d(), and roms_kernel_mod::tlm_initial().

Here is the call graph for this function:

Here is the caller graph for this function: