From 9ce430714b5c02d0e4e756032dc571bbb20827ca Mon Sep 17 00:00:00 2001 From: Lizzie Lundgren Date: Mon, 12 Aug 2024 10:42:30 -0400 Subject: [PATCH] Remove remaining RC arguments in standalone code Signed-off-by: Lizzie Lundgren --- src/Interfaces/Standalone/CJ77.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Interfaces/Standalone/CJ77.F90 b/src/Interfaces/Standalone/CJ77.F90 index 996435c..22a7c07 100644 --- a/src/Interfaces/Standalone/CJ77.F90 +++ b/src/Interfaces/Standalone/CJ77.F90 @@ -116,7 +116,7 @@ program standalone enddo !---sets climatologies for O3, T, D & Z !----------------------------------------------------------------------- - call ACLIM_FJX (YLAT,MONTH,PPP, TTT,O3,CH4, L1_, RC) + call ACLIM_FJX (YLAT,MONTH,PPP, TTT,O3,CH4, L1_) if ( RC /= CLDJ_SUCCESS ) then call CLOUDJ_ERROR_STOP( 'Failure in ACLIM_FJX', thisloc ) endif @@ -247,7 +247,7 @@ program standalone if (LPRTJ) then write(6,'(a,f8.3,3f8.5)')'SZA SOLF U0 albedo' & ,SZA,SOLF,U0,RFL(5,18) - call JP_ATM0(PPP,TTT,DDD,OOO,ZZZ, L_, RC) + call JP_ATM0(PPP,TTT,DDD,OOO,ZZZ, L_) if ( RC /= CLDJ_SUCCESS ) then call CLOUDJ_ERROR_STOP( 'Failure in JP_ATM0', thisloc ) endif