C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/cam_devel/sigma_testing/code-sigma/SIGMA_TESTING_PARMS.h,v 1.1 2010/01/06 04:31:15 cnh Exp $
C $Name:  $
C
C        Simple sigma testing fields
C        not meant for permanent use.
C        topo_orog_depthC - topo/orog depth at cell center point
C                           (read from file)
C        vintz  - Vertically integrated transport ( m^2/s )
C                 used to set uVel at each point.
C                 (uVel(i,j,k,bi,bj) = vintz/topo_orog_depthW(i,j,bi,bj)
C        blevs  - b levels in hybrid
C        alevs  - a levels in hybrid
C                 (both given at cell interfaces e.g. w points)
C        s_top  - Depth at which sigma finishes.
C        slevs  - sigma levels for pure sigma
C                 (specified from k=1 to k=nr+1)
C                 (with sigma = 0 at top, k=1 : for now at least )
         _RS topo_orog_depthC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
         REAL*8 vintz
         REAL*8 blevs(Nr+1)
         REAL*8 alevs(Nr+1)
         REAL*8 slevs(Nr+1)
         REAL*8 s_top
         CHARACTER*(MAX_LEN_FNAM) topo_orog_File
         CHARACTER*(MAX_LEN_FNAM) vintz_File

         COMMON /SIGMA_TESTING_PARMS_R/ 
     &   vintz, alevs, blevs, slevs, s_top,
     &   topo_orog_depthC

         COMMON /SIGMA_TESTING_PARMS_C/
     &   topo_orog_File,
     &   vintz_File