NASA Ocean Color

ocssw V2022

       subroutine fluxlvl(buft,sumg,iflag)
 c
 c     include the common statements.....................................
       implicit real*8 (a-h,o-z)
       include 'afrt_rt2.cmn'
       real*8 buft(4,2*nsz,nph)
 c
 c***********************************************************************
       if(iflag.eq.1)then
          m=nx
          n=nmum1
       else
          m=1
          n=nx-1
       endif
 c
       anophi=dfloat(nophi)                                                      
       sumg = 0.0d0
       do 5001 j = m,n                                                   
          psumg = 0.0d0
          do 4003 k = 1,2                                                   
             psumg=buft(k,j,1)+buft(k,j,jpart)+psumg                               
             do 4003 i=2,nophi/2
             psumg=psumg+2.0d0*buft(k,j,i)
  4003    continue
          sumg=sumg+psumg*dcmusq(j)*6.2831854d0/anophi
  5001 continue
 c
       sumg=dabs(sumg)                                                      
       return                                                            
       end                                                               
 c***********************************************************************

fluxlvl

subroutine fluxlvl(buft, sumg, iflag)

Definition: fluxlvl.f:2

real

#define real

Definition: DbAlgOcean.cpp:26