Changeset d7935de in flexpart.git for src/readOHfield.f90

Timestamp:

Sep 11, 2018, 6:06:31 PM (6 years ago)

Author:

pesei <petra seibert at univie ac at>

Branches:

univie

Children:

93786a1

Parents:

34f1452

Message:

modify most input read subroutines

changed some variable names (mostly for I-N reasons)
includes two names appearing also in timemanager, com_mod
corrected a few mistakes
simplified some parts of code
changed options/RELEASES which is in nml fmt correspondingly

File:

• src/readOHfield.f90 (modified) (1 diff)

src/readOHfield.f90

@@ -60 +60 @@
 
 
-  open(unitOH,file=trim(ohfields_path) &
+  open(unitOH,file=trim(path_ohfields) &
        //'OH_FIELDS/OH_variables.bin',status='old', &
        form='UNFORMATTED', iostat=ierr, convert='little_endian')
 
   if(ierr.ne.0) then
-    write(*,*) 'Cannot read binary OH fields in ',trim(ohfields_path)//'OH_FIELDS/OH_variables.bin'
+    write(*,*) 'Cannot read binary OH fields in ',trim(path_ohfields)//'OH_FIELDS/OH_variables.bin'
     stop
   endif