Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 704 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 25, 2011 10:15:53 AM (13 years ago)
Author:
suehring
Message:

Bugfix in declaration of logicals concerning outflow boundaries (advec_ws.f90).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/advec_ws.f90

    r674 r704  
    231231
    232232       INTEGER ::  i, j, k
    233        LOGICAL :: degraded_l = .FALSE., degraded_s = .FALSE.
     233       LOGICAL ::  degraded_l, degraded_s
    234234       REAL    ::  flux_d, diss_d, u_comp, v_comp
    235235       REAL, DIMENSION(:,:,:), POINTER    :: sk
    … …  
    241241                                             swap_diss_x_local
    242242       CHARACTER (LEN = *), INTENT(IN)    :: sk_char
     243       
     244       degraded_l = .FALSE.
     245       degraded_s = .FALSE.
    243246
    244247       IF ( boundary_flags(j,i) /= 0 )  THEN
    … …  
    591594
    592595       INTEGER ::  i, j, k
    593        LOGICAL ::  degraded_l = .FALSE., degraded_s = .FALSE.
     596       LOGICAL ::  degraded_l, degraded_s
    594597       REAL    ::  gu, gv, flux_d, diss_d, u_comp_l, v_comp, w_comp
    595598       REAL, DIMENSION(nzb:nzt+1)  ::  flux_t, diss_t, flux_r, diss_r,        &
    596599                                       flux_n, diss_n, u_comp
     600                                       
     601       degraded_l = .FALSE.
     602       degraded_s = .FALSE.
    597603
    598604       gu = 2.0 * u_gtrans
    … …  
    925931
    926932       INTEGER  ::  i, j, k
    927        LOGICAL  ::  degraded_l = .FALSE., degraded_s = .FALSE.
     933       LOGICAL  ::  degraded_l, degraded_s
    928934       REAL     ::  gu, gv, flux_d, diss_d, u_comp, v_comp_l, w_comp
    929935       REAL, DIMENSION(nzb:nzt+1)  ::  flux_t, diss_t, flux_n,                &
    930936                                       diss_n, flux_r, diss_r, v_comp
     937                                       
     938       degraded_l = .FALSE.
     939       degraded_s = .FALSE.
    931940     
    932941       gu = 2.0 * u_gtrans
    … …  
    12531262
    12541263       INTEGER ::  i, j, k
    1255        LOGICAL ::  degraded_l = .FALSE., degraded_s = .FALSE.
     1264       LOGICAL ::  degraded_l, degraded_s
    12561265       REAL    ::  gu, gv, flux_d, diss_d, u_comp, v_comp, w_comp
    12571266       REAL, DIMENSION(nzb:nzt+1)  ::  flux_t, diss_t, flux_r, diss_r, flux_n, &
    12581267                                       diss_n
     1268                                       
     1269       degraded_l = .FALSE. 
     1270       degraded_s = .FALSE.
    12591271
    12601272       gu = 2.0 * u_gtrans
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |