vartypedefs.F90

Go to the documentation of this file.

 
 
module vartypedefs
 
  use charstrings, only : cl, cm, cs
 
  implicit none
 
  integer, parameter :: maxvars = 20
 
  type :: vardefs
     character(len=CM)   ::  var_name
     character(len=CM)   :: long_name
     character(len=CM)   :: unit_name
     character(len= 2)   ::  var_type
     character(len=CM)   ::  vertices
  end type vardefs
 
  type(vardefs) ::    fixvars(maxvars)
  type(vardefs) ::   cicevars(maxvars)
  type(vardefs) ::  scripvars(maxvars)
 
contains
 
 
  subroutine fixvars_typedefine
 
    ! local variables
    integer :: ii = 0
 
    !default
    fixvars(:)%var_type  = 'r8'
    fixvars(:)%vertices  = ''
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCt'
    fixvars(ii)%long_name = 'Longitude of center (Ct) points'
    fixvars(ii)%unit_name = 'degrees_east'
    fixvars(ii)%vertices  = 'lonCt_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCt'
    fixvars(ii)%long_name = 'Latitude of center (Ct) points'
    fixvars(ii)%unit_name = 'degrees_north'
    fixvars(ii)%vertices  = 'latCt_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCv'
    fixvars(ii)%long_name = 'Longitude of meridional velocity (Cv) points'
    fixvars(ii)%unit_name = 'degrees_east'
    fixvars(ii)%vertices  = 'lonCv_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCv'
    fixvars(ii)%long_name = 'Latitude of meridional velocity (Cv) points'
    fixvars(ii)%unit_name = 'degrees_north'
    fixvars(ii)%vertices  = 'latCv_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCu'
    fixvars(ii)%long_name = 'Longitude of zonal velocity (Cu) points'
    fixvars(ii)%unit_name = 'degrees_east'
    fixvars(ii)%vertices  = 'lonCu_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCu'
    fixvars(ii)%long_name = 'Latitude of zonal velocity (Cu) points'
    fixvars(ii)%unit_name = 'degrees_north'
    fixvars(ii)%vertices  = 'latCu_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonBu'
    fixvars(ii)%long_name = 'Longitude of corner (Bu) points'
    fixvars(ii)%unit_name = 'degrees_east'
    fixvars(ii)%vertices  = 'lonBu_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latBu'
    fixvars(ii)%long_name = 'Latitude of corner (Bu) points'
    fixvars(ii)%unit_name = 'degrees_north'
    fixvars(ii)%vertices  = 'latBu_vert'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCt_vert'
    fixvars(ii)%long_name = 'Longitude Vertices of Ct points'
    fixvars(ii)%unit_name = 'degrees_east'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCt_vert'
    fixvars(ii)%long_name = 'Latitude Vertices of Ct points'
    fixvars(ii)%unit_name = 'degrees_north'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCu_vert'
    fixvars(ii)%long_name = 'Longitude Vertices of Cu points'
    fixvars(ii)%unit_name = 'degrees_east'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCu_vert'
    fixvars(ii)%long_name = 'Latitude Vertices of Cu points'
    fixvars(ii)%unit_name = 'degrees_north'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonCv_vert'
    fixvars(ii)%long_name = 'Longitude Vertices of Cv points'
    fixvars(ii)%unit_name = 'degrees_east'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latCv_vert'
    fixvars(ii)%long_name = 'Latitude Vertices of Cv points'
    fixvars(ii)%unit_name = 'degrees_north'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'lonBu_vert'
    fixvars(ii)%long_name = 'Longitude Vertices of Bu points'
    fixvars(ii)%unit_name = 'degrees_east'
 
    ii = ii + 1
    fixvars(ii)%var_name  = 'latBu_vert'
    fixvars(ii)%long_name = 'Latitude Vertices of Bu points'
    fixvars(ii)%unit_name = 'degrees_north'
 
  end subroutine fixvars_typedefine
 
  subroutine cicevars_typedefine
 
    ! local variables
    integer :: ii = 0
 
    !default
    cicevars(:)%var_type = 'r8'
    cicevars(:)%vertices  = ''
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'ulon'
    cicevars(ii)%long_name = 'Longitude of corner (Bu) points'
    cicevars(ii)%unit_name = 'radians'
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'ulat'
    cicevars(ii)%long_name = 'Latitude of corner (Bu) points'
    cicevars(ii)%unit_name = 'radians'
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'hte'
    cicevars(ii)%long_name = 'Distance between corner (Bu) points, east face'
    cicevars(ii)%unit_name = 'cm'
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'htn'
    cicevars(ii)%long_name = 'Distance between corner (Bu) points, north face'
    cicevars(ii)%unit_name = 'cm'
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'angle'
    cicevars(ii)%long_name = 'Angle at corner (Bu) points'
    cicevars(ii)%unit_name = 'radians'
 
    ii = ii + 1
    cicevars(ii)%var_name  = 'kmt'
    cicevars(ii)%long_name = 'ocean fraction at T-cell centers'
    cicevars(ii)%unit_name = 'none'
    cicevars(ii)%var_type  = 'i4'
 
  end subroutine cicevars_typedefine
 
  subroutine scripvars_typedefine
 
    ! local variables
    integer :: ii = 0
 
    !default
    scripvars(:)%long_name  = ''
    scripvars(:)%var_type   = 'r8'
    scripvars(:)%vertices   = ''
 
    ii = ii + 1
    scripvars(ii)%var_name  = 'grid_center_lat'
    scripvars(ii)%unit_name = 'degrees'
 
    ii = ii + 1
    scripvars(ii)%var_name  = 'grid_center_lon'
    scripvars(ii)%unit_name = 'degrees'
 
    ii = ii + 1
    scripvars(ii)%var_name  = 'grid_corner_lat'
    scripvars(ii)%unit_name = 'degrees'
 
    ii = ii + 1
    scripvars(ii)%var_name  = 'grid_corner_lon'
    scripvars(ii)%unit_name = 'degrees'
 
  end subroutine scripvars_typedefine
end module vartypedefs