Changeset ff050cd in flexpart.git for src_parallel/timemanager.f90
- Timestamp:
- Aug 15, 2013, 3:23:48 PM (11 years ago)
- Branches:
- flexpart91_hasod
- Children:
- 31113de
- Parents:
- 7c1fd44
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src_parallel/timemanager.f90
r7c1fd44 rff050cd 97 97 idummy_ran3_initialize, idummy_ran3_advance 98 98 #ifdef NETCDF_OUTPUT 99 use n c_output_mod, only: concoutput_ncdf, concoutput_nest_ncdf99 use netcdf_output_mod, only: concoutput_netcdf, concoutput_nest_netcdf 100 100 #endif 101 101 … … 324 324 if ((itime.eq.loutend).and.(outnum.gt.0.)) then 325 325 if ((iout.le.3.).or.(iout.eq.5)) then 326 if (ln cdfout) then326 if (lnetcdfout.eq.1) then 327 327 #ifdef NETCDF_OUTPUT 328 call concoutput_n cdf(itime,outnum,gridtotalunc, &328 call concoutput_netcdf(itime,outnum,gridtotalunc, & 329 329 wetgridtotalunc,drygridtotalunc) 330 330 #endif … … 335 335 336 336 if (nested_output.eq.1) then 337 if (ln cdfout) then337 if (lnetcdfout.eq.1) then 338 338 #ifdef NETCDF_OUTPUT 339 call concoutput_nest_n cdf(itime,outnum)339 call concoutput_nest_netcdf(itime,outnum) 340 340 #endif 341 341 else
Note: See TracChangeset
for help on using the changeset viewer.