Changeset 37 for branches/petra/src/readcommand.f90

Timestamp:

Apr 22, 2015, 3:42:35 PM (9 years ago)

Author:

pesei

Message:

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

File:

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

branches/petra/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"
   !*****************************************************************************