Changeset 07c3e71 in flexpart.git for src/FLEXPART.f90

Timestamp:

Jul 24, 2019, 12:16:51 PM (5 years ago)

Author:

Ignacio Pisso <ip@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug

Children:

25b4532

Parents:

95a45d3

Message:

check dsigma for dry deposition velocity

File:

• src/FLEXPART.f90 (modified) (5 diffs)

src/FLEXPART.f90

@@ -62 +62 @@
   implicit none
 
-  integer :: i,j,ix,jy,inest
+  integer :: i,j,ix,jy,inest, iopt
   integer :: idummy = -320
   character(len=256) :: inline_options  !pathfile, flexversion, arg2
@@ -80 +80 @@
   ! FLEXPART version string
   flexversion_major = '10' ! Major version number, also used for species file names
-  flexversion='Version '//trim(flexversion_major)//'.4 (2019-07-16)'
+  flexversion='Version '//trim(flexversion_major)//'.4 (2019-07-23)'
   verbosity=0
 
@@ -109 +109 @@
   print*,'FLEXPART is free software released under the GNU General Public License.'
  
+
+  ! Ingest inline options
+  !*******************************************************
   if (inline_options(1:1).eq.'-') then
-    if (trim(inline_options).eq.'-v'.or.trim(inline_options).eq.'-v1') then
-       print*, 'Verbose mode 1: display detailed information during run'
-       verbosity=1
-    endif
-    if (trim(inline_options).eq.'-v2') then
-       print*, 'Verbose mode 2: display more detailed information during run'
-       verbosity=2
-    endif
+    print*,'inline_options:',inline_options
+    !verbose mode
+    iopt=index(inline_options,'v') 
+    if (iopt.gt.0) then
+      verbosity=1
+      !print*, iopt, inline_options(iopt+1:iopt+1)
+      if  (trim(inline_options(iopt+1:iopt+1)).eq.'2') then
+        !print*, 'verbosity=2' 
+        print*, 'Verbose mode 2: display more detailed information during run'
+        verbosity=2
+      endif
+    endif
+
+    
+    !debug mode 
+    iopt=index(inline_options,'d')
+    if (iopt.gt.0) then
+      debug_mode=.true.
+      endif
+    endif
+
+
+    
+!      stop
+!    if (trim(inline_options).eq.'-v'.or.trim(inline_options).eq.'-v1') then
+!       print*, 'Verbose mode 1: display detailed information during run'
+!       verbosity=1
+!    endif
+!    if (trim(inline_options).eq.'-v2') then
+!       print*, 'Verbose mode 2: display more detailed information during run'
+!       verbosity=2
+!    endif
+
     if (trim(inline_options).eq.'-i') then
        print*, 'Info mode: provide detailed run specific information and stop'
@@ -135 +163 @@
     print*, 'nzmax=',nzmax
     print*,'nxshift=',nxshift 
+  endif
+  
+  if (verbosity.gt.0) then
     write(*,*) 'call readpaths'
   endif 
@@ -193 +224 @@
   ! Detect metdata format
   !**********************
+  if (verbosity.gt.0) then
+    write(*,*) 'call detectformat'
+  endif
 
   metdata_format = detectformat()