From 6d73f55d9221c62506f79575b96eb04b0d370c04 Mon Sep 17 00:00:00 2001
From: ronesy <rlt@nilu.no>
Date: Mon, 27 Jan 2025 22:03:17 +0100
Subject: [PATCH] initialize cakpri as zero in get_oco2.f90
---
prep_satellite/get_oco2.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/prep_satellite/get_oco2.f90 b/prep_satellite/get_oco2.f90
index 8ea646a..487cd4f 100644
--- a/prep_satellite/get_oco2.f90
+++ b/prep_satellite/get_oco2.f90
@@ -368,6 +368,7 @@ subroutine get_oco2(settings)
! calculate column prior convolved with averaging kernel (units ppbv)
allocate( cakpri(maxretr), stat=ierr )
+ cakpri(:) = 0.
do nm = 1, nretr
do nl = 1, nlevel
cakpri(nm) = cakpri(nm) + vdryair_out(nm,nl)*vapri_out(nm,nl)*cak_out(nm,nl)
--
GitLab