Changeset 2bec33e in flexpart.git
- Timestamp:
- May 8, 2017, 5:32:48 PM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 6d420c3
- Parents:
- 6985a98
- Location:
- src
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
src/com_mod.f90
r6985a98 r2bec33e 756 756 logical :: lroot=.true. ! true if serial version, or if MPI .and. root process 757 757 758 logical :: usekernel=.false. ! true if the output kernel shall be switched on759 758 logical :: interpolhmix=.false. ! true if the hmix shall be interpolated 760 759 logical :: turboff=.false. ! true if the turbulence shall be switched off -
src/conccalc.f90
r6985a98 r2bec33e 183 183 if (lnokernel.or.(itage.lt.10800).or.(xl.lt.0.5).or.(yl.lt.0.5).or. & 184 184 (xl.gt.real(numxgrid-1)-0.5).or. & 185 (yl.gt.real(numygrid-1)-0.5)) )then ! no kernel, direct attribution to grid cell185 (yl.gt.real(numygrid-1)-0.5)) then ! no kernel, direct attribution to grid cell 186 186 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 187 187 (jy.le.numygrid-1)) then … … 320 320 if ((itage.lt.10800).or.(xl.lt.0.5).or.(yl.lt.0.5).or. & 321 321 (xl.gt.real(numxgridn-1)-0.5).or. & 322 (yl.gt.real(numygridn-1)-0.5).or.( .not.usekernel)) then ! no kernel, direct attribution to grid cell322 (yl.gt.real(numygridn-1)-0.5).or.(lnokernel)) then ! no kernel, direct attribution to grid cell 323 323 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgridn-1).and. & 324 324 (jy.le.numygridn-1)) then -
src/drydepokernel.f90
r6985a98 r2bec33e 102 102 if ((abs(deposit(ks)).gt.0).and.DRYDEPSPEC(ks)) then 103 103 104 if (.not.usekernel) then105 drygridunc(ix,jy,ks,kp,nunc,nage)= &106 drygridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)107 else108 104 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 109 105 (jy.le.numygrid-1)) then … … 134 130 endif 135 131 136 endif ! kernel137 132 endif ! deposit>0 138 139 133 end do 140 134 end if -
src/timemanager.f90
rd1a8707 r2bec33e 147 147 !CGZ-lifetime: set lifetime to 0 148 148 149 if ( .not.usekernel) write(*,*) 'Not using the kernel'149 if (lnokernel) write(*,*) 'Not using the kernel' 150 150 if (turboff) write(*,*) 'Turbulence switched off' 151 151 -
src/wetdepokernel.f90
r6985a98 r2bec33e 95 95 do ks=1,nspec 96 96 97 if (.not.usekernel) then98 wetgridunc(ix,jy,ks,kp,nunc,nage)= &99 wetgridunc(ix,jy,ks,kp,nunc,nage)+deposit(ks)100 else101 97 if ((ix.ge.0).and.(jy.ge.0).and.(ix.le.numxgrid-1).and. & 102 98 (jy.le.numygrid-1)) then … … 126 122 wetgridunc(ix,jyp,ks,kp,nunc,nage)+deposit(ks)*w 127 123 endif 128 endif 124 129 125 end do 130 126 end if
Note: See TracChangeset
for help on using the changeset viewer.