Subversion Repositories lagranto.wrf

Rev

Rev 11 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11 Rev 21
Line 233... Line 233...
233 
                     print*,'Format problem : ',tra(n,i,j),' -> -999.99'
 233 
                     print*,'Format problem : ',tra(n,i,j),' -> -999.99'
234 
                     tra(n,i,j) = -999.99
 234 
                     tra(n,i,j) = -999.99
235 
                  endif
 235 
                  endif
236 
               enddo
 236 
               enddo
237 
 
 237 
 
238 
               write(fid,'(1f7.2,f9.2,f8.2,i6,100f10.3)')
238 
               write(fid,'(1f7.2,f10.3,f9.3,i6,100f10.3)')
239 
     >               (tra(n,i,j),j=1,3),             ! time, lon, lat
 239 
     >               (tra(n,i,j),j=1,3),             ! time, lon, lat
240 
     >               nint(tra(n,i,4)),               ! p
 240 
     >               nint(tra(n,i,4)),               ! p
241 
     >               (tra(n,i,j),j=5,ncol)           ! fields
 241 
     >               (tra(n,i,j),j=5,ncol)           ! fields
242 
            enddo
 242 
            enddo
243 
         enddo
 243 
         enddo
Line 254... Line 254...
254 
                     print*,'Format problem : ',tra(n,i,j),' -> -999.99'
 254 
                     print*,'Format problem : ',tra(n,i,j),' -> -999.99'
255 
                     tra(n,i,j) = -999.99
 255 
                     tra(n,i,j) = -999.99
256 
                  endif
 256 
                  endif
257 
               enddo
 257 
               enddo
258 
 
 258 
 
259 
               write(fid,'(1f7.2,f9.2,f8.2,i6,100f10.3)')
259 
               write(fid,'(1f7.2,f10.3,f9.3,i6,100f10.3)')
260 
     >               (tra(n,i,j),j=1,3),             ! time, lon, lat
 260 
     >               (tra(n,i,j),j=1,3),             ! time, lon, lat
261 
     >               nint(tra(n,i,4)),               ! p
 261 
     >               nint(tra(n,i,4)),               ! p
262 
     >               (tra(n,i,j),j=5,ncol)           ! fields
 262 
     >               (tra(n,i,j),j=5,ncol)           ! fields
263 
            enddo
 263 
            enddo
264 
         enddo
 264 
         enddo
Line 448... Line 448...
448 
c        Write variable names
 448 
c        Write variable names
449 
         str=''
 449 
         str=''
450 
         do i=1,ncol
 450 
         do i=1,ncol
451 
            str=trim(str)//trim(vars(i))
 451 
            str=trim(str)//trim(vars(i))
452 
         enddo
 452 
         enddo
453 
         write(fid,'(a6,a9,a8,a6,100a10)') (trim(vars(i)),i=1,ncol)
 453 
         write(fid,'(a6,a10,a9,a6,100a10)') (trim(vars(i)),i=1,ncol)
454 
         write(fid,'(a6,a9,a8,a6,100a10)')
454 
         write(fid,'(a6,a10,a9,a6,100a10)')
455 
     >              '------','---------','--------','------',
 455 
     >              '------','----------','---------','------',
456 
     >              ('----------',i=5,ncol)
 456 
     >              ('----------',i=5,ncol)
457 
 
 457 
 
458 
c     Write fortran mode (mode=3)
 458 
c     Write fortran mode (mode=3)
459 
      elseif (mode.eq.3) then
 459 
      elseif (mode.eq.3) then
460 
         write(fid) ntra,ntim,ncol
 460 
         write(fid) ntra,ntim,ncol