/[MITgcm]/MITgcm_contrib/bling/pkg/tracer_min_val.F
ViewVC logotype

Annotation of /MITgcm_contrib/bling/pkg/tracer_min_val.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sun Feb 28 21:53:37 2016 UTC (9 years, 4 months ago) by mmazloff
Branch: MAIN
CVS Tags: HEAD
Update to BLING version 2

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

  ViewVC Help
Powered by ViewVC 1.1.22