Index: /palm/trunk/DOC/app/chapter_3.5.4.html
===================================================================
--- /palm/trunk/DOC/app/chapter_3.5.4.html (revision 147)
+++ /palm/trunk/DOC/app/chapter_3.5.4.html (revision 148)
@@ -404,5 +404,5 @@
software package (see chapter
3.7). Therefore user-defined spectra also require the package
-activation via mrun - p spectra
.
mrun -p spectra
.Last change: $Id: chapter_3.5.4.html 136 2007-11-26 Index: /palm/trunk/SOURCE/CURRENT_MODIFICATIONS =================================================================== --- /palm/trunk/SOURCE/CURRENT_MODIFICATIONS (revision 147) +++ /palm/trunk/SOURCE/CURRENT_MODIFICATIONS (revision 148) @@ -49,4 +49,8 @@ Errors: ------ +small bugfixes for user_interface sample code (comments): +- initialize ustvst with 0.0 as it is now computed only until nxr and nyn +- two ALLOCATE statements moved from user_read_restart_data back to user_init +- remove 'READ (13) u2_av' statement in user_read_restart_data Bugfix: remove IF statement in plant_canopy_model_ij (plant_canopy_model) Bugfix: divide sums(k,8) (e) and sums(k,34) (e*) by ngp_2dh_s_inner(k,sr) Index: /palm/trunk/SOURCE/user_interface.f90 =================================================================== --- /palm/trunk/SOURCE/user_interface.f90 (revision 147) +++ /palm/trunk/SOURCE/user_interface.f90 (revision 148) @@ -4,4 +4,8 @@ ! Actual revisions: ! ----------------- +! small bugfixes for sample code (comments): +! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn +! - two ALLOCATE statements moved from user_read_restart_data back to user_init +! - remove 'READ (13) u2_av' statement in user_read_restart_data ! +routines user_read_restart_data, user_spectra ! @@ -214,6 +218,4 @@ !-- Here the reading of user-defined restart data follows: !-- Sample for user-defined output -! ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) -! ALLOCATE( ustvst(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) ! ! IF ( initializing_actions == 'read_restart_data' ) THEN @@ -228,5 +230,4 @@ ! ENDIF ! READ ( 13 ) tmp_3d -! READ ( 13 ) u2_av ! u2_av(:,nysc-1:nync+1,nxlc-1:nxrc+1) = & ! tmp_3d(:,nysf-1:nynf+1,nxlf-1:nxrf+1) @@ -269,4 +270,8 @@ ! !-- Here the user-defined initializing actions follow: +!-- Sample for user-defined output +! ALLOCATE( u2(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) +! ALLOCATE( ustvst(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ); ustvst = 0.0 + !-- Sample for user-defined time series !-- For each time series quantity you have to give a label and a unit, @@ -502,6 +507,6 @@ ! ENDDO ! ENDDO -! DO i = nxl-1, nxr+1 -! DO j = nys-1, nyn+1 +! DO i = nxl-1, nxr +! DO j = nys-1, nyn ! DO k = nzb, nzt+1 ! ustvst(k,j,i) = &