fix compilation errors

grantfirl · Oct 9, 2024 · 4782f68 · 4782f68
1 parent bf3e1e1
commit 4782f68
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/physics/SFC_Models/Land/Noahmp/lnd_iau_mod.F90 b/physics/SFC_Models/Land/Noahmp/lnd_iau_mod.F90
@@ -104,7 +104,7 @@ module land_iau_mod
 
   end type land_iau_control_type
 
-  public land_iau_control_type, land_iau_external_data_type, land_iau_mod_set_control, &
+  public land_iau_control_type, land_iau_external_data_type, land_iau_state_type, land_iau_mod_set_control, &
          land_iau_mod_init, land_iau_mod_getiauforcing, land_iau_mod_finalize, calculate_landinc_mask
 
 contains
@@ -130,7 +130,7 @@ subroutine land_iau_mod_set_control(Land_IAU_Control,fn_nml,input_nml_file_i, me
    logical                                    :: exists
    character(len=512)                         :: ioerrmsg
 
-   character(len=:), dimension(:)             :: input_nml_file => null()
+   character(len=:), pointer, dimension(:)    :: input_nml_file => null()
    character(len=4)                           :: iosstr
 
    !> land iau setting read from namelist

diff --git a/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 b/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90
@@ -73,7 +73,7 @@ subroutine noahmpdrv_init(lsm, lsm_noahmp, me,               &
     type(land_iau_state_type),  intent(inout) :: Land_IAU_state
     integer,                       intent(in) :: mpi_root   ! = GFS_Control%master        
     character(*),                  intent(in) :: fn_nml
-    character(len=:), intent(in), dimension(:) :: input_nml_file 
+    character(len=:), pointer, intent(in), dimension(:) :: input_nml_file 
     integer,                       intent(in) :: isc, jsc, ncols, nx, ny, nblks      !=GFS_Control%ncols, %nx, %ny, nblks
     integer,                       intent(in) :: tile_num  !GFS_control_type%tile_num
     integer, dimension(:),         intent(in) :: blksz   !(one:) !GFS_Control%blksz