Changeset 156


Ignore:
Timestamp:
Apr 1, 2008 11:10:17 AM (14 years ago)
Author:
steinfeld
Message:

Bugfix in user_read_restart_data

File:
1 edited

Legend:

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

    r148 r156  
    44! Actual revisions:
    55! -----------------
     6! bugfix in user_read_restart_data
    67! small bugfixes for sample code (comments):
    78! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn
     
    226227!
    227228!             CASE ( 'u2_av' )
    228 !                IF ( .NOT. ALLOCATED( u2_av ) THEN
     229!                IF ( .NOT. ALLOCATED( u2_av ) ) THEN
    229230!                   ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    230231!                ENDIF
Note: See TracChangeset for help on using the changeset viewer.