Changeset 4329 for palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90
- Timestamp:
- Dec 10, 2019 3:46:36 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90
r4182 r4329 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Renamed wall_flags_0 to wall_flags_static_0 28 ! 29 ! 4182 2019-08-22 15:20:23Z scharf 27 30 ! Corrected "Former revisions" section 28 31 ! … … 71 74 USE indices, & 72 75 ONLY: nbgp, ngp_sums_ls, nx, nxl, nxlg, nxlu, nxr, nxrg, ny, nys, & 73 nysv, nysg, nyn, nyng, nzb, nz, nzt, wall_flags_ 076 nysv, nysg, nyn, nyng, nzb, nz, nzt, wall_flags_static_0 74 77 75 78 USE kinds … … 799 802 ( td_lsa_lpt(k,nt+1) - td_lsa_lpt(k,nt) ) *& 800 803 MERGE( 1.0_wp, 0.0_wp, & 801 BTEST( wall_flags_ 0(k,j,i), 0 ) )804 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 802 805 ENDDO 803 806 ENDDO … … 812 815 ( td_lsa_q(k,nt+1) - td_lsa_q(k,nt) ) * & 813 816 MERGE( 1.0_wp, 0.0_wp, & 814 BTEST( wall_flags_ 0(k,j,i), 0 ) )817 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 815 818 ENDDO 816 819 ENDDO … … 833 836 ( td_sub_lpt(k,nt+1) - td_sub_lpt(k,nt) )*& 834 837 MERGE( 1.0_wp, 0.0_wp, & 835 BTEST( wall_flags_ 0(k,j,i), 0 ) )838 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 836 839 ENDDO 837 840 ENDDO … … 846 849 ( td_sub_q(k,nt+1) - td_sub_q(k,nt) ) * & 847 850 MERGE( 1.0_wp, 0.0_wp, & 848 BTEST( wall_flags_ 0(k,j,i), 0 ) )851 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 849 852 ENDDO 850 853 ENDDO … … 899 902 + fac * ( td_lsa_lpt(k,nt+1) - td_lsa_lpt(k,nt) )*& 900 903 MERGE( 1.0_wp, 0.0_wp, & 901 BTEST( wall_flags_ 0(k,j,i), 0 ) )904 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 902 905 ENDDO 903 906 … … 908 911 + fac * ( td_lsa_q(k,nt+1) - td_lsa_q(k,nt) ) * & 909 912 MERGE( 1.0_wp, 0.0_wp, & 910 BTEST( wall_flags_ 0(k,j,i), 0 ) )913 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 911 914 ENDDO 912 915 … … 925 928 ( td_sub_lpt(k,nt+1) - td_sub_lpt(k,nt) ) * & 926 929 MERGE( 1.0_wp, 0.0_wp, & 927 BTEST( wall_flags_ 0(k,j,i), 0 ) )930 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 928 931 ENDDO 929 932 … … 934 937 ( td_sub_q(k,nt+1) - td_sub_q(k,nt) ) * & 935 938 MERGE( 1.0_wp, 0.0_wp, & 936 BTEST( wall_flags_ 0(k,j,i), 0 ) )939 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 937 940 ENDDO 938 941 … … 1178 1181 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1179 1182 MERGE( 1.0_wp, 0.0_wp, & 1180 BTEST( wall_flags_ 0(k,j,i), 1 ) )1183 BTEST( wall_flags_static_0(k,j,i), 1 ) ) 1181 1184 1182 1185 sums_ls_l(k,6) = sums_ls_l(k,6) + tmp_tend * & … … 1201 1204 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1202 1205 MERGE( 1.0_wp, 0.0_wp, & 1203 BTEST( wall_flags_ 0(k,j,i), 2 ) )1206 BTEST( wall_flags_static_0(k,j,i), 2 ) ) 1204 1207 1205 1208 sums_ls_l(k,7) = sums_ls_l(k,7) + tmp_tend * & … … 1224 1227 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1225 1228 MERGE( 1.0_wp, 0.0_wp, & 1226 BTEST( wall_flags_ 0(k,j,i), 0 ) )1229 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 1227 1230 1228 1231 sums_ls_l(k,4) = sums_ls_l(k,4) + tmp_tend * & … … 1247 1250 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1248 1251 MERGE( 1.0_wp, 0.0_wp, & 1249 BTEST( wall_flags_ 0(k,j,i), 0 ) )1252 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 1250 1253 1251 1254 sums_ls_l(k,5) = sums_ls_l(k,5) + tmp_tend * & … … 1313 1316 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1314 1317 MERGE( 1.0_wp, 0.0_wp, & 1315 BTEST( wall_flags_ 0(k,j,i), 1 ) )1318 BTEST( wall_flags_static_0(k,j,i), 1 ) ) 1316 1319 1317 1320 sums_ls_l(k,6) = sums_ls_l(k,6) + tmp_tend & … … 1330 1333 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1331 1334 MERGE( 1.0_wp, 0.0_wp, & 1332 BTEST( wall_flags_ 0(k,j,i), 2 ) )1335 BTEST( wall_flags_static_0(k,j,i), 2 ) ) 1333 1336 1334 1337 sums_ls_l(k,7) = sums_ls_l(k,7) + tmp_tend & … … 1347 1350 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1348 1351 MERGE( 1.0_wp, 0.0_wp, & 1349 BTEST( wall_flags_ 0(k,j,i), 0 ) )1352 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 1350 1353 1351 1354 sums_ls_l(k,4) = sums_ls_l(k,4) + tmp_tend & … … 1365 1368 tend(k,j,i) = tend(k,j,i) + tmp_tend * & 1366 1369 MERGE( 1.0_wp, 0.0_wp, & 1367 BTEST( wall_flags_ 0(k,j,i), 0 ) )1370 BTEST( wall_flags_static_0(k,j,i), 0 ) ) 1368 1371 1369 1372 sums_ls_l(k,5) = sums_ls_l(k,5) + tmp_tend &
Note: See TracChangeset
for help on using the changeset viewer.
