brightness.c

Go to the documentation of this file.

/*
  This file is part of JURASSIC.
  
  JURASSIC is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.
  
  JURASSIC is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
  
  You should have received a copy of the GNU General Public License
  along with JURASSIC. If not, see <http://www.gnu.org/licenses/>.
  
  Copyright (C) 2003-2024 Forschungszentrum Juelich GmbH
*/
 
#include "jurassic.h"
 
int main(
  int argc,
  char *argv[]) {
 
  /* Check arguments... */
  if (argc != 3 && argc != 7)
    ERRMSG
      ("Give parameters: [ <rad> <nu> | "
       " <rad0> <rad1> <drad> <nu0> <nu1> <dnu> ]");
 
  /* Calculate single value... */
  if (argc == 3) {
 
    /* Read arguments... */
    double rad = atof(argv[1]);
    double nu = atof(argv[2]);
 
    /* Compute brightness temperature... */
    printf("%.10g\n", BRIGHT(rad, nu));
 
  }
 
  /* Calculate table... */
  else if (argc == 7) {
 
    /* Read arguments... */
    double rad0 = atof(argv[1]);
    double rad1 = atof(argv[2]);
    double drad = atof(argv[3]);
    double nu0 = atof(argv[4]);
    double nu1 = atof(argv[5]);
    double dnu = atof(argv[6]);
 
    /* Write header... */
    printf("# $1 = radiance [W/(m^2 sr cm^-1)]\n"
           "# $2 = wavenumber [cm^-1]\n"
           "# $3 = brightness temperature [K]\n");
 
    /* Compute brightness temperature... */
    for (double rad = rad0; rad <= rad1; rad += drad) {
      printf("\n");
      for (double nu = nu0; nu <= nu1; nu += dnu)
        printf("%.10g %.4f %.10g\n", rad, nu, BRIGHT(rad, nu));
    }
  }
 
  return EXIT_SUCCESS;
}