Changeset ff050cd in flexpart.git for src_parallel/netcdf_output_mod.f90

Timestamp:

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

Author:

Harald Sodemann <harald.sodemann@…>

Branches:

flexpart91_hasod

Children:

31113de

Parents:

7c1fd44

Message:

ADD: namelist input implemented for all common input files

git-svn-id: ​http://flexpart.flexpart.eu:8088/svn/FlexPart90/branches/flexpart91_hasod@10 ef8cc7e1-21b7-489e-abab-c1baa636049d

File:

• src_parallel/netcdf_output_mod.f90 (moved) (moved from src_parallel/nc_output_mod.f90) (7 diffs)

src_parallel/netcdf_output_mod.f90

@@ -24 +24 @@
   !  residence time and wet and dry deposition output.                         *
   !                                                                            *
-  !  - writeheader_ncdf generates file including all information previously    *
+  !  - writeheader_netcdf generates file including all information previously    *
   !    stored in separate header files                                         *
-  !  - concoutput_ncdf write concentration output and wet and dry deposition   *
+  !  - concoutput_netcdf write concentration output and wet and dry deposition   *
   !                                                                            *
   !     Author: D. Brunner                                                     *
@@ -36 +36 @@
 #ifdef NETCDF_OUTPUT
 
-module nc_output_mod
+module netcdf_output_mod
 
   use netcdf
@@ -57 +57 @@
                        reldiff,henry,f0,density,dquer,dsigma,dryvel,&
                        weightmolar,ohreact,spec_ass,kao,vsetaver,&
-                       ! for concoutput_ncdf and concoutput_nest_ncdf
+                       ! for concoutput_netcdf and concoutput_nest_netcdf
                        nxmin1,nymin1,nz,oro,oron,rho,rhon,&
                        memind,xresoln,yresoln,xrn, xln, yrn,yln,nxn,nyn,&
@@ -221 +221 @@
 ! lnest = .true.  : Create nested output file
 !****************************************************************
-subroutine writeheader_ncdf(lnest)
+subroutine writeheader_netcdf(lnest)
 
   implicit none
@@ -608 +608 @@
   return
 
-end subroutine writeheader_ncdf
-
-
-subroutine concoutput_ncdf(itime,outnum,gridtotalunc,wetgridtotalunc, &
+end subroutine writeheader_netcdf
+
+
+subroutine concoutput_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc, &
      drygridtotalunc)
   !                          i     i          o             o
@@ -981 +981 @@
 
 
-end subroutine concoutput_ncdf
-
-
-subroutine concoutput_nest_ncdf(itime,outnum)
+end subroutine concoutput_netcdf
+
+
+subroutine concoutput_nest_netcdf(itime,outnum)
   !                               i     i 
   !*****************************************************************************
@@ -1287 +1287 @@
 
 
-end subroutine concoutput_nest_ncdf
-
-
-end module nc_output_mod
+end subroutine concoutput_nest_netcdf
+
+
+end module netcdf_output_mod