Changeset 1606 for palm


Ignore:
Timestamp:
Jun 29, 2015 10:43:37 AM (9 years ago)
Author:
maronga
Message:

bugfix: compilation of radiation_model.f90 without netcdf

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r1588 r1606  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added check for use of RRTMG without netCDF.
    2323!
    2424! Former revisions:
     
    11621162          CALL message( 'check_parameters', 'PA0407', 1, 2, 0, 6, 0 )
    11631163#endif
     1164#if defined ( __rrtmg ) && ! defined( __netcdf )
     1165          message_string = 'radiation_scheme = "rrtmg" requires ' //           &
     1166                           'the use of NetCDF (preprocessor directive ' //     &
     1167                           '-D__netcdf'
     1168          CALL message( 'check_parameters', 'PA0412', 1, 2, 0, 6, 0 )
     1169#endif
     1170
    11641171       ENDIF
    11651172       IF ( albedo_type == 0 .AND. albedo == 9999999.9_wp .AND.                &
  • palm/trunk/SOURCE/radiation_model.f90

    r1591 r1606  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added preprocessor directive __netcdf to allow for compiling without netCDF.
     23! Note, however, that RRTMG cannot be used without netCDF.
    2324!
    2425! Former revisions:
     
    8182    USE kinds
    8283
     84#if defined ( __netcdf )
    8385    USE netcdf
     86#endif
    8487
    8588    USE netcdf_control,                                                        &
     
    896899    END SUBROUTINE calc_zenith
    897900
    898 #if defined ( __rrtmg )
     901#if defined ( __rrtmg ) && defined ( __netcdf )
    899902!------------------------------------------------------------------------------!
    900903! Description:
Note: See TracChangeset for help on using the changeset viewer.