Skip to content

Commit

Permalink
Minor diagnostic print updates.
Browse files Browse the repository at this point in the history
  • Loading branch information
GeorgeGayno-NOAA committed Jan 5, 2024
1 parent 870275f commit a31a000
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions sorc/chgres_cube.fd/surface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -201,7 +201,7 @@ subroutine surface_driver(localpet)
call calc_liq_soil_moisture

!---------------------------------------------------------------------------------------------
! Set z0 at land and sea ice.
! Set z0 at water and sea ice.
!---------------------------------------------------------------------------------------------

call roughness
Expand Down Expand Up @@ -2623,7 +2623,7 @@ subroutine qc_check
enddo
enddo

print*,"- SET NON-ICE FLAG FOR TARGET GRID ICE TEMPERATURE."
print*,"- SET NON-ICE FLAG FOR TARGET GRID ICE COLUMN TEMPERATURE."
call ESMF_FieldGet(ice_temp_target_grid, &
farrayPtr=ice_ptr, rc=rc)
if(ESMF_logFoundError(rcToCheck=rc,msg=ESMF_LOGERR_PASSTHRU,line=__LINE__,file=__FILE__)) &
Expand Down

0 comments on commit a31a000

Please sign in to comment.