Remove remaining RC arguments in standalone code

Signed-off-by: Lizzie Lundgren <[email protected]>
geoschem · Aug 12, 2024 · 9ce4307 · 9ce4307
1 parent 085ffc5
commit 9ce4307
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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