Ignore:
Timestamp:
Mar 15, 2019 4:40:25 PM (6 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_phstat/chem_gasphase_mod.f90

    r3799 r3800  
    114114!
    115115! File                 : chem_gasphase_mod_Parameters.f90
    116 ! Time                 : Fri Mar 15 16:28:24 2019
     116! Time                 : Fri Mar 15 17:37:41 2019
    117117! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    118118! Equation file        : chem_gasphase_mod.kpp
     
    190190!
    191191! File                 : chem_gasphase_mod_Global.f90
    192 ! Time                 : Fri Mar 15 16:28:24 2019
     192! Time                 : Fri Mar 15 17:37:41 2019
    193193! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    194194! Equation file        : chem_gasphase_mod.kpp
     
    255255!
    256256! File                 : chem_gasphase_mod_JacobianSP.f90
    257 ! Time                 : Fri Mar 15 16:28:24 2019
     257! Time                 : Fri Mar 15 17:37:41 2019
    258258! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    259259! Equation file        : chem_gasphase_mod.kpp
     
    299299!
    300300! File                 : chem_gasphase_mod_Monitor.f90
    301 ! Time                 : Fri Mar 15 16:28:24 2019
     301! Time                 : Fri Mar 15 17:37:41 2019
    302302! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    303303! Equation file        : chem_gasphase_mod.kpp
     
    359359!
    360360! File                 : chem_gasphase_mod_Initialize.f90
    361 ! Time                 : Fri Mar 15 16:28:24 2019
     361! Time                 : Fri Mar 15 17:37:41 2019
    362362! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    363363! Equation file        : chem_gasphase_mod.kpp
     
    385385!
    386386! File                 : chem_gasphase_mod_Integrator.f90
    387 ! Time                 : Fri Mar 15 16:28:24 2019
     387! Time                 : Fri Mar 15 17:37:41 2019
    388388! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    389389! Equation file        : chem_gasphase_mod.kpp
     
    443443!
    444444! File                 : chem_gasphase_mod_LinearAlgebra.f90
    445 ! Time                 : Fri Mar 15 16:28:24 2019
     445! Time                 : Fri Mar 15 17:37:41 2019
    446446! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    447447! Equation file        : chem_gasphase_mod.kpp
     
    470470!
    471471! File                 : chem_gasphase_mod_Jacobian.f90
    472 ! Time                 : Fri Mar 15 16:28:24 2019
     472! Time                 : Fri Mar 15 17:37:41 2019
    473473! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    474474! Equation file        : chem_gasphase_mod.kpp
     
    497497!
    498498! File                 : chem_gasphase_mod_Function.f90
    499 ! Time                 : Fri Mar 15 16:28:24 2019
     499! Time                 : Fri Mar 15 17:37:41 2019
    500500! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    501501! Equation file        : chem_gasphase_mod.kpp
     
    526526!
    527527! File                 : chem_gasphase_mod_Rates.f90
    528 ! Time                 : Fri Mar 15 16:28:24 2019
     528! Time                 : Fri Mar 15 17:37:41 2019
    529529! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    530530! Equation file        : chem_gasphase_mod.kpp
     
    552552!
    553553! File                 : chem_gasphase_mod_Util.f90
    554 ! Time                 : Fri Mar 15 16:28:24 2019
     554! Time                 : Fri Mar 15 17:37:41 2019
    555555! Working directory    : /home/forkel-r/palmstuff/work/trunk20190315/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
    556556! Equation file        : chem_gasphase_mod.kpp
     
    687687
    688688! Following line is just to avoid compiler message about unused variables
    689 IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
     689   IF ( lu_crow(1) == 1  .OR.  lu_icol(1) == 1  .OR.  lu_irow(1) == 1 )  CONTINUE
    690690
    691691
     
    775775
    776776! Following line is just to avoid compiler message about unused variables
    777 IF ( f(nfix) > 0.0_dp )  CONTINUE
     777   IF ( f(nfix) > 0.0_dp )  CONTINUE
    778778
    779779! Computation of equation rates
     
    820820!
    821821! Following line is just to avoid compiler message about unused variables
    822 IF ( f(nfix) > 0.0_dp )  CONTINUE
     822   IF ( f(nfix) > 0.0_dp )  CONTINUE
    823823
    824824! B(1) = dA(1)/dV(3)
     
    962962
    963963! Following line is just to avoid compiler message about unused variables
    964 IF ( incx == 0 )  CONTINUE
     964   IF ( incx == 0 )  CONTINUE
    965965
    966966      IF (alpha .eq. one)RETURN
     
    10281028
    10291029! Following line is just to avoid compiler message about unused variables
    1030 IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
     1030   IF ( incx == 0  .OR.  incy == 0 )  CONTINUE
    10311031      IF (alpha .eq. zero)RETURN
    10321032      IF (n .le. 0)RETURN
     
    17631763
    17641764! Following line is just to avoid compiler message about unused variables
    1765 IF ( pivot(1) == 0 )  CONTINUE
     1765   IF ( pivot(1) == 0 )  CONTINUE
    17661766
    17671767#ifdef full_algebra   
Note: See TracChangeset for help on using the changeset viewer.