MODULE Params #ifdef SWATH character(5), parameter :: VERFlag='SWATH' integer, parameter :: domainXDim = 270 !5km swath integer, parameter :: domainYDim = 420 !5km swath #endif #ifdef GRID character(5), parameter :: VERFlag='GRID' integer, parameter :: domainXDim = 360 !1-deg domain integer, parameter :: domainYDim = 180 !1-deg domain #endif logical, parameter :: stationOnly = .true.!.false. real, parameter :: gridR=250 ! R=100km real, parameter :: MISG=-9999. real :: domain(4)=[-125,115,35,50] ![w-lon, e-lon, s-lat, n-lat] END MODULE Params