Changeset 10 for branches/flexpart91_hasod/src_parallel/FLEXPART.f90

Timestamp:

Aug 15, 2013, 3:23:48 PM (11 years ago)

Author:

hasod

Message:

ADD: namelist input implemented for all common input files

File:

• branches/flexpart91_hasod/src_parallel/FLEXPART.f90 (modified) (4 diffs)

branches/flexpart91_hasod/src_parallel/FLEXPART.f90

@@ -50 +50 @@
 
 #ifdef NETCDF_OUTPUT
-  use nc_output_mod, only: writeheader_ncdf
+  use netcdf_output_mod, only: writeheader_netcdf
 #endif
 
@@ -217 +217 @@
   !******************************************************************
 
-  if (lncdfout) then 
+  if (lnetcdfout.eq.1) then 
 #ifdef NETCDF_OUTPUT
-    call writeheader_ncdf(lnest = .false.)
+    call writeheader_netcdf(lnest = .false.)
 #endif
   else 
@@ -226 +226 @@
 
   if (nested_output.eq.1) then
-    if (lncdfout) then
+    if (lnetcdfout.eq.1) then
 #ifdef NETCDF_OUTPUT
-      call writeheader_ncdf(lnest = .true.)
+      call writeheader_netcdf(lnest = .true.)
 #endif
     else
@@ -235 +235 @@
   endif
 
-  if (.NOT.lncdfout) then
+  if (lnetcdfout.ne.1) then
     open(unitdates,file=path(2)(1:length(2))//'dates')
   end if