Index: palm/trunk/LIB/rrtmg/install_rrtmg
===================================================================
--- palm/trunk/LIB/rrtmg/install_rrtmg	(revision 4843)
+++ palm/trunk/LIB/rrtmg/install_rrtmg	(revision 4858)
@@ -1,3 +1,3 @@
-#!/bin/ksh
+#!/bin/bash
 
 # install_rrtmg - install script for creating a RRTMG library
@@ -27,4 +27,7 @@
 # -----------------
 # $Id$
+# switch from ksh to bash
+#
+# 
 #
 # 1613 2015-07-08 14:53:29Z maronga
Index: palm/trunk/LIB/rrtmg/rrlw_ncpar.f90
===================================================================
--- palm/trunk/LIB/rrtmg/rrlw_ncpar.f90	(revision 4843)
+++ palm/trunk/LIB/rrtmg/rrlw_ncpar.f90	(revision 4858)
@@ -5,4 +5,6 @@
         save
 	
+	character(len=100) ::  rrtmg_lw_input_file_name = 'RRTMG_LW'
+
         real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
                                         		 ! at constant pressure at 273 K
Index: palm/trunk/LIB/rrtmg/rrsw_ncpar.f90
===================================================================
--- palm/trunk/LIB/rrtmg/rrsw_ncpar.f90	(revision 4843)
+++ palm/trunk/LIB/rrtmg/rrsw_ncpar.f90	(revision 4858)
@@ -5,4 +5,6 @@
     save
 	
+	character(len=100) ::  rrtmg_sw_input_file_name = 'RRTMG_SW'
+
     real(kind=rb), parameter :: cpdair = 1003.5  ! Specific heat capacity of dry air
                                         		 ! at constant pressure at 273 K
Index: palm/trunk/LIB/rrtmg/rrtmg_lw_read_nc.f90
===================================================================
--- palm/trunk/LIB/rrtmg/rrtmg_lw_read_nc.f90	(revision 4843)
+++ palm/trunk/LIB/rrtmg/rrtmg_lw_read_nc.f90	(revision 4858)
@@ -32,5 +32,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -98,5 +98,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -154,5 +154,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -220,5 +220,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -276,5 +276,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -346,5 +346,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -413,5 +413,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -482,5 +482,5 @@
 	
         status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -583,5 +583,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -649,5 +649,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -705,5 +705,5 @@
 	
 	status(:)   = nf90_NoErr
-	status(1)   = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)   = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)   = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -771,5 +771,5 @@
 	
 	status(:) = nf90_NoErr
-	status(1) = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1) = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2) = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -817,5 +817,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -887,5 +887,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -942,5 +942,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
@@ -993,5 +993,5 @@
 	
         status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_lw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_lw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"PlanckFractionLowerAtmos",varID)
Index: palm/trunk/LIB/rrtmg/rrtmg_sw_read_nc.f90
===================================================================
--- palm/trunk/LIB/rrtmg/rrtmg_sw_read_nc.f90	(revision 4843)
+++ palm/trunk/LIB/rrtmg/rrtmg_sw_read_nc.f90	(revision 4858)
@@ -31,5 +31,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -87,5 +87,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID)
@@ -147,5 +147,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -203,5 +203,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -260,5 +260,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -327,5 +327,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -387,5 +387,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -441,5 +441,5 @@
 	
         status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -490,5 +490,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -559,5 +559,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -609,5 +609,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -643,5 +643,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
@@ -689,5 +689,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionUpperAtmos",varID)
@@ -739,5 +739,5 @@
 	
 	status(:)  = nf90_NoErr
-	status(1)  = nf90_open('rrtmg_sw.nc',nf90_nowrite,ncid)
+	status(1)  = nf90_open(trim(rrtmg_sw_input_file_name),nf90_nowrite,ncid)
 	
 	status(2)  = nf90_inq_varid(ncid,"SolarSourceFunctionLowerAtmos",varID)
