forked from Lainports/freebsd-ports
cf35ad4c49
FVCOM is a prognostic, unstructured-grid, finite-volume, free-surface, 3-D primitive equation coastal ocean circulation model developed by UMASSD-WHOI joint efforts. WWW: http://fvcom.smast.umassd.edu/FVCOM/index.html PR: ports/166726 PR: ports/166728 Submitted by: Jason Bacon <jwbacon at tds.net>
16 lines
600 B
Fortran
16 lines
600 B
Fortran
--- mod_lag.F.orig 2008-07-25 16:44:11.000000000 -0500
|
|
+++ mod_lag.F 2012-03-31 21:57:17.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
|
|
|
|
|