Re: WRAPIT problems

From: Dennis Shea <shea_at_nyahnyahspammersnyahnyah>
Date: Thu Sep 01 2011 - 11:11:52 MDT

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-talk
Received 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