Ignore:
Timestamp:
Jul 26, 2016 7:52:02 AM (5 years ago)
Author:
maronga
Message:

further modularization of land surface model (2D/3D output and restart data)

File:
1 edited

Legend:

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

    r1961 r1972  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added call to lsm_last_actions for binary output of land surface model data
    2222!
    2323! Former revisions:
     
    161161
    162162    USE kinds
     163
     164    USE land_surface_model_mod,                                                &
     165        ONLY:  land_surface, lsm_last_actions
    163166
    164167    USE ls_forcing_mod,                                                        &
     
    442445    IF ( myid == 0 )  CALL header
    443446!
    444 !-- If required, final user-defined actions, and
     447!-- If required, final land surface and user-defined actions, and
    445448!-- last actions on the open files and close files. Unit 14 was opened
    446449!-- in write_3d_binary but it is closed here, to allow writing on this
     
    449452    DO  i = 0, io_blocks-1
    450453       IF ( i == io_group )  THEN
     454          IF ( land_surface )  THEN
     455             CALL lsm_last_actions
     456          ENDIF
    451457          CALL user_last_actions
    452458          IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
Note: See TracChangeset for help on using the changeset viewer.