Subversion Repositories lagranto.wrf

Rev

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

Rev 2 Rev 15
Line 161... Line 161...
161 
          is2d = 0
 161 
          is2d = 0
162 
 
 162 
 
163 
      else
 163 
      else
164 
         status = NF_INQ_VARID (fid, trim(varname), varid)
 164 
         status = NF_INQ_VARID (fid, trim(varname), varid)
165 
	     status = NF_GET_ATT_TEXT(fid,varid,'stagger',stag)
 165 
	     status = NF_GET_ATT_TEXT(fid,varid,'stagger',stag)
- 
 
 166 
	     if (status .ne. NF_NOERR) then
166 
	     if (status .ne. NF_NOERR) print*,"Error in inq:",trim(varname)
 167 
             print*,'Error in inq:',trim(varname)
- 
 
 168 
         endif
167 
         status = NF_INQ_VARNDIMS (fid, varid, ndims)
 169 
         status = NF_INQ_VARNDIMS (fid, varid, ndims)
168 
         is2d = 0
 170 
         is2d = 0
169 
         if ( ndims.eq.3 ) is2d = 1
 171 
         if ( ndims.eq.3 ) is2d = 1
170 
 
 172 
 
171 
      endif
 173 
      endif