grid_metrics.f90

Go to the documentation of this file.

!/===========================================================================/
! Copyright (c) 2007, The University of Massachusetts Dartmouth 
! Produced at the School of Marine Science & Technology 
! Marine Ecosystem Dynamics Modeling group
! All rights reserved.
!
! FVCOM has been developed by the joint UMASSD-WHOI research team. For 
! details of authorship and attribution of credit please see the FVCOM
! technical manual or contact the MEDM group.
!
! 
! This file is part of FVCOM. For details, see http://fvcom.smast.umassd.edu 
! The full copyright notice is contained in the file COPYRIGHT located in the 
! root directory of the FVCOM code. This original header must be maintained
! in all distributed versions.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
! AND ANY EXPRESS OR  IMPLIED WARRANTIES, INCLUDING,  BUT NOT  LIMITED TO,
! THE IMPLIED WARRANTIES OF MERCHANTABILITY AND  FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED.  
!
!/---------------------------------------------------------------------------/
! CVS VERSION INFORMATION
! $Id$
! $Name$
! $Revision$
!/===========================================================================/

SUBROUTINE grid_metrics
  USE mod_par
  USE mod_obcs
  USE all_vars
  USE mod_northpole
  USE mod_setup
  USE mod_station_timeseries
  USE mod_sparse_timeseries
  USE mod_nesting, ONLY: nesting_on


  IMPLICIT NONE
  
  INTEGER:: STATUS
  INTEGER:: I

  ! THESE SUBROUTINES SHOULD BE FURTHER BROKEN DOWN INTO THEIR
  ! COMPONENT OPERATIONS AND THE WHOLE THING SHOULD BE MODULAR
  
  
!============================================
!Set up fluxes and control Volumes
!============================================
  CALL triangle_grid_edge
  IF(out_station_timeseries_on) CALL triangle_grid_edge_gl    
!============================================
!Calculate Element and Control Volume Areas
!============================================
  CALL cell_area            


!====================================================
! Calculate Shape Coefficients for Flux Construction
!====================================================
  CALL shape_coef_gcn       


!============================================
!Calculate Node Control Volume Edge Lengths
!============================================
  CALL edge_len


!====================================================
!  EXCHANGE SHAPE FACTOR INFORMATION
!====================================================

!====================================================
! Calculate the horizontal gradient of the bathymetry
!====================================================
 CALL depth_gradient


!====================================================
! SETUP BOUNDARY NEIGHBORS AND SUCH
!====================================================
  CALL setup_obc

!-------------------Read dam info--------------------

!====================================================
! SETUP THE LONGSHORE FLOW INDEX AND ANGLES
!====================================================
  IF(obc_longshore_flow_on) CALL longshore_flow

END SUBROUTINE grid_metrics