vic/drivers/classic/src/print_library_classic.c
void
print_atmos_data(force_data_struct *force,
                 size_t             nr)
{
    extern option_struct options;
    size_t               i;

    fprintf(LOG_DEST, "atmos_data  :\n");
    fprintf(LOG_DEST, "\tair_temp  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->air_temp[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tdensity   :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->density[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tlongwave  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->longwave[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_prec  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_prec);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_rain  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_rain);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_snow  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_snow);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tprec      :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->prec[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tpressure  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->pressure[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tshortwave :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->shortwave[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tsnowflag  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%d\n", force->snowflag[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tvp        :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->vp[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tvpd       :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->vpd[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\twind      :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->wind[i]);
    }
    fprintf(LOG_DEST, "\n");
    if (options.LAKES) {
        fprintf(LOG_DEST, "\tchannel_in:");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->channel_in[i]);
        }
        fprintf(LOG_DEST, "\n");
    }
    if (options.CARBON) {
        fprintf(LOG_DEST, "\tCatm      :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->Catm[i]);
        }
        fprintf(LOG_DEST, "\n");
        fprintf(LOG_DEST, "\tfdir      :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->fdir[i]);
        }
        fprintf(LOG_DEST, "\n");
        fprintf(LOG_DEST, "\tpar       :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->par[i]);
        }
        fprintf(LOG_DEST, "\n");
    }
}
/******************************************************************************
 * @brief    Print atmos data structure.
 *****************************************************************************/
@brief    Print atmos data structure.
@brief Print atmos data structure .
void
print_atmos_data(force_data_struct *force,
                 size_t             nr)
{
    extern option_struct options;
    size_t               i;
    fprintf(LOG_DEST, "atmos_data  :\n");
    fprintf(LOG_DEST, "\tair_temp  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->air_temp[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tdensity   :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->density[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tlongwave  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->longwave[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_prec  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_prec);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_rain  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_rain);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tout_snow  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->out_snow);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tprec      :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->prec[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tpressure  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->pressure[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tshortwave :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->shortwave[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tsnowflag  :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%d\n", force->snowflag[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tvp        :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->vp[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\tvpd       :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->vpd[i]);
    }
    fprintf(LOG_DEST, "\n");
    fprintf(LOG_DEST, "\twind      :");
    for (i = 0; i <= nr; i++) {
        fprintf(LOG_DEST, "\t%.4f", force->wind[i]);
    }
    fprintf(LOG_DEST, "\n");
    if (options.LAKES) {
        fprintf(LOG_DEST, "\tchannel_in:");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->channel_in[i]);
        }
        fprintf(LOG_DEST, "\n");
    }
    if (options.CARBON) {
        fprintf(LOG_DEST, "\tCatm      :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->Catm[i]);
        }
        fprintf(LOG_DEST, "\n");
        fprintf(LOG_DEST, "\tfdir      :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->fdir[i]);
        }
        fprintf(LOG_DEST, "\n");
        fprintf(LOG_DEST, "\tpar       :");
        for (i = 0; i <= nr; i++) {
            fprintf(LOG_DEST, "\t%.4f", force->par[i]);
        }
        fprintf(LOG_DEST, "\n");
    }
}
void print_atmos_data ( force_data_struct * force , size_t nr ) { extern option_struct options ; size_t i ; fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> air_temp [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> density [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> longwave [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> out_prec ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> out_rain ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> out_snow ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> prec [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> pressure [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> shortwave [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t \n " , force -> snowflag [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> vp [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> vpd [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> wind [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; if ( options . LAKES ) { fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> channel_in [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; } if ( options . CARBON ) { fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> Catm [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> fdir [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; fprintf ( LOG_DEST , " \t " ) ; for ( i = 0 ; i <= nr ; i ++ ) { fprintf ( LOG_DEST , " \t " , force -> par [ i ] ) ; } fprintf ( LOG_DEST , " \n " ) ; } }
@brief    Print atmos data structure.
@brief Print atmos data structure .