MODULE varsmd
IMPLICIT NONE
  INTEGER, PARAMETER :: nl = 40
  INTEGER, PARAMETER :: im = 1702,  jm = 482,  kb = 23

  INTEGER :: x_dimid, y_dimid, z_dimid
  INTEGER :: z_varid, zz_varid
  INTEGER :: dx_varid, dy_varid
  INTEGER :: east_u_varid, east_v_varid
  INTEGER :: east_e_varid, east_c_varid
  INTEGER :: north_u_varid, north_v_varid
  INTEGER :: north_e_varid, north_c_varid
  INTEGER :: rot_varid, h_varid, fsm_varid
  INTEGER :: dum_varid, dvm_varid
  INTEGER :: t_varid, s_varid
  INTEGER :: u_varid, v_varid, el_varid
  REAL, DIMENSION(im) :: xi
  REAL, DIMENSION(jm) :: yi
  REAL, DIMENSION(kb) :: z1, z, zz
  REAL, DIMENSION(nl) :: zrtof, taa, saa, area
  REAL, DIMENSION(im,jm) :: alon, alat, el
  REAL, DIMENSION(im,jm) :: dx, dy, rot, h, fsm, dum, dvm
  REAL, DIMENSION(im,jm) :: east_e, north_e, east_c, north_c
  REAL, DIMENSION(im,jm) :: east_u, north_u, east_v, north_v
  REAL, DIMENSION(im,jm) :: stm, yfi, h2
  REAL, DIMENSION(im,jm,nl) :: t, s, uin, vin
  REAL, DIMENSION(im,jm,nl) :: u, v, tclim, sclim
  CHARACTER(LEN=120) :: runid, gridfile, tsclimfile
  CHARACTER(LEN=120) :: tsinfile, uvinfile, elinfile
END MODULE varsmd