Skip to content

Commit

Permalink
fix bug in restart procedure
Browse files Browse the repository at this point in the history
  • Loading branch information
FrancescoAvanzi committed Nov 13, 2024
1 parent ffb3f55 commit c6deffe
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 2 deletions.
4 changes: 4 additions & 0 deletions CHANGELOG.rst
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,10 @@
Changelog
=========

Version 5.3.3 (20241113)
========================
- correct bug in restart procedure wrt loading ice thickness

Version 5.3.2 (20241031)
========================
- Performed some minor changes to S3M_Module_Tools_Generic.f90, function filter_array_unique, to neglect -9999.0 while counting glacier IDs (this significantly speeds up that routine)
Expand Down
4 changes: 2 additions & 2 deletions S3M_Module_Data_Restart_Gridded.f90
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
! Author(s): Fabio Delogu, Francesco Silvestro, Simone Gabellani, Francesco Avanzi.
!
! Created on May 7, 2015, 1:27 PM
! Last update on December 15, 2023 11:20 AM
! Last update on November 13, 2024 10:55 AM
!
! Module to read restart data.
!------------------------------------------------------------------------------------------
Expand Down Expand Up @@ -490,7 +490,7 @@ subroutine S3M_Data_Restart_Gridded_NC(iID, &
! Ice thickness
if (oS3M_Namelist(iID)%iFlagThickFromTerrData .eq. 0) then
!We load Thickness from Restart data only if we said S3M to do so in the infoFile.
sVarName = 'Thickness'
sVarName = 'Ice_Thickness'
call S3M_Tools_IO_Get2d_NC((sVarName), iFileID, a2dVar, sVarUnits, iCols, iRows, .false., iErr)
if(iErr /= 0) then
call mprintf(.true., iWARN, ' Get restart gridded data FAILED! '// &
Expand Down

0 comments on commit c6deffe

Please sign in to comment.