check Subroutine

public subroutine check(status)

Uses

    • netcdf
  • proc~~check~~UsesGraph proc~check check netcdf netcdf proc~check->netcdf

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: status

Calls

proc~~check~~CallsGraph proc~check check nf90_strerror nf90_strerror proc~check->nf90_strerror

Called by

proc~~check~~CalledByGraph proc~check check proc~uemep_save_for_emep_netcdf_file uEMEP_save_for_EMEP_netcdf_file proc~uemep_save_for_emep_netcdf_file->proc~check proc~uemep_save_netcdf_file uEMEP_save_netcdf_file proc~uemep_save_netcdf_file->proc~check proc~uemep_save_netcdf_receptor_file uEMEP_save_netcdf_receptor_file proc~uemep_save_netcdf_receptor_file->proc~check proc~uemep_save_emission_netcdf uEMEP_save_emission_netcdf proc~uemep_save_emission_netcdf->proc~uemep_save_for_emep_netcdf_file proc~uemep_save_netcdf_control uEMEP_save_netcdf_control proc~uemep_save_netcdf_control->proc~uemep_save_netcdf_file proc~uemep_save_netcdf_control->proc~uemep_save_netcdf_receptor_file proc~uemep_calculate_emissions_for_emep uEMEP_calculate_emissions_for_EMEP proc~uemep_calculate_emissions_for_emep->proc~uemep_save_emission_netcdf program~uemep uEMEP program~uemep->proc~uemep_save_netcdf_control program~uemep->proc~uemep_calculate_emissions_for_emep

Source Code

    subroutine check(status)

        use netcdf
        implicit none
        integer, intent ( in) :: status

        if(status /= nf90_noerr) then
            write(*,*) 'Stopping due to netcdf error: '//trim(nf90_strerror(status))
            error stop
        end if

    end subroutine check