1 | Index: ROMS/Utility/def_avg.F
|
---|
2 | ===================================================================
|
---|
3 | --- ROMS/Utility/def_avg.F (revision 1238)
|
---|
4 | +++ ROMS/Utility/def_avg.F (working copy)
|
---|
5 | @@ -2956,26 +2956,26 @@
|
---|
6 | RETURN
|
---|
7 | # endif
|
---|
8 | # endif
|
---|
9 | - IF (.not.got_var(id2dPV)) THEN
|
---|
10 | + IF (.not.got_var(id2dPV).and.Aout(id2dPV,ng)) THEN
|
---|
11 | IF (Master) WRITE (stdout,60) TRIM(Vname(1,id2dPV)), &
|
---|
12 | & TRIM(ncname)
|
---|
13 | exit_flag=3
|
---|
14 | RETURN
|
---|
15 | END IF
|
---|
16 | - IF (.not.got_var(id2dRV)) THEN
|
---|
17 | + IF (.not.got_var(id2dRV).and.Aout(id2dRV,ng)) THEN
|
---|
18 | IF (Master) WRITE (stdout,60) TRIM(Vname(1,id2dRV)), &
|
---|
19 | & TRIM(ncname)
|
---|
20 | exit_flag=3
|
---|
21 | RETURN
|
---|
22 | END IF
|
---|
23 | # ifdef SOLVE3D
|
---|
24 | - IF (.not.got_var(id3dPV)) THEN
|
---|
25 | + IF (.not.got_var(id3dPV).and.Aout(id3dPV,ng)) THEN
|
---|
26 | IF (Master) WRITE (stdout,60) TRIM(Vname(1,id3dPV)), &
|
---|
27 | & TRIM(ncname)
|
---|
28 | exit_flag=3
|
---|
29 | RETURN
|
---|
30 | END IF
|
---|
31 | - IF (.not.got_var(id3dRV)) THEN
|
---|
32 | + IF (.not.got_var(id3dRV).and.Aout(id3dRV,ng)) THEN
|
---|
33 | IF (Master) WRITE (stdout,60) TRIM(Vname(1,id3dRV)), &
|
---|
34 | & TRIM(ncname)
|
---|
35 | exit_flag=3
|
---|