Changeset 595


Ignore:
Timestamp:
Nov 12, 2010 9:52:10 AM (13 years ago)
Author:
helmke
Message:

Calculation of z locations for masked output changed

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r565 r595  
    44! Current revisions:
    55! -----------------
    6 !
     6! Calculation of z locations for masked output changed
    77!
    88! Former revisions:
     
    469469             ELSEIF ( dim == 3 )  THEN
    470470                ind_array =  &
    471                      MINLOC( ABS( mask(mid,dim,count) * mask_scale(dim) - zw ) )
     471                     MINLOC( ABS( mask(mid,dim,count) * mask_scale(dim) - zu ) )
    472472                m = ind_array(1) - 1 + nzb  ! MINLOC uses lower array bound 1
    473473             ENDIF
     
    523523             IF ( mask_loop(mid,dim,2) < 0.0 )  THEN
    524524                tmp2 = mask_loop(mid,dim,2)
    525                 mask_loop(mid,dim,2) = zw(nz) / mask_scale(dim)   ! (default)
     525                mask_loop(mid,dim,2) = zu(nz) / mask_scale(dim)   ! (default)
    526526             ENDIF
    527527             IF ( MAXVAL( mask_loop(mid,dim,1:2) )  &
    528                   > zw(nz) / mask_scale(dim) )  THEN
     528                  > zu(nz) / mask_scale(dim) )  THEN
    529529                WRITE ( message_string, '(2(A,I3,A,I1,A,F9.3),A,I1,A,F9.3)' ) &
    530530                     'mask_loop(',mid,',',dim,',1)=',mask_loop(mid,dim,1), &
    531531                     ' and/or mask_loop(',mid,',',dim,',2)=', &
    532                      mask_loop(mid,dim,2),'&exceed zw(nz)/mask_scale(',dim, &
    533                      ')=',zw(nz)/mask_scale(dim)
     532                     mask_loop(mid,dim,2),'&exceed zu(nz)/mask_scale(',dim, &
     533                     ')=',zu(nz)/mask_scale(dim)
    534534                CALL message( 'init_masks', 'PA0333', 1, 2, 0, 6, 0 )
    535535             ENDIF
    536536             ind_array =  &
    537                   MINLOC( ABS( mask_loop(mid,dim,1) * mask_scale(dim) - zw ) )
     537                  MINLOC( ABS( mask_loop(mid,dim,1) * mask_scale(dim) - zu ) )
    538538             loop_begin =  &
    539539                  ind_array(1) - 1 + nzb ! MINLOC uses lower array bound 1
    540540             ind_array =  &
    541                   MINLOC( ABS( mask_loop(mid,dim,2) * mask_scale(dim) - zw ) )
     541                  MINLOC( ABS( mask_loop(mid,dim,2) * mask_scale(dim) - zu ) )
    542542             loop_end = ind_array(1) - 1 + nzb ! MINLOC uses lower array bound 1
    543543!
  • palm/trunk/SOURCE/read_var_list.f90

    r592 r595  
    44! Current revisions:
    55! -----------------
    6 !
     6! remove print command
    77!
    88! Former revisions:
Note: See TracChangeset for help on using the changeset viewer.