Skip to content

Commit

Permalink
Correct typo in w3srcemd.F90 pre-processor directive. (#1039)
Browse files Browse the repository at this point in the history
  • Loading branch information
ukmo-ccbunney committed Jul 14, 2023
1 parent 4d8c315 commit 02cb72f
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion model/src/w3srcemd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -757,7 +757,7 @@ SUBROUTINE W3SRCE ( srce_call, IT, ISEA, JSEA, IX, IY, IMOD, &
REAL :: DTRAW
#endif

#if defined(W3_IC1) || W3_IC2 || defined(W3_IC3) || defined(W3_IC4) || defined(W3_IC5)
#if defined(W3_IC1) || defined(W3_IC2) || defined(W3_IC3) || defined(W3_IC4) || defined(W3_IC5)
REAL :: VSIC(NSPEC), VDIC(NSPEC)
#endif

Expand Down

0 comments on commit 02cb72f

Please sign in to comment.