Changeset 3c1da52 in flexpart.git for src/readcommand.f90

Timestamp:

Jul 15, 2015, 9:45:31 AM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

svn-petra

Children:

c07b09e

Parents:

31674b5

git-author:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:23:56)

git-committer:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:45:31)

Message:

from svn branch petra
r37 | pesei | 2015-04-22 17:42:35 +0200 (Wed, 22 Apr 2015) | 1 line
Changed paths:

M /branches/petra/src/FLEXPART.f90
M /branches/petra/src/com_mod.f90
M /branches/petra/src/getfields.f90
M /branches/petra/src/gridcheck.f90
M /branches/petra/src/interpol_rain.f90
M /branches/petra/src/interpol_rain_nests.f90
M /branches/petra/src/par_mod.f90
M /branches/petra/src/readcommand.f90
M /branches/petra/src/readspecies.f90
M /branches/petra/src/readwind.f90
M /branches/petra/src/readwind_nests.f90
M /branches/petra/src/timemanager.f90
A /branches/petra/src/verboutput.f90
M /branches/petra/src/verttransform.f90
M /branches/petra/src/verttransform_nests.f90
M /branches/petra/src/wetdepo.f90
M /branches/petra/src/wetdepokernel.f90
M /branches/petra/src/wetdepokernel_nest.f90

Wet dep quick fix and other small changes. Wet depo quick fix not final yet.

File:

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

src/readcommand.f90

@@ -235 +235 @@
     read(unitcommand,*,iostat=icmdstat) linit_cond
     if (icmdstat .gt. 0) &
-      print*, 'readcommand: linit_cond not read properly',icmdstat,linit_cond
-    if (old) call skplin(3,unitcommand)
-    read(unitcommand,*,iostat=icmdstat) surf_only
+      print*, 'readcommand: linit_cond not present or no read properly,&
+       & - check values: ',icmdstat,linit_cond
+    if (old) call skplin(3,unitcommand)
+    read(unitcommand,*,iostat=icmdstat) icmdstat,surf_only
     if (icmdstat .gt. 0) &
-      print*, 'readcommand: linit_cond not read properly',icmdstat,surf_only
-    if (old) call skplin(3,unitcommand)
-    read(unitcommand,*,iostat=icmdstat) ldep_incr
+      print*, 'readcommand: surf_only not present or not read properly&
+       & - check values: ',icmdstat,surf_only
+    if (old) call skplin(3,unitcommand)
+    read(unitcommand,*,iostat=icmdstat) icmdstat,ldep_incr
     if (icmdstat .gt. 0) &
-      print*, 'readcommand: linit_cond not read properly',icmdstat, ldep_incr
+      print*, 'readcommand: ldep_incr not present or not read properly&
+       & - check values: ',icmdstat, ldep_incr
     close(unitcommand)
 
@@ -416 +419 @@
 
 
-  ! For backward runs one releasefield for all releases makes no sense,
-  ! For quasilag and domainfill ioutputforechrelease is forbidden
-  !*****************************************************************************
-
-  if ((ldirect .lt. 0) .and. (ioutputforeachrelease .eq. 0)) then
-      write(*,*) '#### FLEXPART MODEL ERROR! FILE COMMAND:     ####'
-      write(*,*) '#### FOR BACKWARD RUNS, IOUTPUTFOREACHRLEASE ####'
-      write(*,*) '#### MUST BE SET TO ONE!                     ####'
-      stop
-  endif
-
-
-  ! For backward runs one releasefield for all releases makes no sense,
+  ! For domainfill runs one releasefield for all releases makes no sense,
   ! and is "forbidden"
   !*****************************************************************************