From 1398e060e19184a401cef6264ea25f82374711d1 Mon Sep 17 00:00:00 2001
From: Guillaume Samson <guillaume.samson@mercator-ocean.fr>
Date: Thu, 12 May 2022 15:58:57 +0000
Subject: [PATCH] Resolve "Floating invalid in p4zopt.f90 without RGB traqsr"
---
src/OCE/TRA/traqsr.F90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/OCE/TRA/traqsr.F90 b/src/OCE/TRA/traqsr.F90
index 2d5c474ef..6db9892b7 100644
--- a/src/OCE/TRA/traqsr.F90
+++ b/src/OCE/TRA/traqsr.F90
@@ -156,7 +156,7 @@ CONTAINS
END_3D
ENDIF
#endif
-
+
! !----------------------------!
SELECT CASE( nqsr ) ! qsr induced heat content !
! !----------------------------!
@@ -882,6 +882,8 @@ CONTAINS
CASE( np_2BD ) !== 2 bands light attenuation (IR+ visible light) ==!
!
!
+ IF( lk_top ) CALL trc_oce_rgb( rkrgb ) ! tabulated attenuation coef.
+ !
r1_si1 = 1._wp / rn_si1 ! inverse of visible light attenuation
zVlp = ( 1._wp - rn_abs ) ! visible light partition
nkV = qsr_ext_lev( rn_si1, zVlp ) ! level of visible light extinction
--
GitLab