Ignore:
Timestamp:
Jul 21, 2017 12:47:43 PM (4 years ago)
Author:
suehring
Message:

large-scale forcing and nudging modularized

File:
1 edited

Legend:

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

    r2300 r2320  
    2525! -----------------
    2626! $Id$
     27! Modularize large-scale forcing and nudging
     28!
     29! 2300 2017-06-29 13:31:14Z raasch
    2730! host-specific code removed
    2831!
     
    342345    USE land_surface_model_mod,                                                &
    343346        ONLY: lsm_header
     347
     348    USE lsf_nudging_mod,                                                       &
     349        ONLY:  lsf_nudging_header
    344350
    345351    USE microphysics_mod,                                                      &
     
    746752!
    747753!-- Large scale forcing and nudging
    748     WRITE ( io, 160 )
    749     IF ( large_scale_forcing )  THEN
    750        WRITE ( io, 162 )
    751        WRITE ( io, 163 )
    752 
    753        IF ( large_scale_subsidence )  THEN
    754           IF ( .NOT. use_subsidence_tendencies )  THEN
    755              WRITE ( io, 164 )
    756           ELSE
    757              WRITE ( io, 165 )
    758           ENDIF
    759        ENDIF
    760 
    761        IF ( bc_pt_b == 'dirichlet' )  THEN
    762           WRITE ( io, 180 )
    763        ELSEIF ( bc_pt_b == 'neumann' )  THEN
    764           WRITE ( io, 181 )
    765        ENDIF
    766 
    767        IF ( bc_q_b == 'dirichlet' )  THEN
    768           WRITE ( io, 182 )
    769        ELSEIF ( bc_q_b == 'neumann' )  THEN
    770           WRITE ( io, 183 )
    771        ENDIF
    772 
    773        WRITE ( io, 167 )
    774        IF ( nudging )  THEN
    775           WRITE ( io, 170 )
    776        ENDIF
    777     ELSE
    778        WRITE ( io, 161 )
    779        WRITE ( io, 171 )
    780     ENDIF
    781     IF ( large_scale_subsidence )  THEN
    782        WRITE ( io, 168 )
    783        WRITE ( io, 169 )
    784     ENDIF
     754    IF ( large_scale_forcing )  CALL lsf_nudging_header( io )
    785755
    786756!
     
    20121982           /'     ',2(1X,E12.5),'Pa/m in x/y direction', &
    20131983           /'     starting from dp_level_b =', F8.3, 'm', A /)
    2014 160 FORMAT (//' Large scale forcing and nudging:'/ &
    2015               ' -------------------------------'/)
    2016 161 FORMAT (' --> No large scale forcing from external is used (default) ')
    2017 162 FORMAT (' --> Large scale forcing from external file LSF_DATA is used: ')
    2018 163 FORMAT ('     - large scale advection tendencies ')
    2019 164 FORMAT ('     - large scale subsidence velocity w_subs ')
    2020 165 FORMAT ('     - large scale subsidence tendencies ')
    2021 167 FORMAT ('     - and geostrophic wind components ug and vg')
    2022 168 FORMAT (' --> Large-scale vertical motion is used in the ', &
    2023                   'prognostic equation(s) for')
    2024 169 FORMAT ('     the scalar(s) only')
    2025 170 FORMAT (' --> Nudging is used')
    2026 171 FORMAT (' --> No nudging is used (default) ')
    2027 180 FORMAT ('     - prescribed surface values for temperature')
    2028 181 FORMAT ('     - prescribed surface fluxes for temperature')
    2029 182 FORMAT ('     - prescribed surface values for humidity')
    2030 183 FORMAT ('     - prescribed surface fluxes for humidity')
    20311984200 FORMAT (//' Run time and time step information:'/ &
    20321985             ' ----------------------------------'/)
Note: See TracChangeset for help on using the changeset viewer.