Merge pull request #101 from jgfouca/jgfouca/fix_valgrind_error

Fix a valgrind uninitialized conditional error in cosp
CFMIP · Sep 17, 2024 · 5056a99 · 5056a99
2 parents 342aa2c + d02112b
commit 5056a99
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cosp.F90 b/src/cosp.F90
@@ -509,7 +509,7 @@ function COSP_SIMULATOR(cospIN,cospgridIN,cospOUT,start_idx,stop_idx,debug)
        Lrttov_column    = .true.
 
     ! Set flag to deallocate rttov types (only done on final call to simulator)
-    if (size(cospOUT%isccp_meantb) .eq. stop_idx) lrttov_cleanUp = .true.
+    if (associated(cospOUT%isccp_meantb) .and. size(cospOUT%isccp_meantb) .eq. stop_idx) lrttov_cleanUp = .true.
 
     ! ISCCP column
     if (associated(cospOUT%isccp_fq)                                       .or.          &