Rename SITE_fsrfdata to SITE_fsitedata.

bnuweinan · Dec 10, 2024 · b9c1970 · b9c1970
1 parent 1c5dd56
commit b9c1970
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/mksrfdata/MKSRFDATA.F90 b/mksrfdata/MKSRFDATA.F90
@@ -110,9 +110,9 @@ PROGRAM MKSRFDATA
 
 #ifdef SinglePoint
 #ifndef URBAN_MODEL
-   CALL read_surface_data_single (SITE_fsrfdata, mksrfdata=.true.)
+   CALL read_surface_data_single (SITE_fsitedata, mksrfdata=.true.)
 #else
-   CALL read_urban_surface_data_single (SITE_fsrfdata, mksrfdata=.true.)
+   CALL read_urban_surface_data_single (SITE_fsitedata, mksrfdata=.true.)
 #endif
 #endif
 

diff --git a/share/MOD_Namelist.F90 b/share/MOD_Namelist.F90
@@ -57,7 +57,7 @@ MODULE MOD_Namelist
 ! ----- Part 3: For Single Point -----
 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
-   character(len=256) :: SITE_fsrfdata   = 'null'
+   character(len=256) :: SITE_fsitedata = 'null'
 
    real(r8) :: SITE_lon_location = 113.5897
    real(r8) :: SITE_lat_location = 22.3507
@@ -818,7 +818,7 @@ SUBROUTINE read_namelist (nlfile)
       DEF_CASE_NAME,                          &
       DEF_domain,                             &
 
-      SITE_fsrfdata,                          &
+      SITE_fsitedata,                         &
       SITE_lon_location,                      &
       SITE_lat_location,                      &
       SITE_landtype,                          &