Changeset 467460a in flexpart.git for src/readreleases.f90

Timestamp:

Mar 13, 2021, 10:00:37 AM (3 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

9ca6e38

Parents:

759df5f

Message:

First commit of files from Hachinger

File:

• src/readreleases.f90 (modified) (2 diffs, 1 prop)

src/readreleases.f90

@@ -546 +546 @@
       if ((jul1.lt.bdate).or.(jul2.gt.edate)) then
         write(*,*) 'FLEXPART MODEL ERROR'
-        write(*,*) 'Release starts before simulation begins or ends'
+        write(*,*) 'Release starts before simulation begins or ends (1)'
         write(*,*) 'after simulation stops.'
-        write(*,*) 'Make files COMMAND and RELEASES consistent.'
+        write(*,*) 'Make files COMMAND and RELEASES consistent (1).'
         stop
       endif
@@ -561 +561 @@
       if ((jul1.lt.edate).or.(jul2.gt.bdate)) then
         write(*,*) 'FLEXPART MODEL ERROR'
-        write(*,*) 'Release starts before simulation begins or ends'
+        write(*,*) 'Release starts before simulation begins or ends (2)'
         write(*,*) 'after simulation stops.'
-        write(*,*) 'Make files COMMAND and RELEASES consistent.'
+        write(*,*) 'Make files COMMAND and RELEASES consistent (2).'
         stop
       endif