sum_imp_mod Module Reference

Functions/Subroutines
subroutine, public	sum_imp (ng, tile, lout)
subroutine	sum_imp_tile (ng, tile, lbi, ubi, lbj, ubj, lbij, ubij, imins, imaxs, jmins, jmaxs, lout, tl_t, tl_u, tl_v, f_t, f_u, f_v, tl_zeta, f_zeta)

Function/Subroutine Documentation

sum_imp()

subroutine, public sum_imp_mod::sum_imp	(	integer, intent(in)	ng,
		integer, intent(in)	tile,
		integer, intent(in)	lout )

Definition at line 20 of file sum_imp.F.

!***********************************************************************
!
      USE mod_param
# ifdef ADJUST_BOUNDARY
      USE mod_boundary
# endif
# if defined ADJUST_STFLUX || defined ADJUST_WSTRESS
      USE mod_forces
# endif
      USE mod_ocean
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, tile, Lout
!
!  Local variable declarations.
!
# include "tile.h"
!
      CALL sum_imp_tile (ng, tile,                                      &
     &                   lbi, ubi, lbj, ubj, lbij, ubij,                &
     &                   imins, imaxs, jmins, jmaxs,                    &
     &                   lout,                                          &
# ifdef SOLVE3D
     &                   ocean(ng) % tl_t,                              &
     &                   ocean(ng) % tl_u,                              &
     &                   ocean(ng) % tl_v,                              &
     &                   ocean(ng) % f_t,                               &
     &                   ocean(ng) % f_u,                               &
     &                   ocean(ng) % f_v,                               &
# else
     &                   ocean(ng) % tl_ubar,                           &
     &                   ocean(ng) % tl_vbar,                           &
     &                   ocean(ng) % f_ubar,                            &
     &                   ocean(ng) % f_vbar,                            &
# endif
     &                   ocean(ng) % tl_zeta,                           &
     &                   ocean(ng) % f_zeta)
      RETURN

References mod_ocean::ocean, and sum_imp_tile().

Referenced by rbl4dvar_mod::increment().

Here is the call graph for this function:

Here is the caller graph for this function:

sum_imp_tile()

subroutine sum_imp_mod::sum_imp_tile ( integer, intent(in) ng, integer, intent(in) tile, integer, intent(in) lbi, integer, intent(in) ubi, integer, intent(in) lbj, integer, intent(in) ubj, integer, intent(in) lbij, integer, intent(in) ubij, integer, intent(in) imins, integer, intent(in) imaxs, integer, intent(in) jmins, integer, intent(in) jmaxs, integer, intent(in) lout, real(r8), dimension(lbi:,lbj:,:,:,:), intent(inout) tl_t, real(r8), dimension(lbi:,lbj:,:,:), intent(inout) tl_u, real(r8), dimension(lbi:,lbj:,:,:), intent(inout) tl_v, real(r8), dimension(lbi:,lbj:,:,:), intent(inout) f_t, real(r8), dimension(lbi:,lbj:,:), intent(inout) f_u, real(r8), dimension(lbi:,lbj:,:), intent(inout) f_v, real(r8), dimension(lbi:,lbj:,:), intent(inout) tl_zeta, real(r8), dimension(lbi:,lbj:), intent(inout) f_zeta )

private

Definition at line 63 of file sum_imp.F.

!***********************************************************************
!
      USE mod_param
      USE mod_ncparam
!
!  Imported variable declarations.
!
      integer, intent(in) :: ng, tile
      integer, intent(in) :: LBi, UBi, LBj, UBj, LBij, UBij
      integer, intent(in) :: IminS, ImaxS, JminS, JmaxS
      integer, intent(in) :: Lout
!
# ifdef ASSUMED_SHAPE
#  ifdef SOLVE3D
      real(r8), intent(inout) :: tl_t(LBi:,LBj:,:,:,:)
      real(r8), intent(inout) :: tl_u(LBi:,LBj:,:,:)
      real(r8), intent(inout) :: tl_v(LBi:,LBj:,:,:)
      real(r8), intent(inout) :: f_t(LBi:,LBj:,:,:)
      real(r8), intent(inout) :: f_u(LBi:,LBj:,:)
      real(r8), intent(inout) :: f_v(LBi:,LBj:,:)
#  else
      real(r8), intent(inout) :: tl_ubar(LBi:,LBj:,:)
      real(r8), intent(inout) :: tl_vbar(LBi:,LBj:,:)
      real(r8), intent(inout) :: f_ubar(LBi:,LBj:)
      real(r8), intent(inout) :: f_vbar(LBi:,LBj:)
#  endif
      real(r8), intent(inout) :: tl_zeta(LBi:,LBj:,:)
      real(r8), intent(inout) :: f_zeta(LBi:,LBj:)
# else
#  ifdef SOLVE3D
      real(r8), intent(inout) :: tl_t(LBi:UBi,LBj:UBj,N(ng),3,NT(ng))
      real(r8), intent(inout) :: tl_u(LBi:UBi,LBj:UBj,N(ng),2)
      real(r8), intent(inout) :: tl_v(LBi:UBi,LBj:UBj,N(ng),2)
      real(r8), intent(inout) :: f_t(LBi:UBi,LBj:UBj,N(ng),NT(ng))
      real(r8), intent(inout) :: f_u(LBi:UBi,LBj:UBj,N(ng))
      real(r8), intent(inout) :: f_v(LBi:UBi,LBj:UBj,N(ng))
#  else
      real(r8), intent(inout) :: tl_ubar(LBi:UBi,LBj:UBj,:)
      real(r8), intent(inout) :: tl_vbar(LBi:UBi,LBj:UBj,:)
      real(r8), intent(inout) :: f_ubar(LBi:UBi,LBj:UBj)
      real(r8), intent(inout) :: f_vbar(LBi:UBi,LBj:UBj)
#  endif
      real(r8), intent(inout) :: tl_zeta(LBi:UBi,LBj:UBj,:)
      real(r8), intent(inout) :: f_zeta(LBi:UBi,LBj:UBj)
# endif
!
!  Local variable declarations.
!
      integer :: i, ib, ir, j, k
# ifdef SOLVE3D
      integer :: itrc
# endif
 
# include "set_bounds.h"
!
!  Free-surface.
!
      DO j=jstrr,jendr
        DO i=istrr,iendr
          tl_zeta(i,j,lout)=f_zeta(i,j)+tl_zeta(i,j,lout)
        END DO
      END DO
 
# ifndef SOLVE3D
!
!  2D U-momentum component.
!
      DO j=jstrr,jendr
        DO i=istr,iendr
          tl_ubar(i,j,lout)=f_ubar(i,j)+tl_ubar(i,j,lout)
        END DO
      END DO
!
!  2D V-momentum.
!
      DO j=jstr,jendr
        DO i=istrr,iendr
          tl_vbar(i,j,lout)=f_vbar(i,j)+tl_vbar(i,j,lout)
        END DO
      END DO
# endif
 
# ifdef SOLVE3D
!
!  3D U-momentum component.
!
      DO k=1,n(ng)
        DO j=jstrr,jendr
          DO i=istr,iendr
            tl_u(i,j,k,lout)=f_u(i,j,k)+tl_u(i,j,k,lout)
          END DO
        END DO
      END DO
 
!
!  3D V-momentum component.
!
      DO k=1,n(ng)
        DO j=jstr,jendr
          DO i=istrr,iendr
            tl_v(i,j,k,lout)=f_v(i,j,k)+tl_v(i,j,k,lout)
          END DO
        END DO
      END DO
 
!
!  Tracers.
!
      DO itrc=1,nt(ng)
        DO k=1,n(ng)
          DO j=jstrr,jendr
            DO i=istrr,iendr
             tl_t(i,j,k,lout,itrc)=f_t(i,j,k,itrc)+tl_t(i,j,k,lout,itrc)
            END DO
          END DO
        END DO
      END DO
# endif
 
      RETURN

Referenced by sum_imp().

Here is the caller graph for this function: