Changeset 156 for palm

Timestamp:

Apr 1, 2008 11:10:17 AM (16 years ago)

Author:

steinfeld

Message:

Bugfix in user_read_restart_data

File:

• palm/trunk/SOURCE/user_interface.f90 (modified) (2 diffs)

palm/trunk/SOURCE/user_interface.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! bugfix in user_read_restart_data
 ! small bugfixes for sample code (comments):
 ! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn
@@ -226 +227 @@
 !
 !             CASE ( 'u2_av' )
-!                IF ( .NOT. ALLOCATED( u2_av )  THEN
+!                IF ( .NOT. ALLOCATED( u2_av ) ) THEN
 !                   ALLOCATE( u2_av(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
 !                ENDIF