corner_is_wet Function

private pure function corner_is_wet(w1, w2, w3, w4) result(ok)

.true. iff all four cells contributing to a corner sample are wet. The masks are real 0/1 (ocean_metrics_t%wet_T), so the test is a mid-point comparison rather than an equality.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: w1
real(kind=wp), intent(in) :: w2
real(kind=wp), intent(in) :: w3
real(kind=wp), intent(in) :: w4

Return Value logical


Called by

proc~~corner_is_wet~~CalledByGraph proc~corner_is_wet corner_is_wet proc~porous_fill_stats_resolved porous_fill_stats_resolved proc~porous_fill_stats_resolved->proc~corner_is_wet proc~configure_ocean_porous configure_ocean_porous proc~configure_ocean_porous->proc~porous_fill_stats_resolved proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_porous proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   pure function corner_is_wet(w1, w2, w3, w4) result(ok)
      !! `.true.` iff all four cells contributing to a corner sample are
      !! wet.  The masks are real 0/1 (`ocean_metrics_t%wet_T`), so the
      !! test is a mid-point comparison rather than an equality.
      real(wp), intent(in) :: w1, w2, w3, w4
      logical :: ok
      ok = (w1 > 0.5_wp) .and. (w2 > 0.5_wp) .and. &
           (w3 > 0.5_wp) .and. (w4 > 0.5_wp)
   end function corner_is_wet