Commit 1ef85b13 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

increased number of receivers

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 3009
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 0b5e8c6a
c this is <refmet.f> originally by J. Ungerer 1990 c this is <refmet.f> originally by J. Ungerer 1990
c====================================================================== c======================================================================
c $Id: refmet.f,v 1.19 2010-03-04 16:44:58 tforb Exp $ c $Id: refmet.f,v 1.20 2010-03-09 08:32:29 tforb Exp $
c c
c Reflectivity Method c Reflectivity Method
c c
...@@ -114,11 +114,11 @@ c====================================================================== ...@@ -114,11 +114,11 @@ c======================================================================
character*70 version character*70 version
parameter(version='REFMET V2.12a Reflectivity Method') parameter(version='REFMET V2.12a Reflectivity Method')
character*79 cvsid character*79 cvsid
parameter(cvsid='$Id: refmet.f,v 1.19 2010-03-04 16:44:58 tforb Exp $') parameter(cvsid='$Id: refmet.f,v 1.20 2010-03-09 08:32:29 tforb Exp $')
c array dimension declaration c array dimension declaration
integer me, msl, mf, ms integer me, msl, mf, ms
PARAMETER (ME=50) PARAMETER (ME=200)
PARAMETER (MSL=32800) PARAMETER (MSL=32800)
PARAMETER (Mf=MSL/2+1) PARAMETER (Mf=MSL/2+1)
PARAMETER (MS=40) PARAMETER (MS=40)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment