Skip to content

Commit

Permalink
Fixed filename in ctest for soil increment.
Browse files Browse the repository at this point in the history
  • Loading branch information
ClaraDraper-NOAA committed Dec 18, 2024
1 parent ddde3f3 commit 2a4848d
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion tests/global_cycle/ftst_read_increments.F90
Original file line number Diff line number Diff line change
Expand Up @@ -58,6 +58,9 @@ program read_increments
real:: slc_inc_expected_values_tile5(NUM_VALUES)
real:: slc_inc_expected_values_tile6(NUM_VALUES)

CHARACTER(LEN=50) :: FNAME_INC
CHARACTER(LEN=3) :: RANKCH

!expected values were extracted from MATLAB, which directly reads in xainc file
!each tile is examined separately here
data stc_inc_expected_values_tile1 / 3.1428, 2.9983, 2.9786, 2.9634 /
Expand Down Expand Up @@ -94,7 +97,10 @@ program read_increments
call rename("soil_sfcincr_jedi.005", "soil_xainc.005")
call rename("soil_sfcincr_jedi.006", "soil_xainc.006")

call read_data(lsoil,lensfc,.false.,STCINC=STCINC,SLCINC=SLCINC)
WRITE(RANKCH, '(I3.3)') (MY_RANK+1)
FNAME_INC = "soil_xainc." // RANKCH

call read_data(lsoil,lensfc,.false.,FNAME_INC=FNAME_INC,STCINC=STCINC,SLCINC=SLCINC)

if (my_rank .eq. 0) then
do l = 1,4
Expand Down

0 comments on commit 2a4848d

Please sign in to comment.