fill_rho_layer Subroutine

public subroutine fill_rho_layer(state_handle, buf)

In-situ density per layer — direct read of the EOS slot (driver must have run ocean_eos_compute this step; not re-invoked here), with the NaN missing-data sentinel on every vanished layer.

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: state_handle
real(kind=wp), intent(inout) :: buf(:,:,:)

Calls

proc~~fill_rho_layer~~CallsGraph proc~fill_rho_layer fill_rho_layer proc~fill_rho_layer_impl fill_rho_layer_impl proc~fill_rho_layer->proc~fill_rho_layer_impl rdb_vl_is_live rdb_vl_is_live proc~fill_rho_layer_impl->rdb_vl_is_live

Source Code

   subroutine fill_rho_layer(state_handle, buf)
      !! In-situ density per layer — direct read of the EOS slot (driver
      !! must have run `ocean_eos_compute` this step; not re-invoked here),
      !! with the NaN missing-data sentinel on every vanished layer.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call fill_rho_layer_impl(state%multilayer%h_layer, &
                                  state%multilayer%rho_layer, buf)
      end select
   end subroutine fill_rho_layer