Minor modification.

bnuweinan · Dec 7, 2024 · 1c5dd56 · 1c5dd56
1 parent 2166830
commit 1c5dd56
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/main/MOD_Hist.F90 b/main/MOD_Hist.F90
@@ -182,7 +182,9 @@ SUBROUTINE hist_out (idate, deltim, itstamp, etstamp, ptstamp, &
       CASE ('YEARLY')
          lwrite = isendofyear (idate, deltim) .or. (.not. (itstamp < etstamp))
       CASE default
+         lwrite = .false.
          write(*,*) 'Warning : Please USE one of TIMESTEP/HOURLY/DAILY/MONTHLY/YEARLY for history frequency.'
+         write(*,*) '          Set to FALSE by default.                                                     '
       END select
 
       IF (lwrite) THEN

diff --git a/main/MOD_Vars_TimeVariables.F90 b/main/MOD_Vars_TimeVariables.F90
@@ -880,7 +880,9 @@ FUNCTION save_to_restart (idate, deltim, itstamp, ptstamp) result(rwrite)
       CASE ('YEARLY')
          rwrite = isendofyear(idate, deltim)
       CASE default
+         rwrite = .false.
          write(*,*) 'Warning: Please USE one of TIMESTEP/HOURLY/DAILY/MONTHLY/YEARLY for restart frequency.'
+         write(*,*) '         Set to FALSE by default.                                                     '
       ENDSELECT
 
       IF (rwrite) THEN

diff --git a/mksrfdata/MOD_LandPatch.F90 b/mksrfdata/MOD_LandPatch.F90
@@ -124,7 +124,7 @@ SUBROUTINE landpatch_build (lc_year)
          file_patch = trim(DEF_dir_rawdata)//'landtypes/landtype-igbp-modis-'//trim(cyear)//'.nc'
 #else
          !TODO: need usgs land cover type data
-         file_patch = trim(DEF_dir_rawdata) //'/landtypes/landtype_usgs_update.nc'
+         file_patch = trim(DEF_dir_rawdata) //'/landtypes/landtype-usgs-update.nc'
 #endif
          CALL ncio_read_block (file_patch, 'landtype', gpatch, patchdata)