Changeset d7935de in flexpart.git for src/initialize.f90

Timestamp:

Sep 11, 2018, 6:06:31 PM (6 years ago)

Author:

pesei <petra seibert at univie ac at>

Branches:

univie

Children:

93786a1

Parents:

34f1452

Message:

modify most input read subroutines

changed some variable names (mostly for I-N reasons)
includes two names appearing also in timemanager, com_mod
corrected a few mistakes
simplified some parts of code
changed options/RELEASES which is in nml fmt correspondingly

File:

• src/initialize.f90 (modified) (1 diff)

src/initialize.f90

@@ -158 +158 @@
     if (.not.turbswitch) then     ! modified by mc
       wp=wp*sigw
-    else if (cblflag.eq.1) then   ! modified by mc
+    else if (iflagcbl.eq.1) then   ! modified by mc
       if(-h/ol.gt.5) then
 !if (ol.lt.0.) then