Changeset 3799 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin
 Timestamp:
 Mar 15, 2019 3:36:25 PM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/bin/kpp4palm.ksh
r3780 r3799 40 40 #  41 41 # $Id$ 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 44 # 45 # 3780 20190305 11:19:45Z forkel 42 46 # forkel 05. March 2019: cs_mech and set_cm 43 47 # forkel 30. Oktober 2018: Integrating contents of kp4_compress into chem_gasphase_mod.f90 … … 337 341 $BASE/bin/kpp4palm.exe $PREFIX $MODE $VLEN $DE_INDEX $DE_INDEX_FAST 338 342 339 #Prelimanary, substitution has to be moved into kpp4palm.exe 343 # Add dummy statements in order to prevent warnings due to unused variables 344 # 345 sed i e '/cfactor =/a ! ' kk_kpp.f90 346 sed i e '/cfactor =/a IF ( lu_crow(1) == 1 .OR. lu_icol(1) == 1 .OR. lu_irow(1) == 1 ) CONTINUE ' kk_kpp.f90 347 sed i e '/cfactor =/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 348 sed i e '/cfactor =/a ! ' kk_kpp.f90 349 340 350 if [[ $MODE = "vector" ]] 341 351 then 342 sed i e 's/phot(nphot/phot(vl_dim,nphot/g' kk_kpp.f90 343 fi 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.f90 354 sed i e '/! Computation of equation rates/i ! ' kk_kpp.f90 355 else 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.f90 358 sed i e '/! Computation of equation rates/i ! ' kk_kpp.f90 359 fi 360 361 if [[ $MODE = "vector" ]] 362 then 363 sed i e '/REAL(kind=dp) :: b/a IF ( f(vl,nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 364 sed i e '/REAL(kind=dp) :: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 365 sed i e '/REAL(kind=dp):: b/a !' kk_kpp.f90 366 else 367 sed i e '/REAL(kind=dp):: b/a IF ( f(nfix) > 0.0_dp ) CONTINUE' kk_kpp.f90 368 sed i e '/REAL(kind=dp):: b/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 369 sed i e '/REAL(kind=dp):: b/a !' kk_kpp.f90 370 fi 371 372 sed i e '/one=1.0_dp/a IF ( incx == 0 ) CONTINUE' kk_kpp.f90 373 sed i e '/one=1.0_dp/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 374 sed i e '/one=1.0_dp/a ! ' kk_kpp.f90 375 376 sed i e '/IF (alpha .eq. zero)RETURN/i ! ' kk_kpp.f90 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 IF ( incx == 0 .OR. incy == 0 ) CONTINUE' kk_kpp.f90 379 380 sed i e '/INTENT(INOUT):: b(n)/a IF ( pivot(1) == 0 ) CONTINUE' kk_kpp.f90 381 sed i e '/INTENT(INOUT):: b(n)/a ! Following line is just to avoid compiler message about unused variables' kk_kpp.f90 382 sed i e '/INTENT(INOUT):: b(n)/a ! ' kk_kpp.f90 344 383 345 384 if [[ e $OUTDIR/${OUTFILE}.f90 ]]
Note: See TracChangeset
for help on using the changeset viewer.