You misspelled a delimeter (a missing "T" )
C NCLFORSTART ==> C NCLFORTSTART
Also, between the delimiters, you should include *only* the
arguments being passed. So .....
C NCLFORTSTART
SUBROUTINE writeasi (u,v,nx,ny,nz)
integer nx,ny,nz
real u(nx,ny,nz),v(nx,ny,nz)
C NCLEND
integer k,j
On 09/01/2011 10:39 AM, Phil Stauffer wrote:
> C NCLFORSTART
> SUBROUTINE writeasi (u,v,nx,ny,nz)
> integer nx,ny,nz,k,j
> real u(nx,ny,nz),v(nx,ny,nz)
> C NCLEND
>
> open(15,FILE="221607-JOSH.asi",STATUS='unknown',FORM='FORMATTED')
>
>
>
> do k = 1, nz
>
> write(15,17) k
> 17 format("level",i2)
>
> do j=1,ny
>
> write(15,18)j
> 18 format('azimuth',i3)
>
> write(15,19) (u(i,j,k),i=1,nx)
>
> write(15,19) (v(i,j,k),i=1,nx)
>
> 19 format(4a2,/,(8E10.3))
> enddo
>
> enddo
>
>
> CLOSE(15)
> RETURN
> END
>
>
-- ====================================================== Dennis J. Shea tel: 303-497-1361 | P.O. Box 3000 fax: 303-497-1333 | Climate Analysis Section | Climate & Global Dynamics Div. | National Center for Atmospheric Research | Boulder, CO 80307 | USA email: shea 'at' ucar.edu | ====================================================== _______________________________________________ ncl-talk mailing list List instructions, subscriber options, unsubscribe: http://mailman.ucar.edu/mailman/listinfo/ncl-talkReceived on Thu Sep 1 11:11:57 2011
This archive was generated by hypermail 2.1.8 : Wed Sep 07 2011 - 10:58:58 MDT