Sources Esope | Cast3M

zlm
C ZLM       SOURCE    CHAT      05/01/13    04:24:12     5004
      FUNCTION ZLM(YPLUS,APLUS)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      ZLM=(0.4*YPLUS*(1.0-1.0/EXP(YPLUS/APLUS+1.0E-5)))**2
      RETURN
      END