Changeset 78e62dc in flexpart.git for src/readOHfield.f90

Timestamp:

May 12, 2015, 12:28:19 PM (9 years ago)

Author:

flexpart <>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

0f20c31

Parents:

2f8635b

Message:

New OH parameter in SPECIES files (now 3 instead of 2). New path to OH binariy files.

File:

• src/readOHfield.f90 (modified) (3 diffs)

src/readOHfield.f90

@@ -46 +46 @@
   use com_mod
 
-
   implicit none
 
@@ -69 +68 @@
     ! open netcdf file
     write(mm,fmt='(i2.2)') m
-    thefile=trim(path(1))//'OH_FIELDS/'//'geos-chem.OH.2005'//mm//'01.nc'
+!    thefile=trim(path(1))//'OH_FIELDS/'//'geos-chem.OH.2005'//mm//'01.nc'
+    thefile=trim(ohfields_path)//'OH_FIELDS/'//'geos-chem.OH.2005'//mm//'01.nc'
     ierr=nf_open(trim(thefile),NF_NOWRITE,nid)
     if(ierr.ne.0) then
@@ -163 +163 @@
 
   ! open netcdf file
-  thefile=trim(path(1))//'OH_FIELDS/jrate_average.nc'
+!  thefile=trim(path(1))//'OH_FIELDS/jrate_average.nc'
+  thefile=trim(ohfields_path)//'OH_FIELDS/jrate_average.nc'
   ierr=nf_open(trim(thefile),NF_NOWRITE,nid)
   if(ierr.ne.0) then