Subversion Repositories lagranto.wrf

Rev

Rev 2 | Rev 11 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 8
Line 745... Line 745...
745 
      mpy( 1,ny) = mpy(   2,ny-1)
 745 
      mpy( 1,ny) = mpy(   2,ny-1)
746 
 
 746 
 
747 
c     Write map factors to mapping file
 747 
c     Write map factors to mapping file
748 
      cdfname = mapfile
 748 
      cdfname = mapfile
749 
      varname = 'MAPSCALE_X'
 749 
      varname = 'MAPSCALE_X'
750 
      call writecdf2D(cdfname,varname,mpx,0.,1,0,1)
 750 
      call writecdf2D(cdfname,varname,mpx,0.,
- 
 
 751 
     >                dx,dy,xmin,ymin,nx,ny,1,0,1)
751 
      cdfname = mapfile
 752 
      cdfname = mapfile
752 
      varname = 'MAPSCALE_Y'
 753 
      varname = 'MAPSCALE_Y'
753 
      call writecdf2D(cdfname,varname,mpy,0.,
 754 
      call writecdf2D(cdfname,varname,mpy,0.,
754 
     >                dx,dy,xmin,ymin,nx,ny,1,0,1)
 755 
     >                dx,dy,xmin,ymin,nx,ny,1,0,1)
755 
 
 756