Changeset d7935de in flexpart.git for src/advance.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/advance.f90 (modified) (2 diffs)

src/advance.f90

@@ -421 +421 @@
   !*************************************************************
   !************** CBL options added by mc see routine cblf90 ***
-            if (cblflag.eq.1) then  !modified by mc
+            if (iflagcbl.eq.1) then  !modified by mc
               if (-h/ol.gt.5) then  !modified by mc
               !if (ol.lt.0.) then   !modified by mc  
@@ -515 +515 @@
 
       end do
-      if (cblflag.ne.1) nrand=nrand+i
+      if (iflagcbl.ne.1) nrand=nrand+i
 
   ! Determine time step for next integration