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

Contents 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 - (show 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 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