Changeset 3554 for palm/trunk/SOURCE/subsidence_mod.f90
- Timestamp:
- Nov 22, 2018 11:24:52 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/subsidence_mod.f90
r3302 r3554 25 25 ! ----------------- 26 26 ! $Id$ 27 ! add subroutine and variable description 28 ! 29 ! 3302 2018-10-03 02:39:40Z raasch 27 30 ! small message change 28 31 ! … … 124 127 ! Description: 125 128 ! ------------ 126 !> @todo Missing subroutine description.129 !> Initialize vertical subsidence velocity w_subs. 127 130 !------------------------------------------------------------------------------! 128 131 SUBROUTINE init_w_subsidence … … 142 145 IMPLICIT NONE 143 146 144 INTEGER(iwp) :: i !< 145 INTEGER(iwp) :: k !< 146 147 REAL(wp) :: gradient !< 148 REAL(wp) :: ws_surface !< 147 INTEGER(iwp) :: i !< loop index 148 INTEGER(iwp) :: k !< loop index 149 150 REAL(wp) :: gradient !< vertical gradient of subsidence velocity 151 REAL(wp) :: ws_surface !< subsidence velocity at the surface 149 152 150 153 IF ( .NOT. ALLOCATED( w_subs ) ) THEN … … 201 204 ! Description: 202 205 ! ------------ 203 !> @todo Missing subroutine description.206 !> Add effect of large-scale subsidence to variable. 204 207 !------------------------------------------------------------------------------! 205 208 SUBROUTINE subsidence( tendency, var, var_init, ls_index ) … … 223 226 IMPLICIT NONE 224 227 225 INTEGER(iwp) :: i !<226 INTEGER(iwp) :: j !<227 INTEGER(iwp) :: k !<228 INTEGER(iwp) :: ls_index !< 229 230 REAL(wp) :: tmp_tend !< 231 REAL(wp) :: tmp_grad !< 228 INTEGER(iwp) :: i !< loop index 229 INTEGER(iwp) :: j !< loop index 230 INTEGER(iwp) :: k !< loop index 231 INTEGER(iwp) :: ls_index !< index of large-scale subsidence in sums_ls_l 232 233 REAL(wp) :: tmp_tend !< temporary tendency 234 REAL(wp) :: tmp_grad !< temporary gradient 232 235 233 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var !< 234 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tendency !< 235 REAL(wp), DIMENSION(nzb:nzt+1) :: var_init !< 236 REAL(wp), DIMENSION(nzb:nzt+1) :: var_mod !< 236 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var !< variable where to add subsidence 237 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tendency !< tendency of var 238 REAL(wp), DIMENSION(nzb:nzt+1) :: var_init !< initialization profile of var 239 REAL(wp), DIMENSION(nzb:nzt+1) :: var_mod !< modified profile of var 237 240 238 241 var_mod = var_init … … 316 319 ! Description: 317 320 ! ------------ 318 !> @todo Missing subroutine description.321 !> Add effect of large-scale subsidence to variable. 319 322 !------------------------------------------------------------------------------! 320 323 SUBROUTINE subsidence_ij( i, j, tendency, var, var_init, ls_index ) … … 337 340 IMPLICIT NONE 338 341 339 INTEGER(iwp) :: i !<340 INTEGER(iwp) :: j !<341 INTEGER(iwp) :: k !<342 INTEGER(iwp) :: ls_index !< 343 344 REAL(wp) :: tmp_tend !< 345 REAL(wp) :: tmp_grad !< 342 INTEGER(iwp) :: i !< loop variable 343 INTEGER(iwp) :: j !< loop variable 344 INTEGER(iwp) :: k !< loop variable 345 INTEGER(iwp) :: ls_index !< index of large-scale subsidence in sums_ls_l 346 347 REAL(wp) :: tmp_tend !< temporary tendency 348 REAL(wp) :: tmp_grad !< temporary gradient 346 349 347 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var !< 348 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tendency !< 349 REAL(wp), DIMENSION(nzb:nzt+1) :: var_init !< 350 REAL(wp), DIMENSION(nzb:nzt+1) :: var_mod !< 350 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: var !< variable where to add subsidence 351 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tendency !< tendency of var 352 REAL(wp), DIMENSION(nzb:nzt+1) :: var_init !< initialization profile of var 353 REAL(wp), DIMENSION(nzb:nzt+1) :: var_mod !< modified profile of var 351 354 352 355 var_mod = var_init
Note: See TracChangeset
for help on using the changeset viewer.