Changeset c04b739 in flexpart.git

Timestamp:

Oct 22, 2015, 4:46:59 PM (9 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

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

Children:

adf46ae

Parents:

b069789

Message:

Removed parameter cblflag from fixed-format COMMAND file

File:

• src/readcommand.f90 (modified) (2 diffs)

src/readcommand.f90

@@ -143 +143 @@
   lnetcdfout=0
   surf_only=0 
-  cblflag=0
+  cblflag=0 ! if using old-style COMMAND file, set to 1 here to use mc cbl routine
   ohfields_path="../../flexin/"
 
@@ -232 +232 @@
     if (old) call skplin(3,unitcommand)
     read(unitcommand,*) surf_only
-    if (old) call skplin(3,unitcommand)  !added by mc
-    read(unitcommand,*) cblflag          !added by mc
+    ! Removed for backwards compatibility.
+    ! if (old) call skplin(3,unitcommand)  !added by mc
+    ! read(unitcommand,*) cblflag          !added by mc
 
     close(unitcommand)