Ignore:
Timestamp:
Mar 6, 2014 1:15:21 PM (8 years ago)
Author:
heinze
Message:

enable usage of large_scale subsidence in combination with large_scale_forcing

File:
1 edited

Legend:

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

    r1242 r1299  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! output for using large_scale subsidence in combination
     23! with large_scale_forcing
     24! reformatting, more detailed explanations
    2325!
    2426! Former revisions:
     
    368370    IF ( momentum_advec == 'pw-scheme' )  THEN
    369371       WRITE ( io, 113 )
    370     ELSEIF (momentum_advec == 'ws-scheme' ) THEN
     372    ELSEIF (momentum_advec == 'ws-scheme' )  THEN
    371373       WRITE ( io, 503 )
    372374    ENDIF
     
    578580    ENDIF
    579581
    580     IF ( plant_canopy ) THEN
     582    IF ( plant_canopy )  THEN
    581583
    582584       WRITE ( io, 280 ) canopy_mode, pch_index, drag_coefficient
    583        IF ( passive_scalar ) THEN
     585       IF ( passive_scalar )  THEN
    584586          WRITE ( io, 281 ) scalar_exchange_coefficient,   &
    585587                            leaf_surface_concentration
     
    717719       WRITE ( io, 303 )
    718720       IF ( constant_heatflux )  THEN
    719           IF ( large_scale_forcing .AND. lsf_surf ) THEN
     721          IF ( large_scale_forcing .AND. lsf_surf )  THEN
    720722             WRITE ( io, 306 )  shf(0,0)
    721723          ELSE
     
    725727       ENDIF
    726728       IF ( humidity  .AND.  constant_waterflux )  THEN
    727           IF ( large_scale_forcing .AND. lsf_surf ) THEN
     729          IF ( large_scale_forcing .AND. lsf_surf )  THEN
    728730             WRITE ( io, 311 ) qsws(0,0)
    729731          ELSE
     
    12271229!
    12281230!-- Spectra output
    1229     IF ( dt_dosp /= 9999999.9 ) THEN
     1231    IF ( dt_dosp /= 9999999.9 )  THEN
    12301232       WRITE ( io, 370 )
    12311233
     
    12691271!
    12701272!-- Cloud physics parameters
    1271     IF ( cloud_physics ) THEN
     1273    IF ( cloud_physics )  THEN
    12721274       WRITE ( io, 415 )
    12731275       WRITE ( io, 416 ) surface_pressure, r_d, rho_surface, cp, l_v
     
    13071309    ENDDO
    13081310
    1309     IF ( .NOT. large_scale_forcing ) THEN
     1311    IF ( .NOT. large_scale_forcing )  THEN
    13101312       WRITE ( io, 423 )  TRIM( coordinates ), TRIM( ugcomponent ), &
    13111313                          TRIM( gradients ), TRIM( slices )
     
    13431345    ENDDO
    13441346
    1345     IF ( .NOT. large_scale_forcing ) THEN
     1347    IF ( .NOT. large_scale_forcing )  THEN
    13461348       WRITE ( io, 424 )  TRIM( coordinates ), TRIM( vgcomponent ), &
    13471349                          TRIM( gradients ), TRIM( slices )
     
    13821384    ENDDO
    13831385
    1384     IF ( .NOT. nudging ) THEN
     1386    IF ( .NOT. nudging )  THEN
    13851387       WRITE ( io, 420 )  TRIM( coordinates ), TRIM( temperatures ), &
    13861388                          TRIM( gradients ), TRIM( slices )
     
    14211423
    14221424       IF ( humidity )  THEN
    1423           IF ( .NOT. nudging ) THEN
     1425          IF ( .NOT. nudging )  THEN
    14241426             WRITE ( io, 421 )  TRIM( coordinates ), TRIM( temperatures ), &
    14251427                                TRIM( gradients ), TRIM( slices )
     
    14981500       ENDDO
    14991501
    1500        WRITE ( io, 426 )  TRIM( coordinates ), TRIM( temperatures ), &
    1501                           TRIM( gradients ), TRIM( slices )
     1502 
     1503       IF ( .NOT. large_scale_forcing )  THEN
     1504          WRITE ( io, 426 )  TRIM( coordinates ), TRIM( temperatures ), &
     1505                             TRIM( gradients ), TRIM( slices )
     1506        ELSE
     1507           WRITE ( io, 460 )
     1508       ENDIF
     1509
     1510
    15021511    ENDIF
    15031512
     
    17341743           /'     starting from dp_level_b =', F8.3, 'm', A /)
    17351744153 FORMAT (' --> Large-scale vertical motion is used in the ', &
    1736                   'prognostic equation for')
    1737 154 FORMAT ('     the potential temperature')
     1745                  'prognostic equation(s) for')
     1746154 FORMAT ('     the scalar(s) only')
    17381747155 FORMAT (' --> Nudging is used - initial profiles for u, v, pt and q ',&
    17391748                  'correspond to the')
     
    19962005             '    NUDGING_DATA')
    19972006429 FORMAT (/'    Geostrophic wind profiles (ug, vg) are are taken from file '/ &
    1998              '    LSF_DATA_DATA')
     2007             '    LSF_DATA')
    19992008430 FORMAT (//' Cloud physics quantities / methods:'/ &
    20002009              ' ----------------------------------'/)
     
    20232032454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
    20242033455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')
     2034460 FORMAT (/'    Profiles for large scale vertical velocity are '/ &
     2035             '    taken from file LSF_DATA')
    20252036470 FORMAT (//' Actions during the simulation:'/ &
    20262037              ' -----------------------------'/)
Note: See TracChangeset for help on using the changeset viewer.