diff --git a/src/cpl/nuopc/lnd_import_export.F90 b/src/cpl/nuopc/lnd_import_export.F90 index 30c9f6eec3..11cc807640 100644 --- a/src/cpl/nuopc/lnd_import_export.F90 +++ b/src/cpl/nuopc/lnd_import_export.F90 @@ -1330,7 +1330,7 @@ subroutine ReadCapNamelist( NLFilename, rc ) integer, target :: tmp(1) type(ESMF_VM) :: vm character(*), parameter :: nml_name = "ctsm_nuopc_cap" ! MUST match with namelist name below - + namelist /ctsm_nuopc_cap/ force_send_to_atm @@ -1355,7 +1355,7 @@ subroutine ReadCapNamelist( NLFilename, rc ) ! Broadcast namelist to all processors call ESMF_VMBroadcast(vm, tmp, 1, 0, rc=rc) - + force_send_to_atm = (tmp(1) == 1) if (ChkErr(rc,__LINE__,u_FILE_u)) return