17 lines
600 B
FortranFixed
17 lines
600 B
FortranFixed
--- mod_lag.F.orig 2008-07-25 16:44:11.000000000 -0500
|
|
+++ mod_lag.F 2014-04-28 12:23:34.000000000 -0500
|
|
@@ -212,7 +212,12 @@
|
|
!Lagrangian particle associated scalar
|
|
character(len=80) :: lag_scal_choice
|
|
integer, parameter:: n_scal_choice = 6
|
|
- character(len=80) :: scal_choices(n_scal_choice) = (/"s1","t1","rho1","km","kh","user_defined"/)
|
|
+ character(len=80) :: scal_choices(n_scal_choice) = (/ "s1 ", &
|
|
+ "t1 ", &
|
|
+ "rho1 ", &
|
|
+ "km ", &
|
|
+ "kh ", &
|
|
+ "user_defined"/)
|
|
logical :: scal_choice_valid
|
|
|
|
|