blob: 47bb78aee0bde5af4953b0eac75e00d9f420f458 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
--- 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
|
