41 use ctlblk_mod, only: jsta, jend, im, ista, iend
45 real,
PARAMETER :: omega=7.292e-5,twomg=2*omega
50 REAL,
dimension(ista:iend,jsta:jend),
intent(in) :: z1d
51 REAL,
dimension(ista:iend,jsta:jend),
intent(inout) :: strm
63 f0 = 1.454441e-4*sin(40.0*0.01745329)
70 strm(i,j) = gof0*z1d(i,j)
subroutine calstrm(Z1D, STRM)
Subroutine that computes geo streamfunction.