Ignore:
Timestamp:
Apr 30, 2015 7:05:52 AM (6 years ago)
Author:
maronga
Message:

Added support for RRTMG radiation code

File:
1 edited

Legend:

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

    r1576 r1585  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Initialization of radiation code is now done after LSM initializtion
    2323!
    2424! Former revisions:
     
    16061606    IF ( particle_advection )  CALL lpm_init
    16071607
     1608!
     1609!-- If required, initialize quantities needed for the LSM
     1610    IF ( land_surface )  THEN
     1611       CALL location_message( 'initializing land surface model', .FALSE. )
     1612       CALL init_lsm
     1613       CALL location_message( 'finished', .TRUE. )
     1614    ENDIF
    16081615
    16091616!
    16101617!-- If required, initialize radiation model
    16111618    IF ( radiation )  THEN
     1619       CALL location_message( 'initializing radiation model', .FALSE. )
    16121620       CALL init_radiation
    1613     ENDIF
    1614 
    1615 !
    1616 !-- If required, initialize quantities needed for the LSM
    1617     IF ( land_surface )  THEN
    1618        CALL init_lsm
     1621       CALL location_message( 'finished', .TRUE. )
    16191622    ENDIF
    16201623
Note: See TracChangeset for help on using the changeset viewer.