Changeset 148


Ignore:
Timestamp:
Feb 13, 2008 4:06:08 PM (14 years ago)
Author:
letzel
Message:

Small bugfixes in the user_interface.

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/app/chapter_3.5.4.html

    r144 r148  
    404404software package</a> (see <a href="chapter_3.7.html">chapter
    4054053.7</a>). Therefore user-defined spectra also require the package
    406 activation via <code>mrun - p spectra</code>.<hr>
     406activation via <code>mrun -p spectra</code>.<hr>
    407407<p style="line-height: 100%;"><br><font color="#000080"><font color="#000080"><a href="chapter_3.5.3.html"><font color="#000080"><img src="left.gif" name="Grafik1" align="bottom" border="2" height="32" width="32"></font></a><a href="index.html"><font color="#000080"><img src="up.gif" name="Grafik2" align="bottom" border="2" height="32" width="32"></font></a><a href="chapter_3.5.5.html"><font color="#000080"><img style="border: 2px solid ; width: 32px; height: 32px;" alt="" src="right.gif" name="Grafik3"></font></a></font></font></p><p style="line-height: 100%;"><i>Last
    408408change:&nbsp;</i> $Id: chapter_3.5.4.html 136 2007-11-26
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r147 r148  
    4949Errors:
    5050------
     51small bugfixes for user_interface sample code (comments):
     52- initialize ustvst with 0.0 as it is now computed only until nxr and nyn
     53- two ALLOCATE statements moved from user_read_restart_data back to user_init
     54- remove 'READ (13) u2_av' statement in user_read_restart_data
    5155Bugfix: remove IF statement in plant_canopy_model_ij (plant_canopy_model)
    5256Bugfix: divide sums(k,8) (e) and sums(k,34) (e*) by ngp_2dh_s_inner(k,sr)
  • palm/trunk/SOURCE/user_interface.f90

    r147 r148  
    44! Actual revisions:
    55! -----------------
     6! small bugfixes for sample code (comments):
     7! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn
     8! - two ALLOCATE statements moved from user_read_restart_data back to user_init
     9! - remove 'READ (13) u2_av' statement in user_read_restart_data
    610! +routines user_read_restart_data, user_spectra
    711!
     
    214218!-- Here the reading of user-defined restart data follows:
    215219!-- Sample for user-defined output
    216 !    ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    217 !    ALLOCATE( ustvst(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
    218220!
    219221!    IF ( initializing_actions == 'read_restart_data' )  THEN
     
    228230!                ENDIF
    229231!                READ ( 13 )  tmp_3d
    230 !                READ ( 13 )  u2_av
    231232!                u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = &
    232233!                                          tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1)
     
    269270!
    270271!-- Here the user-defined initializing actions follow:
     272!-- Sample for user-defined output
     273!    ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) )
     274!    ALLOCATE( ustvst(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) );  ustvst = 0.0
     275
    271276!-- Sample for user-defined time series
    272277!-- For each time series quantity you have to give a label and a unit,
     
    502507!                ENDDO
    503508!             ENDDO
    504 !             DO  i = nxl-1, nxr+1
    505 !                DO  j = nys-1, nyn+1
     509!             DO  i = nxl-1, nxr
     510!                DO  j = nys-1, nyn
    506511!                   DO  k = nzb, nzt+1
    507512!                      ustvst(k,j,i) =  &
Note: See TracChangeset for help on using the changeset viewer.