[RegCNET] cru problem

[lvping]

Dear sir,
  when i use ./cruPGI5.x,the results of precipitation are less than zero,can you help me?




 parameter(idatecru0=190101)
      parameter(idatecru1=199407)
      parameter(idatecru2=199407)

C ** ORIGINAL CRU GRID
C ** nfld  = number of CRU fields
C ** nlon  = number of longitudes
C ** nlat  = number of latitudes
C ** dlon  = Resolution in the x-direction
C ** dlat  = Resolution in the y-direction
C ** glon1 = Longitude position of the western most point
C ** glat1 = Latitude position of the southern most point
      integer nfld, ifld, nlon, nlat
      real glon1, glat1, dlat, dlon
      PARAMETER (nfld=5)
      PARAMETER (NLON=720, NLAT=360, dlat=0.5, dlon=0.5 )
      PARAMETER (GLON1=-179.75, GLAT1=-89.75)

c NAME OF THE CRU FILES ON THE RegCM GRID.
      character outfile(nfld)*50
      DATA  (outfile(ifld),ifld=1,nfld)
     &   /'PRE2000.nc'
     &   ,'TMP2000.nc'
     &   ,'DTR2000.nc'
     &   ,'VAP2000.nc'
     &   ,'CLD2000.nc'/
c     &   ,'FRS1993.nc'
c     &   ,'TMN1993.nc'
c     &   ,'TMX1993.nc'
c     &   ,'WET1993.nc'/

c NAME OF THE GLOBAL INPUT CRU FILES
      character infile(nfld)*50
      DATA  (infile(ifld),ifld=1,nfld)
     &   /'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUPRE.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMP.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUDTR.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUVAP.CDF'
     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUCLD.CDF'/
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUFRS.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMN.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUTMX.CDF'
c     &   ,'/home01/lvping/RegCM/Obs/CRU/TS2.02/CRUWET.CDF'/


c NAME OF THE CRU VARIABLES
      character vnam(nfld)*10
      DATA  (vnam(ifld),ifld=1,nfld)
     &   /'PRE'
     &   ,'TMP'
     &   ,'DTR'
     &   ,'VAP'
     &   ,'CLD'/
c     &   ,'FRS'
c     &   ,'TMN'
c     &   ,'TMX'
c     &   ,'WET'/





LUPING
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.ictp.it/pipermail/regcnet/attachments/20090422/5593479d/attachment.html>