Changeset ff050cd in flexpart.git for src_parallel/FLEXPART.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/FLEXPART.f90
r7c1fd44 rff050cd 50 50 51 51 #ifdef NETCDF_OUTPUT 52 use n c_output_mod, only: writeheader_ncdf52 use netcdf_output_mod, only: writeheader_netcdf 53 53 #endif 54 54 … … 217 217 !****************************************************************** 218 218 219 if (ln cdfout) then219 if (lnetcdfout.eq.1) then 220 220 #ifdef NETCDF_OUTPUT 221 call writeheader_n cdf(lnest = .false.)221 call writeheader_netcdf(lnest = .false.) 222 222 #endif 223 223 else … … 226 226 227 227 if (nested_output.eq.1) then 228 if (ln cdfout) then228 if (lnetcdfout.eq.1) then 229 229 #ifdef NETCDF_OUTPUT 230 call writeheader_n cdf(lnest = .true.)230 call writeheader_netcdf(lnest = .true.) 231 231 #endif 232 232 else … … 235 235 endif 236 236 237 if ( .NOT.lncdfout) then237 if (lnetcdfout.ne.1) then 238 238 open(unitdates,file=path(2)(1:length(2))//'dates') 239 239 end if
Note: See TracChangeset
for help on using the changeset viewer.