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/palm.f90

    r1973 r1976  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added call to radiation_last_actions for binary output of land surface model
     22! data
    2223!
    2324! Former revisions:
     
    134135!> machines are controlled via cpp-directives.
    135136!> Model runs are only feasible using the ksh-script mrun.
     137!>
     138!> @todo create routine last_actions instead of calling lsm_last_actions etc.
    136139!------------------------------------------------------------------------------!
    137140 PROGRAM palm
     
    182185        ONLY:  cpl_id, nested_run, pmci_child_initialize, pmci_init,           &
    183186               pmci_modelconfiguration, pmci_parent_initialize
     187
     188    USE radiation_model_mod,                                                   &
     189        ONLY:  radiation, radiation_last_actions
    184190
    185191    USE statistics,                                                            &
     
    376382    ENDIF
    377383
    378 
    379384!
    380385!-- Output of program header
     
    394399       CALL data_output_2d( 'yz', 0 )
    395400    ENDIF
     401
    396402    IF ( do3d_at_begin )  THEN
    397403       CALL data_output_3d( 0 )
     
    458464             CALL lsm_last_actions
    459465          ENDIF
     466          IF ( radiation )  THEN
     467             CALL radiation_last_actions
     468          ENDIF
    460469          CALL user_last_actions
    461470          IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
Note: See TracChangeset for help on using the changeset viewer.