Changeset 3241 for palm/trunk/SOURCE/pmc_interface_mod.f90
- Timestamp:
- Sep 12, 2018 3:02:00 PM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (23 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r3217 r3241 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3217 2018-08-29 12:53:59Z suehring 27 30 ! Revise calculation of index bounds for array index_list, prevent compiler 28 31 ! (cray) to delete the loop at high optimization level. … … 703 706 #if defined( __parallel ) 704 707 705 INTEGER(iwp) :: ierr !< 706 INTEGER(iwp) :: istat !< 707 INTEGER(iwp) :: pmc_status !< 708 INTEGER(iwp) :: pmc_status !< 708 709 709 710 … … 827 828 INTEGER(iwp) :: child_id !< 828 829 INTEGER(iwp) :: ierr !< 829 INTEGER(iwp) :: i !<830 INTEGER(iwp) :: j !<831 830 INTEGER(iwp) :: k !< 832 831 INTEGER(iwp) :: m !< … … 1082 1081 INTEGER(iwp) :: j !< 1083 1082 INTEGER(iwp) :: k !< 1084 INTEGER(iwp) :: m !<1085 INTEGER(iwp) :: n !<1086 1083 INTEGER(iwp) :: npx !< 1087 1084 INTEGER(iwp) :: npy !< … … 1560 1557 1561 1558 INTEGER(iwp) :: i !< 1562 INTEGER(iwp) :: i1 !<1563 1559 INTEGER(iwp) :: j !< 1564 INTEGER(iwp) :: j1 !<1565 1560 INTEGER(iwp) :: k !< 1566 1561 INTEGER(iwp) :: kc !< … … 1675 1670 INTEGER(iwp) :: dum !< dummy value for reduce operation 1676 1671 INTEGER(iwp) :: i !< 1677 INTEGER(iwp) :: icorr !<1678 1672 INTEGER(iwp) :: ierr !< MPI status 1679 1673 INTEGER(iwp) :: inc !< Wall outward-normal index increment -1 1680 1674 !< or 1, for direction=1, inc=1 always 1681 INTEGER(iwp) :: iw !<1682 1675 INTEGER(iwp) :: j !< 1683 INTEGER(iwp) :: jcorr !<1684 INTEGER(iwp) :: jw !<1685 1676 INTEGER(iwp) :: k !< 1686 1677 INTEGER(iwp) :: k_wall_u_ji !< topography top index on u-grid … … 1694 1685 INTEGER(iwp) :: k_wall_w_ji_m !< topography top index on w-grid 1695 1686 INTEGER(iwp) :: kb !< 1696 INTEGER(iwp) :: kcorr !<1697 1687 INTEGER(iwp) :: lc !< 1698 INTEGER(iwp) :: m !< Running index for surface data type1699 1688 INTEGER(iwp) :: ni !< 1700 1689 INTEGER(iwp) :: nj !< … … 3491 3480 #if defined( __parallel ) 3492 3481 INTEGER(iwp) :: ierr !< 3493 INTEGER(iwp) :: istat !<3494 3482 3495 3483 REAL(wp), POINTER, DIMENSION(:,:) :: p_2d !< 3496 REAL(wp), POINTER, DIMENSION(:,:) :: p_2d_sec !<3497 3484 REAL(wp), POINTER, DIMENSION(:,:,:) :: p_3d !< 3498 3485 REAL(wp), POINTER, DIMENSION(:,:,:) :: p_3d_sec !< … … 3680 3667 #if defined( __parallel ) 3681 3668 INTEGER(iwp) :: ierr !< 3682 INTEGER(iwp) :: istat !<3683 3669 3684 3670 REAL(wp), POINTER,DIMENSION(:,:) :: p_2d !< … … 4360 4346 IMPLICIT NONE 4361 4347 4362 INTEGER(iwp) :: ierr !<4363 INTEGER(iwp) :: istat !<4364 4365 4348 CHARACTER(LEN=*), INTENT(IN) :: local_nesting_mode 4349 4366 4350 4367 4351 IF ( TRIM( local_nesting_mode ) == 'one-way' ) THEN … … 4413 4397 INTEGER(iwp) :: child_id !< 4414 4398 INTEGER(iwp) :: i !< 4415 INTEGER(iwp) :: ierr !<4416 4399 INTEGER(iwp) :: j !< 4417 4400 INTEGER(iwp) :: k !< 4418 4401 INTEGER(iwp) :: m !< 4419 4420 REAL(wp) :: waittime !<4421 REAL(wp), DIMENSION(1) :: dtc !<4422 REAL(wp), DIMENSION(1) :: dtl !<4423 4402 4424 4403 … … 4482 4461 4483 4462 #if defined( __parallel ) 4484 INTEGER(iwp) :: ierr !<4485 4463 INTEGER(iwp) :: icl !< 4486 4464 INTEGER(iwp) :: icr !< … … 4489 4467 4490 4468 REAL(wp), DIMENSION(1) :: dtl !< 4491 REAL(wp), DIMENSION(1) :: dts !<4492 4469 4493 4470 … … 5150 5127 5151 5128 IMPLICIT NONE 5129 5130 INTEGER(iwp) :: nzt_topo_nestbc !< 5152 5131 5153 5132 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & … … 5170 5149 INTENT(IN) :: logc !< 5171 5150 INTEGER(iwp), DIMENSION(1:2,nys:nyn), INTENT(IN) :: logc_kbounds !< 5172 INTEGER(iwp) :: nzt_topo_nestbc !<5173 5151 5174 5152 CHARACTER(LEN=1), INTENT(IN) :: edge !< … … 5178 5156 INTEGER(iwp) :: ib !< 5179 5157 INTEGER(iwp) :: ibgp !< 5180 INTEGER(iwp) :: iw !<5181 5158 INTEGER(iwp) :: j !< 5182 5159 INTEGER(iwp) :: jco !< 5183 5160 INTEGER(iwp) :: jcorr !< 5184 5161 INTEGER(iwp) :: jinc !< 5185 INTEGER(iwp) :: jw !<5186 5162 INTEGER(iwp) :: j1 !< 5187 5163 INTEGER(iwp) :: k !< … … 5193 5169 INTEGER(iwp) :: m !< 5194 5170 INTEGER(iwp) :: n !< 5195 INTEGER(iwp) :: kbc !<5196 5171 5197 REAL(wp) :: coarse_dx !<5198 REAL(wp) :: coarse_dy !<5199 REAL(wp) :: coarse_dz !<5200 5172 REAL(wp) :: fkj !< 5201 5173 REAL(wp) :: fkjp !< … … 5371 5343 IMPLICIT NONE 5372 5344 5345 INTEGER(iwp) :: nzt_topo_nestbc !< 5346 5373 5347 REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 5374 5348 INTENT(INOUT) :: f !< … … 5390 5364 INTENT(IN) :: logc !< 5391 5365 INTEGER(iwp), DIMENSION(1:2,nxl:nxr), INTENT(IN) :: logc_kbounds !< 5392 INTEGER(iwp) :: nzt_topo_nestbc !<5393 5366 5394 5367 CHARACTER(LEN=1), INTENT(IN) :: edge !< … … 5412 5385 INTEGER(iwp) :: n !< 5413 5386 5414 REAL(wp) :: coarse_dx !<5415 REAL(wp) :: coarse_dy !<5416 REAL(wp) :: coarse_dz !<5417 5387 REAL(wp) :: fk !< 5418 5388 REAL(wp) :: fkj !< … … 5614 5584 INTEGER(iwp) :: n !< 5615 5585 5616 REAL(wp) :: coarse_dx !<5617 REAL(wp) :: coarse_dy !<5618 REAL(wp) :: coarse_dz !<5619 5586 REAL(wp) :: fk !< 5620 5587 REAL(wp) :: fkj !< … … 5695 5662 CHARACTER(LEN=*), INTENT(IN) :: var !< identifyer for treated variable 5696 5663 5697 INTEGER(iwp), DIMENSION(0:kct,jcs:jcn,icl:icr), INTENT(IN) :: ijkfc !< number of child grid points contributing to a parent grid box5698 5699 5664 INTEGER(iwp) :: i !< Running index x-direction - fine-grid 5700 5665 INTEGER(iwp) :: ii !< Running index x-direction - coarse grid … … 5718 5683 INTEGER(iwp), DIMENSION(0:kct), INTENT(IN) :: kfl !< Indicates start index of child cells belonging to certain parent cell - z direction 5719 5684 INTEGER(iwp), DIMENSION(0:kct), INTENT(IN) :: kfu !< Indicates start index of child cells belonging to certain parent cell - z direction 5685 5686 INTEGER(iwp), DIMENSION(0:kct,jcs:jcn,icl:icr), INTENT(IN) :: ijkfc !< number of child grid points contributing to a parent grid box 5720 5687 5721 5688 REAL(wp) :: cellsum !< sum of respective child cells belonging to parent cell
Note: See TracChangeset
for help on using the changeset viewer.
