Ignore:
Timestamp:
Mar 15, 2019 4:40:25 PM (3 years ago)
Author:
forkel
Message:

added leading blanks to dummy statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:21 2019
     116! Time                 : Fri Mar 15 17:37:39 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    221221!
    222222! File                 : chem_gasphase_mod_Global.f90
    223 ! Time                 : Fri Mar 15 16:28:21 2019
     223! Time                 : Fri Mar 15 17:37:39 2019
    224224! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    225225! Equation file        : chem_gasphase_mod.kpp
     
    286286!
    287287! File                 : chem_gasphase_mod_JacobianSP.f90
    288 ! Time                 : Fri Mar 15 16:28:21 2019
     288! Time                 : Fri Mar 15 17:37:39 2019
    289289! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    290290! Equation file        : chem_gasphase_mod.kpp
     
    382382!
    383383! File                 : chem_gasphase_mod_Monitor.f90
    384 ! Time                 : Fri Mar 15 16:28:21 2019
     384! Time                 : Fri Mar 15 17:37:39 2019
    385385! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    386386! Equation file        : chem_gasphase_mod.kpp
     
    545545!
    546546! File                 : chem_gasphase_mod_Initialize.f90
    547 ! Time                 : Fri Mar 15 16:28:21 2019
     547! Time                 : Fri Mar 15 17:37:39 2019
    548548! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    549549! Equation file        : chem_gasphase_mod.kpp
     
    571571!
    572572! File                 : chem_gasphase_mod_Integrator.f90
    573 ! Time                 : Fri Mar 15 16:28:21 2019
     573! Time                 : Fri Mar 15 17:37:39 2019
    574574! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    575575! Equation file        : chem_gasphase_mod.kpp
     
    629629!
    630630! File                 : chem_gasphase_mod_LinearAlgebra.f90
    631 ! Time                 : Fri Mar 15 16:28:21 2019
     631! Time                 : Fri Mar 15 17:37:39 2019
    632632! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    633633! Equation file        : chem_gasphase_mod.kpp
     
    656656!
    657657! File                 : chem_gasphase_mod_Jacobian.f90
    658 ! Time                 : Fri Mar 15 16:28:21 2019
     658! Time                 : Fri Mar 15 17:37:39 2019
    659659! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    660660! Equation file        : chem_gasphase_mod.kpp
     
    683683!
    684684! File                 : chem_gasphase_mod_Function.f90
    685 ! Time                 : Fri Mar 15 16:28:21 2019
     685! Time                 : Fri Mar 15 17:37:39 2019
    686686! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    687687! Equation file        : chem_gasphase_mod.kpp
     
    712712!
    713713! File                 : chem_gasphase_mod_Rates.f90
    714 ! Time                 : Fri Mar 15 16:28:21 2019
     714! Time                 : Fri Mar 15 17:37:39 2019
    715715! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    716716! Equation file        : chem_gasphase_mod.kpp
     
    738738!
    739739! File                 : chem_gasphase_mod_Util.f90
    740 ! Time                 : Fri Mar 15 16:28:21 2019
     740! Time                 : Fri Mar 15 17:37:39 2019
    741741! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    742742! Equation file        : chem_gasphase_mod.kpp
     
    873873
    874874! Following line is just to avoid compiler message about unused variables
    875 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     875   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    876876
    877877
     
    963963
    964964! Following line is just to avoid compiler message about unused variables
    965 IF ( f(nfix) > 0.0_dp )  CONTINUE
     965   IF ( f(nfix) > 0.0_dp )  CONTINUE
    966966
    967967! Computation of equation rates
     
    12211221!
    12221222! Following line is just to avoid compiler message about unused variables
    1223 IF ( f(nfix) > 0.0_dp )  CONTINUE
     1223   IF ( f(nfix) > 0.0_dp )  CONTINUE
    12241224
    12251225! B(1) = dA(1)/dV(26)
     
    22902290
    22912291! Following line is just to avoid compiler message about unused variables
    2292 IF ( incx == 0 )  CONTINUE
     2292   IF ( incx == 0 )  CONTINUE
    22932293
    22942294      IF (alpha .eq. one)RETURN
     
    23562356
    23572357! Following line is just to avoid compiler message about unused variables
    2358 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     2358   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    23592359      IF (alpha .eq. zero)RETURN
    23602360      IF (n .le. 0)RETURN
     
    30913091
    30923092! Following line is just to avoid compiler message about unused variables
    3093 IF ( pivot(1) == 0 )  CONTINUE
     3093   IF ( pivot(1) == 0 )  CONTINUE
    30943094
    30953095#ifdef full_algebra   
Note: See TracChangeset for help on using the changeset viewer.