Changeset 2705


Ignore:
Timestamp:
Dec 18, 2017 11:26:23 AM (4 years ago)
Author:
maronga
Message:

minor bugfix for restarts

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r2701 r2705  
    2525! -----------------
    2626! $Id$
     27! Bugfix for reading initial profiles from ls/nuding file
     28!
     29! 2701 2017-12-15 15:40:50Z suehring
    2730! Bugfix, missing initialization of surface attributes in case of
    2831! inifor-initialization branch
     
    10241027
    10251028!
     1029!-- Initialize nudging if required
     1030    IF ( nudging )  THEN
     1031       CALL nudge_init
     1032    ENDIF
     1033
     1034!
     1035!-- Initialize reading of large scale forcing from external file - if required
     1036    IF ( large_scale_forcing  .OR.  forcing )  THEN
     1037       CALL lsf_init
     1038    ENDIF
     1039
     1040!
    10261041!-- Allocate arrays containing the RK coefficient for calculation of
    10271042!-- perturbation pressure and turbulent fluxes. At this point values are
     
    21732188
    21742189!
    2175 !-- Initialize nudging if required
    2176     IF ( nudging )  THEN
    2177        CALL nudge_init
    2178     ENDIF
    2179 
    2180 !
    2181 !-- Initialize reading of large scale forcing from external file - if required
    2182     IF ( large_scale_forcing  .OR.  forcing )  THEN
    2183        CALL lsf_init
    2184     ENDIF
    2185 !
    21862190!-- Initialize surface forcing corresponding to large-scale forcing. Therein,
    21872191!-- initialize heat-fluxes, etc. via datatype. Revise it later!
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r2696 r2705  
    2525! -----------------
    2626! $Id$
     27! Bugfix in binary output (wrong sequence)
     28!
     29! 2696 2017-12-14 17:12:51Z kanani
    2730! Bugfix: missing USE statement for calc_mean_profile
    2831! do not write surface temperatures onto pt array as this might cause
     
    57465749
    57475750    IF ( write_binary )  THEN
     5751
     5752
     5753       WRITE ( 14 ) 'ns_h_on_file_lsm    '
     5754       WRITE ( 14 ) surf_lsm_h%ns
     5755       WRITE ( 14 ) 'ns_v_on_file_lsm    '
     5756       WRITE ( 14 ) surf_lsm_v(0:3)%ns
     5757
    57485758       IF ( ALLOCATED( c_liq_av ) )  THEN
    57495759          WRITE ( 14 )  'c_liq_av            ';  WRITE ( 14 ) c_liq_av
     
    57795789          WRITE ( 14 )  't_soil_av           ';  WRITE ( 14 )  t_soil_av
    57805790       ENDIF
    5781 
    5782 
    5783        WRITE ( 14 ) 'ns_h_on_file_lsm    '
    5784        WRITE ( 14 ) surf_lsm_h%ns
    5785        WRITE ( 14 ) 'ns_v_on_file_lsm    '
    5786        WRITE ( 14 ) surf_lsm_v(0:3)%ns
    57875791       
    57885792       WRITE ( 14 ) 'lsm_start_index_h   '
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r2703 r2705  
    2121! Current revisions:
    2222! ------------------
    23 ! Workaround for calculation of r_a
     23!
    2424!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! Workaround for calculation of r_a
     29!
     30! 2703 2017-12-15 20:12:38Z maronga
    2831! - Bugfix in calculation of pt_surface and related fluxes. (BM)
    2932! - Do not write surface temperatures onto pt array as this might cause
Note: See TracChangeset for help on using the changeset viewer.