From 77f892e85ae6838e15f10cce8eb0b66e86d82bbd Mon Sep 17 00:00:00 2001
From: Jorn Bruggeman <jorn@bolding-bruggeman.com>
Date: Mon, 29 Apr 2024 14:46:06 +0100
Subject: [PATCH] light: updated A,g1,g2 accessors

---
 src/meanflow/light.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/meanflow/light.F90 b/src/meanflow/light.F90
index e7f3df3c6..b6775e0f8 100644
--- a/src/meanflow/light.F90
+++ b/src/meanflow/light.F90
@@ -10,7 +10,7 @@ subroutine light(nlev,I_0,rad,swr_abs)
 ! !DESCRIPTION:
 !
 ! !USES:
-   use observations, only: A,g1,g2
+   use observations, only: A_,g1_,g2_
    use meanflow,     only: h,bioshade
 
    IMPLICIT NONE
@@ -47,7 +47,7 @@ subroutine light(nlev,I_0,rad,swr_abs)
    z          =_ZERO_
    do i=nlev-1,0,-1
       z=z+h(i+1)
-      rad(i)=I_0*(A*exp(-z/g1)+(1.-A)*exp(-z/g2)*bioshade(i+1))
+      rad(i)=I_0*(A*exp(-z/g1_%value)+(1.-A_%value)*exp(-z/g2_%value)*bioshade(i+1))
    end do
 
 !  light absorption per layer (W m-2) is the difference between shortwave at the top and bottom interface