Ignore:
Timestamp:
Nov 14, 2018 1:36:44 PM (6 years ago)
Author:
raasch
Message:

unused variables removed, missing working precision added, missing preprocessor directives added, bugfix concerning allocation of t_surf_wall_v in nopointer case, declaration statements rearranged to avoid compile time errors, mpi_abort arguments replaced to avoid compile errors

File:
1 edited

Legend:

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

    r3495 r3524  
    2828! -----------------
    2929! $Id$
     30! missing cpp-directives added
     31!
     32! 3495 2018-11-06 15:22:17Z kanani
    3033! Resort control_parameters ONLY list,
    3134! From branch radiation@3491 moh.hefny:
     
    23072310!--       Calculate initial surface albedo for different surfaces
    23082311          IF ( .NOT. constant_albedo )  THEN
     2312#if defined( __netcdf )
    23092313!
    23102314!--          Horizontally aligned natural and urban surfaces
     
    23172321                CALL calc_albedo( surf_usm_v(l) )
    23182322             ENDDO
     2323#endif
    23192324          ELSE
    23202325!
     
    30893094!--    Calculate surface albedo. In case average radiation is applied,
    30903095!--    this is not required.
     3096#if defined( __netcdf )
    30913097       IF ( .NOT. constant_albedo )  THEN
    30923098!
     
    31013107          ENDDO
    31023108       ENDIF
     3109#endif
    31033110
    31043111!
Note: See TracChangeset for help on using the changeset viewer.