Ignore:
Timestamp:
Dec 10, 2019 6:25:02 PM (4 years ago)
Author:
suehring
Message:

New diagnostic output for 10-m wind speed; Diagnostic output of 2-m potential temperature moved to diagnostic output

File:
1 edited

Legend:

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

    r4227 r4331  
    2525! -----------------
    2626! $Id$
     27! Enable output of diagnostic quantities, e.g. 2-m temperature
     28!
     29! 4227 2019-09-10 18:04:34Z gronemeier
    2730! implement new palm_date_time_mod
    2831!
     
    8184    USE cpulog,                                                                &
    8285        ONLY:  cpu_log, log_point_s
     86
     87    USE diagnostic_output_quantities_mod,                                      &
     88        ONLY:  doq_calculate
    8389
    8490    USE indices,                                                               &
     
    468474!--       2d-data output (cross-sections)
    469475          IF ( time_do2d_xy >= dt_do2d_xy )  THEN
     476             CALL doq_calculate
    470477             CALL data_output_2d( 'xy', 0 )
    471478             time_do2d_xy = MOD( time_do2d_xy, MAX( dt_do2d_xy, dt_3d ) )
     
    475482!--       3d-data output (volume data)
    476483          IF ( time_do3d >= dt_do3d )  THEN
     484             CALL doq_calculate
    477485             CALL data_output_3d( 0 )
    478486             time_do3d = MOD( time_do3d, MAX( dt_do3d, dt_3d ) )
     
    560568
    561569       USE basic_constants_and_equations_mod,                                  &
    562        ONLY:  pi
     570           ONLY:  pi
    563571     
    564572       USE kinds
Note: See TracChangeset for help on using the changeset viewer.