Changeset 3780 for palm/trunk/SOURCE
- Timestamp:
- Mar 5, 2019 11:19:45 AM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chem_gasphase_mod.f90
r3655 r3780 65 65 ! ,REQ_MCFCT,IP_MAX,jname 66 66 67 PUBLIC :: cs_mech 67 68 PUBLIC :: eqn_names, phot_names, spc_names 68 69 PUBLIC :: nmaxfixsteps … … 81 82 PUBLIC :: chem_gasphase_integrate 82 83 PUBLIC :: initialize_kpp_ctrl 84 PUBLIC :: get_mechanismname 83 85 84 86 ! END OF MODULE HEADER TEMPLATE … … 113 115 ! 114 116 ! File : chem_gasphase_mod_Parameters.f90 115 ! Time : Fri Nov 30 13:52:19 2018116 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm117 ! Time : Tue Mar 5 11:50:53 2019 118 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 117 119 ! Equation file : chem_gasphase_mod.kpp 118 120 ! Output root filename : chem_gasphase_mod … … 190 192 ! 191 193 ! File : chem_gasphase_mod_Global.f90 192 ! Time : Fri Nov 30 13:52:19 2018193 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm194 ! Time : Tue Mar 5 11:50:53 2019 195 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 194 196 ! Equation file : chem_gasphase_mod.kpp 195 197 ! Output root filename : chem_gasphase_mod … … 236 238 REAL(kind=dp):: fakt 237 239 240 ! CS_MECH for check of mechanism name with namelist 241 CHARACTER(len=30):: cs_mech 238 242 239 243 ! INLINED global variable declarations … … 256 260 ! 257 261 ! File : chem_gasphase_mod_JacobianSP.f90 258 ! Time : Fri Nov 30 13:52:19 2018259 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm262 ! Time : Tue Mar 5 11:50:53 2019 263 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 260 264 ! Equation file : chem_gasphase_mod.kpp 261 265 ! Output root filename : chem_gasphase_mod … … 300 304 ! 301 305 ! File : chem_gasphase_mod_Monitor.f90 302 ! Time : Fri Nov 30 13:52:19 2018303 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm306 ! Time : Tue Mar 5 11:50:53 2019 307 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 304 308 ! Equation file : chem_gasphase_mod.kpp 305 309 ! Output root filename : chem_gasphase_mod … … 362 366 ! 363 367 ! File : chem_gasphase_mod_Initialize.f90 364 ! Time : Fri Nov 30 13:52:19 2018365 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm368 ! Time : Tue Mar 5 11:50:53 2019 369 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 366 370 ! Equation file : chem_gasphase_mod.kpp 367 371 ! Output root filename : chem_gasphase_mod … … 388 392 ! 389 393 ! File : chem_gasphase_mod_Integrator.f90 390 ! Time : Fri Nov 30 13:52:19 2018391 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm394 ! Time : Tue Mar 5 11:50:53 2019 395 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 392 396 ! Equation file : chem_gasphase_mod.kpp 393 397 ! Output root filename : chem_gasphase_mod … … 446 450 ! 447 451 ! File : chem_gasphase_mod_LinearAlgebra.f90 448 ! Time : Fri Nov 30 13:52:19 2018449 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm452 ! Time : Tue Mar 5 11:50:53 2019 453 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 450 454 ! Equation file : chem_gasphase_mod.kpp 451 455 ! Output root filename : chem_gasphase_mod … … 473 477 ! 474 478 ! File : chem_gasphase_mod_Jacobian.f90 475 ! Time : Fri Nov 30 13:52:19 2018476 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm479 ! Time : Tue Mar 5 11:50:53 2019 480 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 477 481 ! Equation file : chem_gasphase_mod.kpp 478 482 ! Output root filename : chem_gasphase_mod … … 500 504 ! 501 505 ! File : chem_gasphase_mod_Function.f90 502 ! Time : Fri Nov 30 13:52:19 2018503 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm506 ! Time : Tue Mar 5 11:50:53 2019 507 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 504 508 ! Equation file : chem_gasphase_mod.kpp 505 509 ! Output root filename : chem_gasphase_mod … … 529 533 ! 530 534 ! File : chem_gasphase_mod_Rates.f90 531 ! Time : Fri Nov 30 13:52:19 2018532 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm535 ! Time : Tue Mar 5 11:50:53 2019 536 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 533 537 ! Equation file : chem_gasphase_mod.kpp 534 538 ! Output root filename : chem_gasphase_mod … … 555 559 ! 556 560 ! File : chem_gasphase_mod_Util.f90 557 ! Time : Fri Nov 30 13:52:19 2018558 ! Working directory : /home/forkel-r/palmstuff/work/trunk201 81130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm561 ! Time : Tue Mar 5 11:50:53 2019 562 ! Working directory : /home/forkel-r/palmstuff/work/trunk20190305/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm 559 563 ! Equation file : chem_gasphase_mod.kpp 560 564 ! Output root filename : chem_gasphase_mod … … 661 665 MODULE PROCEDURE kppdecomp 662 666 END INTERFACE kppdecomp 667 668 INTERFACE get_mechanismname 669 MODULE PROCEDURE get_mechanismname 670 END INTERFACE get_mechanismname 663 671 664 672 INTERFACE chem_gasphase_integrate … … 2264 2272 END SUBROUTINE kppdecomp 2265 2273 2274 SUBROUTINE get_mechanismname 2275 2276 IMPLICIT NONE 2277 2278 ! Set cs_mech for check with mechanism name from namelist 2279 cs_mech = 'phstatp' 2280 2281 RETURN 2282 END SUBROUTINE get_mechanismname 2283 2284 2266 2285 SUBROUTINE chem_gasphase_integrate (time_step_len, conc, tempi, qvapi, fakti, photo, ierrf, xnacc, xnrej, istatus, l_debug, pe, & 2267 2286 icntrl_i, rcntrl_i) … … 2349 2368 2350 2369 RETURN 2351 END SUBROUTINE chem_gasphase_integrate 2370 END SUBROUTINE chem_gasphase_integrate 2352 2371 2353 2372 END MODULE chem_gasphase_mod -
palm/trunk/SOURCE/chem_modules.f90
r3652 r3780 27 27 ! ----------------- 28 28 ! $Id$ 29 ! added cs_mech 30 ! 31 ! 32 ! 3652 2019-01-07 15:29:59Z forkel 29 33 ! parameter chem_mechanism added (basit) 30 34 ! … … 66 70 67 71 USE chem_gasphase_mod, & 68 ONLY: nspec, nvar, spc_names72 ONLY: cs_mech, nspec, nvar, spc_names 69 73 70 74 USE control_parameters, & … … 79 83 IMPLICIT NONE 80 84 85 PUBLIC cs_mech 81 86 PUBLIC nspec 82 87 PUBLIC nvar -
palm/trunk/SOURCE/chemistry_model_mod.f90
r3767 r3780 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Removed READ from unit 10, added CALL get_mechanismname 30 ! 31 ! 32 ! 3767 2019-02-27 08:18:02Z raasch 29 33 ! unused variable for file index removed from rrd-subroutines parameter list 30 34 ! … … 278 282 279 283 USE control_parameters, & 280 ONLY: bc_lr_cyc, bc_ns_cyc, dt_3d, humidity, initializing_actions, message_string, 281 omega, tsc, intermediate_timestep_count, intermediate_timestep_count_max, &284 ONLY: bc_lr_cyc, bc_ns_cyc, dt_3d, humidity, initializing_actions, message_string, & 285 omega, tsc, intermediate_timestep_count, intermediate_timestep_count_max, & 282 286 max_pr_user, timestep_scheme, use_prescribed_profile_data, ws_scheme_sca 283 287 … … 286 290 287 291 USE chem_gasphase_mod, & 288 ONLY: nspec, spc_names, nkppctrl, nmaxfixsteps, t_steps, chem_gasphase_integrate,&289 vl_dim, nvar, nreact, atol, rtol, nphot, phot_names292 ONLY: atol, chem_gasphase_integrate, get_mechanismname, nkppctrl, nmaxfixsteps, & 293 nphot, nreact, nspec, nvar, phot_names, rtol, spc_names, t_steps, vl_dim 290 294 291 295 USE chem_modules … … 1149 1153 INTEGER (iwp) :: lsp_usr !< running index for user defined chem spcs 1150 1154 INTEGER (iwp) :: lsp !< running index for chem spcs. 1151 CHARACTER (LEN=30) :: cs_mech,a1,b1,string1152 1153 1154 OPEN (10,FILE="chem_gasphase_mod.f90") !get the chem_mechanism name from the file.1155 READ (10, 100) a1,b1,string1156 cs_mech = trim(string(16:))1157 100 FORMAT(a)1158 CLOSE(10)1159 1160 1155 ! 1161 1156 !-- check for chemical reactions status … … 1190 1185 ENDIF 1191 1186 !-- check for chemical mechanism used 1187 CALL get_mechanismname 1188 WRITE(06,*) 'cs_mech ',cs_mech 1189 WRITE(06,*) 'chem_mechanism ', chem_mechanism 1192 1190 IF (chem_mechanism /= trim(cs_mech) ) THEN 1193 message_string = 'Incorrect chemi cal mechanism selected, please check spellingand/or chem_gasphase_mod'1191 message_string = 'Incorrect chemistry mechanism selected, check spelling in namelist and/or chem_gasphase_mod' 1194 1192 CALL message( 'chem_check_parameters', 'CM0462', 1, 2, 0, 6, 0 ) 1195 1193 ENDIF -
palm/trunk/SOURCE/salsa_mod.f90
r3767 r3780 898 898 8 FORMAT (/' Aerosol bin subrange limits (in metres): ', 3(ES10.2E3), / & 899 899 ' Number of size bins for each aerosol subrange: ', 2I3,/ & 900 ' Aerosol bin limits (in metres): ', *(ES10.2E3))900 ' Aerosol bin limits (in metres): ', 9(ES10.2E3)) 901 901 15 FORMAT (' Initial number concentration in bins at the lowest level', & 902 ' (#/m**3):', *(ES10.2E3))902 ' (#/m**3):', 9(ES10.2E3)) 903 903 13 FORMAT (/' Number of chemical components used: ', I1,/ & 904 904 ' Species: ',7(A6),/ &
Note: See TracChangeset
for help on using the changeset viewer.