[cig-commits] [commit] devel: fixes filename argument for routine write_kernel_netcdf() (6664099)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/2cc93c33966a370878432590563633b66f4a1f90...00ae7db05e62851315db5db27dab495a7ec137d3

>---------------------------------------------------------------

commit 66640994d16ad1fe7a42346b5d6bb885b8aa153b
Author: daniel peter <peterda at ethz.ch>
Date:   Mon Dec 8 17:16:13 2014 +0100

    fixes filename argument for routine write_kernel_netcdf()


>---------------------------------------------------------------

66640994d16ad1fe7a42346b5d6bb885b8aa153b
 src/meshfem3D/model_cem.f90    |  4 +---
 src/specfem3D/save_kernels.F90 | 16 ++++++++--------
 2 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/src/meshfem3D/model_cem.f90 b/src/meshfem3D/model_cem.f90
index 61fbf1a..e7a75f2 100644
--- a/src/meshfem3D/model_cem.f90
+++ b/src/meshfem3D/model_cem.f90
@@ -177,9 +177,7 @@ subroutine return_populated_arrays (structure, param, reg)
 
 
   formatString = "(A,A3,A,I0.2,A,I0.6,A)"
-  write (fileName,formatString) "./DATA/cemRequest/", param, "_reg", reg, &
-    ".proc", rank, ".nc"
-
+  write (fileName,formatString) "./DATA/cemRequest/", param, "_reg", reg, ".proc", rank, ".nc"
   fileNameTrim = trim(fileName)
 
   status = nf90_open              (fileNameTrim, NF90_NOWRITE, ncid)
diff --git a/src/specfem3D/save_kernels.F90 b/src/specfem3D/save_kernels.F90
index 457e488..821069e 100644
--- a/src/specfem3D/save_kernels.F90
+++ b/src/specfem3D/save_kernels.F90
@@ -438,14 +438,14 @@
         ! Output these kernels as netcdf files -- one per processor.
 #ifdef CEM
 
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/alphavKernelCrustMantle.nc', alphav_kl_crust_mantle)
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/alphahKernelCrustMantle.nc', alphah_kl_crust_mantle)
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/betavKernelCrustMantle.nc',  betav_kl_crust_mantle)
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/betahKernelCrustMantle.nc',  betah_kl_crust_mantle)
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/etaKernelCrustMantle.nc',    eta_kl_crust_mantle)
-        call write_kernel_netcdf(trim(OUTPUT_FILES)'/rhoKernelCrustMantle.nc',    rho_kl_crust_mantle)
-
-        call write_coordinates_netcdf('./OUTPUT_FILES/xyzCrustMantle.nc')
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/alphavKernelCrustMantle.nc', alphav_kl_crust_mantle)
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/alphahKernelCrustMantle.nc', alphah_kl_crust_mantle)
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/betavKernelCrustMantle.nc',  betav_kl_crust_mantle)
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/betahKernelCrustMantle.nc',  betah_kl_crust_mantle)
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/etaKernelCrustMantle.nc',    eta_kl_crust_mantle)
+        call write_kernel_netcdf(trim(OUTPUT_FILES)//'/rhoKernelCrustMantle.nc',    rho_kl_crust_mantle)
+
+        call write_coordinates_netcdf(trim(OUTPUT_FILES)//'/xyzCrustMantle.nc')
 
 #endif