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

src/com_mod.f90

@@ -26 +26 @@
   integer :: length(numpath+2*maxnests)
   character(len=256) :: pathfile, flexversion, flexversion_major, arg1, arg2
-  character(len=256) :: ohfields_path
+  character(len=256) :: path_ohfields
   
   ! path                    path names needed for trajectory model
@@ -34 +34 @@
   ! flexversion_major       version of flexpart (major version number)
   ! arg                     input arguments from launch at command line
-  ! ohfields_path           path to binary files for OH fields
+  ! path_ohfields           path to binary files for OH fields
 
   !********************************************************
@@ -73 +73 @@
   integer :: ind_rel,ind_samp,ioutputforeachrelease,linit_cond,surf_only
   logical :: turbswitch
-  integer :: cblflag !added by mc for cbl
+  integer :: iflagcbl !added by mc for cbl
 
   ! ctl      factor, by which time step must be smaller than Lagrangian time scale
@@ -104 +104 @@
 
   ! ind_rel and ind_samp  are used within the code to change between mass and mass-mix (see readcommand.f)
-  ! cblflag !: 1 activate cbl skewed pdf routines with bi-gaussina pdf whan OL<0 added by mc
+  ! iflagcbl !: 1 activate cbl skewed pdf routines with bi-gaussina pdf whan OL<0 added by mc