Changeset 4298 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Nov 21, 2019 3:59:16 PM (5 years ago)

Author:

suehring

Message:

Bugfixes: Calculation of 2-m temperature adjusted to the case the 2-m level is above the first grid level; salsa: close netcdf input files after reading; open netcdf input files with read-only attribute instead of write attribute

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix, close netcdf input files after reading
+! 
+! 4295 2019-11-14 06:15:31Z monakurppa
 ! 
 ! 
@@ -2154 +2157 @@
 
           DEALLOCATE( pr_z, pr_mass_fracs_a, pr_mass_fracs_b )
+!
+!--       Close input file
+          CALL close_input_file( id_dyn )
 
        ELSE
@@ -2159 +2165 @@
                            ' for SALSA missing!'
           CALL message( 'salsa_mod: aerosol_init', 'PA0607', 1, 2, 0, 6, 0 )
-!
-!--       Close input file
-          CALL close_input_file( id_dyn )
+
        ENDIF   ! netcdf_extend
 
@@ -2253 +2257 @@
              ENDIF
           ENDDO
+!
+!--       Close input file
+          CALL close_input_file( id_dyn )
 
        ELSEIF ( .NOT. netcdf_extend  .AND.  .NOT.  salsa_gases_from_chem )  THEN
@@ -2258 +2265 @@
                            ' for SALSA missing!'
           CALL message( 'salsa_mod: aerosol_init', 'PA0610', 1, 2, 0, 6, 0 )
-!
-!--       Close input file
-          CALL close_input_file( id_dyn )
+
        ENDIF   ! netcdf_extend
 #else
@@ -12702 +12707 @@
                         'PA0662', 2, 2, 0, 6, 0 )
        ENDIF
+       
+       CALL close_input_file( salsa_nest_offl%id_dynamic )
 #endif
     ENDIF