Ignore:
Timestamp:
Jul 27, 2016 1:28:04 PM (5 years ago)
Author:
maronga
Message:

further modularization of land surface model (2D/3D output and restart data). Bugfix for restart runs without land surface model

File:
1 edited

Legend:

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

    r1961 r1976  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Simplied calls to radiation model
    2222!
    2323! Former revisions:
     
    305305
    306306    USE radiation_model_mod,                                                   &
    307         ONLY:  radiation, radiation_scheme, radiation_tendency,                &
     307        ONLY:  radiation, radiation_tendency,                                  &
    308308               skip_time_do_radiation
    309309
     
    638638!
    639639!--          If required, add tendency due to radiative heating/cooling
    640              IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.            &
     640             IF ( radiation  .AND.                                             &
    641641                  simulated_time > skip_time_do_radiation )  THEN
    642642                CALL radiation_tendency ( i, j, tend )
     
    13711371!
    13721372!--    If required, add tendency due to radiative heating/cooling
    1373        IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.                  &
     1373       IF ( radiation  .AND.                                                   &
    13741374            simulated_time > skip_time_do_radiation )  THEN
    13751375            CALL radiation_tendency ( tend )
     
    22932293       ENDIF
    22942294
    2295        IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.                  &
     2295       IF ( radiation .AND.                                                    &
    22962296            simulated_time > skip_time_do_radiation )  THEN
    22972297            CALL radiation_tendency ( tend )
Note: See TracChangeset for help on using the changeset viewer.