cgetMoliereU.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgetmoliereu (dep, cosz, rmu)

Function/Subroutine Documentation

cgetmoliereu()

subroutine cgetmoliereu	(	real*8	dep,
		real*8	cosz,
		real*8	rmu
	)

Definition at line 11 of file cgetMoliereU.f.

References d0.

Referenced by cinitobs(), cmintime2websec(), csetmolunit(), and kmolu().

       implicit none
#include "Zelemagp.h"
       real*8 dep  ! input.  depth in kg/m2
       real*8 cosz ! input.  zenith angle
       real*8 rmu  ! output. Moliere length in m
!
       real*8  cthick2den, tmp

       tmp=max( dep - 2*x0*cosz, 100.d0)    ! 2 r%l above
       rmu = es/ecrit * x0 / cthick2den(tmp)

Here is the caller graph for this function: