bling/pkg/tracer_min_val.F

C $Header:  $
C $Name:  $

#include "BLING_OPTIONS.h"

CBOP
      subroutine TRACER_MIN_VAL(
     I                          PTR, min_val )

C     =================================================================
C     | subroutine tracer_min_val
C     | 
C     =================================================================

      implicit none
      
C     === Global variables ===
#include "SIZE.h"

C     === Routine arguments ===
      _RL     PTR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
      _RL     min_val
CEOP

C     == Local variables ==
      INTEGER i,j,k

       DO k=1,Nr
         DO i=1,sNx
          DO j=1,sNy
           PTR(i,j,k) = max( min_val, PTR(i,j,k) )
          ENDDO
         ENDDO
       ENDDO

      RETURN
      END
1	mmazloff	1.1	C $Header: $
2			C $Name: $
3
4			#include "BLING_OPTIONS.h"
5
6			CBOP
7			subroutine TRACER_MIN_VAL(
8			I PTR, min_val )
9
10			C =================================================================
11			C \| subroutine tracer_min_val
12			C \|
13			C =================================================================
14
15			implicit none
16
17			C === Global variables ===
18			#include "SIZE.h"
19
20			C === Routine arguments ===
21			_RL PTR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
22			_RL min_val
23			CEOP
24
25			C == Local variables ==
26			INTEGER i,j,k
27
28			DO k=1,Nr
29			DO i=1,sNx
30			DO j=1,sNy
31			PTR(i,j,k) = max( min_val, PTR(i,j,k) )
32			ENDDO
33			ENDDO
34			ENDDO
35
36			RETURN
37			END