Skip to content

Commit

Permalink
more ws
Browse files Browse the repository at this point in the history
  • Loading branch information
adrifoster committed Apr 26, 2024
1 parent 541d806 commit 0586a7a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/cpl/nuopc/lnd_import_export.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand All @@ -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

Expand Down

0 comments on commit 0586a7a

Please sign in to comment.