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

minor bugfix for restarts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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   '
Note: See TracChangeset for help on using the changeset viewer.