Changeset 148 for palm/trunk

Timestamp:

Feb 13, 2008 4:06:08 PM (17 years ago)

Author:

letzel

Message:

Small bugfixes in the user_interface.

Location:

palm/trunk

Files:

• DOC/app/chapter_3.5.4.html (modified) (1 diff)
• SOURCE/CURRENT_MODIFICATIONS (modified) (1 diff)
• SOURCE/user_interface.f90 (modified) (5 diffs)

palm/trunk/DOC/app/chapter_3.5.4.html

@@ -404 +404 @@
 software package</a> (see <a href="chapter_3.7.html">chapter
 3.7</a>). Therefore user-defined spectra also require the package
-activation via <code>mrun - p spectra</code>.<hr>
+activation via <code>mrun -p spectra</code>.<hr>
 <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
 change:&nbsp;</i> $Id: chapter_3.5.4.html 136 2007-11-26

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -49 +49 @@
 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) 

palm/trunk/SOURCE/user_interface.f90

@@ -4 +4 @@
 ! 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 +218 @@
 !-- 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 +230 @@
 !                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 +270 @@
 !
 !-- 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 +507 @@
 !                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) =  &