Subversion Repositories lagranto.wrf

Rev

Rev 21 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 25
Line 251... Line 251...
251 
         cdfname = mapfile
 251 
         cdfname = mapfile
252 
         varname = 'ALPHA'
 252 
         varname = 'ALPHA'
253 
         call readcdf2D(cdfname,varname,alpha,0.,
 253 
         call readcdf2D(cdfname,varname,alpha,0.,
254 
     >                  dx,dy,xmin,ymin,nx,ny,1)
 254 
     >                  dx,dy,xmin,ymin,nx,ny,1)
255
255
256 
c	     Set surface prtessure to lowest 3d pressure level
 256 
c	     Set surface pressure to lowest 3d pressure level
257 
         do i=1,nx
 257 
         do i=1,nx
258 
            do j=1,ny
 258 
            do j=1,ny
259 
               ps(i,j) = p3(i,j,1)
 259 
               ps(i,j) = p3(i,j,1)
260 
            enddo
 260 
            enddo
261 
         enddo
 261 
         enddo