Changeset 3298 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90

Timestamp:

Oct 2, 2018 12:21:11 PM (6 years ago)

Author:

kanani

Message:

Merge chemistry branch at r3297 to trunk

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90 (modified) (2 diffs)

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90

@@ -32 +32 @@
 CONTAINS
 
-SUBROUTINE initialize_kpp_ctrl(status, iou, modstr)
+SUBROUTINE initialize_kpp_ctrl(status)
 
   IMPLICIT NONE
@@ -38 +38 @@
   ! I/O
   INTEGER,          INTENT(OUT) :: status
-  INTEGER,          INTENT(IN)  :: iou     ! logical I/O unit
-  CHARACTER(LEN=*), INTENT(IN)  :: modstr  ! read <modstr>.nml
 
   ! LOCAL