Changeset 2572 for palm/trunk


Ignore:
Timestamp:
Oct 20, 2017 3:38:29 PM (7 years ago)
Author:
scharf
Message:

bugfixes in lsm_last_actions

File:
1 edited

Legend:

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

    r2548 r2572  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfixes in last_actions
    2323!
    2424! Former revisions:
     
    42794279       ENDIF
    42804280       IF ( ALLOCATED( ghf_av ) )  THEN
    4281           WRITE ( 14 )  'ghf_av           ';  WRITE ( 14 )  ghf_av
     4281          WRITE ( 14 )  'ghf_av              ';  WRITE ( 14 )  ghf_av
    42824282       ENDIF
    42834283       IF ( ALLOCATED( lai_av ) )  THEN
    42844284          WRITE ( 14 )  'lai_av              ';  WRITE ( 14 )  lai_av
    42854285       ENDIF
    4286        WRITE ( 14 )     'm_liq            ';  WRITE ( 14 )  m_liq_h%var_1d
     4286       WRITE ( 14 )     'm_liq               ';  WRITE ( 14 )  m_liq_h%var_1d
    42874287       IF ( ALLOCATED( m_liq_av ) )  THEN
    4288           WRITE ( 14 )  'm_liq_av         ';  WRITE ( 14 )  m_liq_av
     4288          WRITE ( 14 )  'm_liq_av            ';  WRITE ( 14 )  m_liq_av
    42894289       ENDIF
    42904290       WRITE ( 14 )     'm_soil              ';  WRITE ( 14 )  m_soil_h%var_2d
     
    42934293       ENDIF
    42944294       IF ( ALLOCATED( qsws_liq_av ) )  THEN
    4295           WRITE ( 14 )  'qsws_liq_av      ';  WRITE ( 14 )  qsws_liq_av
     4295          WRITE ( 14 )  'qsws_liq_av         ';  WRITE ( 14 )  qsws_liq_av
    42964296       ENDIF 
    42974297       IF ( ALLOCATED( qsws_soil_av ) )  THEN
    4298           WRITE ( 14 )  'qsws_soil_av     ';  WRITE ( 14 )  qsws_soil_av
     4298          WRITE ( 14 )  'qsws_soil_av        ';  WRITE ( 14 )  qsws_soil_av
    42994299       ENDIF
    43004300       IF ( ALLOCATED( qsws_veg_av ) )  THEN
    4301           WRITE ( 14 )  'qsws_veg_av      ';  WRITE ( 14 )  qsws_veg_av
     4301          WRITE ( 14 )  'qsws_veg_av         ';  WRITE ( 14 )  qsws_veg_av
    43024302       ENDIF
    43034303       WRITE ( 14 )     't_soil              ';  WRITE ( 14 )  t_soil_h%var_2d
Note: See TracChangeset for help on using the changeset viewer.