| 1 | Index: ROMS/Nonlinear/diag.F
|
|---|
| 2 | ===================================================================
|
|---|
| 3 | --- ROMS/Nonlinear/diag.F (revision 618)
|
|---|
| 4 | +++ ROMS/Nonlinear/diag.F (working copy)
|
|---|
| 5 | @@ -152,6 +152,7 @@
|
|---|
| 6 | real(r8), dimension(PRIVATE_2D_SCRATCH_ARRAY) :: pe2d
|
|---|
| 7 |
|
|---|
| 8 | character (len=8) :: kechar, pechar
|
|---|
| 9 | + save maxspeed, maxrho
|
|---|
| 10 |
|
|---|
| 11 | #include "set_bounds.h"
|
|---|
| 12 | !
|
|---|
| 13 | @@ -261,9 +262,9 @@
|
|---|
| 14 | volume=volume+my_volume
|
|---|
| 15 | avgke=avgke+my_avgke
|
|---|
| 16 | avgpe=avgpe+my_avgpe
|
|---|
| 17 | - maxspeed=maxspeed+my_maxspeed
|
|---|
| 18 | + maxspeed=MAX(maxspeed,my_maxspeed)
|
|---|
| 19 | #ifdef SOLVE3D
|
|---|
| 20 | - maxrho=maxrho+my_maxrho
|
|---|
| 21 | + maxrho=MAX(maxrho,my_maxrho)
|
|---|
| 22 | #endif
|
|---|
| 23 | tile_count=tile_count+1
|
|---|
| 24 | IF (tile_count.eq.NSUB) THEN
|
|---|
