Changeset 10 for branches/flexpart91_hasod/src_parallel/timemanager.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/timemanager.f90 (modified) (3 diffs)

branches/flexpart91_hasod/src_parallel/timemanager.f90

@@ -97 +97 @@
        idummy_ran3_initialize, idummy_ran3_advance
 #ifdef NETCDF_OUTPUT
-  use nc_output_mod, only: concoutput_ncdf, concoutput_nest_ncdf
+  use netcdf_output_mod, only: concoutput_netcdf, concoutput_nest_netcdf
 #endif 
 
@@ -324 +324 @@
       if ((itime.eq.loutend).and.(outnum.gt.0.)) then
         if ((iout.le.3.).or.(iout.eq.5)) then
-          if (lncdfout) then 
+          if (lnetcdfout.eq.1) then 
 #ifdef NETCDF_OUTPUT
-            call concoutput_ncdf(itime,outnum,gridtotalunc, &
+            call concoutput_netcdf(itime,outnum,gridtotalunc, &
                wetgridtotalunc,drygridtotalunc)
 #endif 
@@ -335 +335 @@
 
           if (nested_output.eq.1) then
-            if (lncdfout) then 
+            if (lnetcdfout.eq.1) then 
 #ifdef NETCDF_OUTPUT
-              call concoutput_nest_ncdf(itime,outnum)
+              call concoutput_nest_netcdf(itime,outnum)
 #endif 
             else