
LDAS Meeting Minutes
November 6th, 2000, NASA-GSFC
Core Group:
Adam Schlosser <adam@cola.iges.org>,
Alan Robock <robock@envsci.rutgers.edu>,
Brian Cosgrove <brian.cosgrove@gsfc.nasa.gov>,
Dan Tarpley <dan.tarpley@noaa.gov>,
David Toll <david.l.toll.1@gsfc.nasa.gov>,
Dennis Lettenmaier <dennisl@u.washington.edu>,
Dag Lohmann <dlohmann@ncep.noaa.gov>,
Eric Wood <efwood@princeton.edu>,
Hua-lu Pan < hua-lu.Pan@noaa.gov>,
Jared Entin <jentin@dao.gsfc.nasa.gov>,
John Schaake <john.schaake@noaa.gov>,
Justin Sheffield <justin@princeton.edu>,
Ken Mitchell <kenneth.mitchell@noaa.gov>,
Konstantin Vinnikov <kostya@atmos.umd.edu>,
Lifeng Luo <luo@envsci.rutgers.edu>,
Matt Rodell <mattro@dao.gsfc.nasa.gov>,
Paul Dirmeyer <dirmeyer@cola.iges.org>,
Paul Houser <houser@dao.gsfc.nasa.gov>,
Qingyun Duan <Qingyun.Duan@noaa.gov>,
Rachel Pinker <pinker@metosrv2.umd.edu>,
Wayne Higgins <Wayne.Higgins@noaa.gov>
Additional Parties:
Ben Felzer <felzer@ncar.ucar.edu>,
Jerry Brotzge <jbrotzge@ou.edu>,
Christa Peters-Lidard <cpeters@ce.gatech.edu>,
Curtis Marshall <cmarshall@ncep.noaa.gov>,
Dave Matthews <dmatthews@do.usbr.gov>,
Don Kline <don@nws.gov>,
Geoff DiMego <geoff.dimego@noaa.gov>,
George Smith <george.smith@noaa.gov>,
Huug Vandendool <wd51hd@ncep.noaa.gov>,
Jeff Basara <jbasara@ou.edu>,
Jim Shuttleworth <shuttle@hwr.arizona.edu>,
Jin Huang <wd51hd@ncep.noaa.gov>,
Ken Crawford <kcrawford@ou.edu>,
Luis Bastidas <lucho@hwr.arizona.edu>
Michael Ek <mek@ncep.noaa.gov>,
Michael Smith <michael.smith@noaa.gov>,
Mike Jasinski <mike@hydromet.gsfc.nasa.gov>,
Radhika Wijetunge <rwijetun@princeton.edu>,
Randy Koster <randy@janus.gsfc.nasa.gov>,
Rick Lawford <lawford@ogp.noaa.gov>,
Soroosh Sorooshian <soroosh@hwr.arizona.edu>,
Stephen Lord <stephen.lord@noaa.gov>,
Venkataraman Lakshmi <venkat@spectra.gsfc.nasa.gov>,
Victor Koren <victor.koren@noaa.gov>,
Vijay Gupta <gupta@cses.colorado.edu>
http://lnx69.ncep.noaa.gov/LDAS/MEETINGS/MEETING20000915/plot_basinsSept2000.gif
http://lnx69.ncep.noaa.gov/LDAS/MEETINGS/MEETING20001106/selected_subset.txt
NCEP MAPPING PROGRAM:
PROGRAM mapveg
IMPLICIT NONE
INTEGER IR, IC, PVEG(464,224), MASK(464,224)
OPEN(98,FILE='UMDpveg.bin',
& FORM='UNFORMATTED')
READ(98)((PVEG(IC,IR),IC=1,464),IR=1,224)
CLOSE(98)
OPEN(98,FILE='UMDunifiedmask.bin',FORM='UNFORMATTED')
READ(98)((MASK(IC,IR),IC=1,464),IR=1,224)
CLOSE(98)
DO IR=1,224
DO IC=1,464
IF (MASK(IC,IR) .EQ. 0) THEN
PVEG(IC,IR) = -1
ELSE
IF (PVEG(IC,IR) .EQ. 1) PVEG(IC,IR) = 4
IF (PVEG(IC,IR) .EQ. 2) PVEG(IC,IR) = 1
IF (PVEG(IC,IR) .EQ. 3) PVEG(IC,IR) = 5
IF (PVEG(IC,IR) .EQ. 4) PVEG(IC,IR) = 2
IF (PVEG(IC,IR) .EQ. 5) PVEG(IC,IR) = 3
IF (PVEG(IC,IR) .EQ. 6) PVEG(IC,IR) = 3
IF (PVEG(IC,IR) .EQ. 7) PVEG(IC,IR) = 6
IF (PVEG(IC,IR) .EQ. 8) PVEG(IC,IR) = 8
IF (PVEG(IC,IR) .EQ. 9) PVEG(IC,IR) = 9
IF (PVEG(IC,IR) .EQ. 10) PVEG(IC,IR) = 7
IF (PVEG(IC,IR) .EQ. 11) PVEG(IC,IR) = 12
IF (PVEG(IC,IR) .EQ. 12) PVEG(IC,IR) = 11
IF (PVEG(IC,IR) .EQ. 13) PVEG(IC,IR) = 11
IF (PVEG(IC,IR) .GT. 13) THEN
WRITE(*,*) IC, IR
PVEG(IC,IR) = 7
END IF
END IF
END DO
END DO
OPEN(97,FILE='NOAHveg.bin', FORM='UNFORMATTED')
WRITE(97)((PVEG(IC,IR),IC=1,464),IR=1,224)
CLOSE(97)
END