Ignore:
Timestamp:
Feb 28, 2019 12:19:33 PM (3 years ago)
Author:
raasch
Message:

rrtmg preprocessor for directives moved/added, save attribute added to temporary pointers to avoid compiler warnings about outlived pointer targets, statement added to avoid compiler warning about unused variable

File:
1 edited

Legend:

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

    r3761 r3771  
    2525! -----------------
    2626! $Id$
     27! preprocessor directivs fro rrtmg added
     28!
     29! 3761 2019-02-25 15:31:42Z raasch
    2730! unused variable removed
    2831!
     
    425428        ONLY:  cthf, pcm_tendency
    426429
     430#if defined( __rrtmg )
    427431    USE radiation_model_mod,                                                   &
    428432        ONLY:  radiation, radiation_tendency,                                  &
    429433               skip_time_do_radiation
     434#endif
    430435                         
    431436    USE salsa_mod,                                                             &
     
    943948             ENDIF
    944949
     950#if defined( __rrtmg )
    945951!
    946952!--          If required, add tendency due to radiative heating/cooling
     
    949955                CALL radiation_tendency ( i, j, tend )
    950956             ENDIF
    951 
     957#endif
    952958
    953959             CALL module_interface_actions( i, j, 'pt-tendency' )
     
    19571963       ENDIF
    19581964
     1965#if defined( __rrtmg )
    19591966!
    19601967!--    If required, add tendency due to radiative heating/cooling
     
    19631970            CALL radiation_tendency ( tend )
    19641971       ENDIF
     1972#endif
    19651973
    19661974       CALL module_interface_actions( 'pt-tendency' )
Note: See TracChangeset for help on using the changeset viewer.