OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
radnce.f
Go to the documentation of this file.
1  subroutine radnce(pi,conv,bmu,the,gio,ii,jpart,jphi)
2 c
3 c***********************************************************************
4 c.....declaration statements............................................
5  implicit real*8 (a-h,o-z)
6  real*8 pi,conv,bmu(51)
7  real*8 gio(4,50,46),the(50)
8  integer*4 jphi(91)
9 c***********************************************************************
10  jpartm=jpart-1
11 c jpartm=1
12  do 97 j=1,jpart,jpartm
13  qp=0.0
14  plr=0.0
15  bett=0.0
16  ft=gio(1,ii,j)+gio(2,ii,j)
17  ftd=abs(gio(1,ii,j)-gio(2,ii,j) )
18  if(ft .le.1.0e-9) go to 107
19  qp=(gio(1,ii,j)-gio(2,ii,j))**2+gio(3,ii,j)**2+gio(4,ii,j)**2
20  sqp=sqrt(qp)
21  plr=sqp/ft
22  bett=.5*dasin(gio(4,ii,j)/sqp)
23 107 continue
24  tb=dsin(bett)/dcos(bett)
25  ftpi=ft*pi
26  write(6,364)the(ii),bmu(ii),jphi(j),(gio(n,ii,j),n=1,3),ftpi,
27  1 plr*100.0
28 97 continue
29  write(6,46)
30 c***********************************************************************
31 46 format(1x,' ' )
32 364 format(1x,f5.1,1x,f7.4,1x,i3,1x,1p4e11.3,0pf7.2)
33 c***********************************************************************
34  return
35  end
36 c***********************************************************************
subroutine radnce(pi, conv, cosmu, the, gio, ii, jpart, jphi)
Definition: radnce.f:2
#define real
Definition: DbAlgOcean.cpp:26
#define pi
Definition: vincenty.c:23
#define abs(a)
Definition: misc.h:90