Ignore:
Timestamp:
Nov 21, 2019 3:59:16 PM (19 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/salsa_mod.f90

    r4295 r4298  
    2626! -----------------
    2727! $Id$
     28! Bugfix, close netcdf input files after reading
     29!
     30! 4295 2019-11-14 06:15:31Z monakurppa
    2831!
    2932!
     
    21542157
    21552158          DEALLOCATE( pr_z, pr_mass_fracs_a, pr_mass_fracs_b )
     2159!
     2160!--       Close input file
     2161          CALL close_input_file( id_dyn )
    21562162
    21572163       ELSE
     
    21592165                           ' for SALSA missing!'
    21602166          CALL message( 'salsa_mod: aerosol_init', 'PA0607', 1, 2, 0, 6, 0 )
    2161 !
    2162 !--       Close input file
    2163           CALL close_input_file( id_dyn )
     2167
    21642168       ENDIF   ! netcdf_extend
    21652169
     
    22532257             ENDIF
    22542258          ENDDO
     2259!
     2260!--       Close input file
     2261          CALL close_input_file( id_dyn )
    22552262
    22562263       ELSEIF ( .NOT. netcdf_extend  .AND.  .NOT.  salsa_gases_from_chem )  THEN
     
    22582265                           ' for SALSA missing!'
    22592266          CALL message( 'salsa_mod: aerosol_init', 'PA0610', 1, 2, 0, 6, 0 )
    2260 !
    2261 !--       Close input file
    2262           CALL close_input_file( id_dyn )
     2267
    22632268       ENDIF   ! netcdf_extend
    22642269#else
     
    1270212707                        'PA0662', 2, 2, 0, 6, 0 )
    1270312708       ENDIF
     12709       
     12710       CALL close_input_file( salsa_nest_offl%id_dynamic )
    1270412711#endif
    1270512712    ENDIF
Note: See TracChangeset for help on using the changeset viewer.