Commit c04b739b authored by Espen Sollum's avatar Espen Sollum
Browse files

Removed parameter cblflag from fixed-format COMMAND file

parent b0697897
...@@ -142,7 +142,7 @@ subroutine readcommand ...@@ -142,7 +142,7 @@ subroutine readcommand
linit_cond=0 linit_cond=0
lnetcdfout=0 lnetcdfout=0
surf_only=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/" ohfields_path="../../flexin/"
! Open the command file and read user options ! Open the command file and read user options
...@@ -231,8 +231,9 @@ subroutine readcommand ...@@ -231,8 +231,9 @@ subroutine readcommand
read(unitcommand,*) linit_cond read(unitcommand,*) linit_cond
if (old) call skplin(3,unitcommand) if (old) call skplin(3,unitcommand)
read(unitcommand,*) surf_only read(unitcommand,*) surf_only
if (old) call skplin(3,unitcommand) !added by mc ! Removed for backwards compatibility.
read(unitcommand,*) cblflag !added by mc ! if (old) call skplin(3,unitcommand) !added by mc
! read(unitcommand,*) cblflag !added by mc
close(unitcommand) close(unitcommand)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment