- Timestamp:
- Mar 15, 2019 4:40:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh
r3799 r3800 41 41 # $Id$ 42 42 # Removed edit of phot(nphot) for version edit phot(nphot), now done in fortran_file.C (15.03.2019, forkel) 43 # Editing with sed to add dummy statements toavoud unused variables 43 # Editing with sed to add dummy statements toavoud unused variables (15.03.2019, forkel) 44 44 # 45 45 # 3780 2019-03-05 11:19:45Z forkel … … 344 344 # 345 345 sed -i -e '/cfactor =/a ! ' kk_kpp.f90 346 sed -i -e '/cfactor =/a 346 sed -i -e '/cfactor =/a BLANKS IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE ' kk_kpp.f90 347 347 sed -i -e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 348 348 sed -i -e '/cfactor =/a ! ' kk_kpp.f90 … … 351 351 then 352 352 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 353 sed -i -e '/! Computation of equation rates/i IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90353 sed -i -e '/! Computation of equation rates/i BLANKS IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 354 354 sed -i -e '/! Computation of equation rates/i ! ' kk_kpp.f90 355 355 else 356 356 sed -i -e '/! Computation of equation rates/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 357 sed -i -e '/! Computation of equation rates/i IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90357 sed -i -e '/! Computation of equation rates/i BLANKS IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 358 358 sed -i -e '/! Computation of equation rates/i ! ' kk_kpp.f90 359 359 fi … … 361 361 if [[ $MODE = "vector" ]] 362 362 then 363 sed -i -e '/REAL(kind=dp) :: b/a IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90363 sed -i -e '/REAL(kind=dp) :: b/a BLANKS IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 364 364 sed -i -e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 365 365 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90 366 366 else 367 sed -i -e '/REAL(kind=dp):: b/a IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90367 sed -i -e '/REAL(kind=dp):: b/a BLANKS IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 368 368 sed -i -e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 369 369 sed -i -e '/REAL(kind=dp):: b/a !' kk_kpp.f90 370 370 fi 371 371 372 sed -i -e '/one=1.0_dp/a 372 sed -i -e '/one=1.0_dp/a BLANKS IF ( incx == 0 ) CONTINUE' kk_kpp.f90 373 373 sed -i -e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 374 374 sed -i -e '/one=1.0_dp/a ! ' kk_kpp.f90 … … 376 376 sed -i -e '/IF (alpha .eq. zero)RETURN/i ! ' kk_kpp.f90 377 377 sed -i -e '/IF (alpha .eq. zero)RETURN/i ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 378 sed -i -e '/IF (alpha .eq. zero)RETURN/i 379 380 sed -i -e '/INTENT(INOUT):: b(n)/a 378 sed -i -e '/IF (alpha .eq. zero)RETURN/i BLANKS IF ( incx == 0 .OR. incy == 0 ) CONTINUE' kk_kpp.f90 379 380 sed -i -e '/INTENT(INOUT):: b(n)/a BLANKS IF ( pivot(1) == 0 ) CONTINUE' kk_kpp.f90 381 381 sed -i -e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 382 382 sed -i -e '/INTENT(INOUT):: b(n)/a ! ' kk_kpp.f90 383 384 sed -i -e '1,$s/BLANKS / / ' kk_kpp.f90 383 385 384 386 if [[ -e $OUTDIR/${OUTFILE}.f90 ]]
Note: See TracChangeset
for help on using the changeset viewer.