From 4782f68666a0e719a217ba42d485e4f65ab3b914 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Wed, 9 Oct 2024 22:12:26 +0000 Subject: [PATCH] fix compilation errors --- physics/SFC_Models/Land/Noahmp/lnd_iau_mod.F90 | 4 ++-- physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/physics/SFC_Models/Land/Noahmp/lnd_iau_mod.F90 b/physics/SFC_Models/Land/Noahmp/lnd_iau_mod.F90 index 6c501167b..a1495c433 100644 --- 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 index 218a0df29..8b624c062 100644 --- 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