@@ -88,54 +88,45 @@ function output_nc!(i::Int,
88
88
@unpack f_q,ep,dtint = S. grid
89
89
90
90
# CUT OFF HALOS
91
- # @views u = Prog.u[halo+1:end-halo,halo+1:end-halo]
92
- # @views v = Prog.v[halo+1:end-halo,halo+1:end-halo]
93
- # @views η = Prog.η[haloη+1:end-haloη,haloη+1:end-haloη]
94
- # @views sst = Prog.sst[halosstx+1:end-halosstx,halossty+1:end-halossty]
95
- # @views ζ = (dvdx[2:end-1,2:end-1]-dudy[2+ep:end-1,2:end-1])./abs.(f_q)
96
- # @views du = Diag.Tendencies.du[halo+1:end-halo,halo+1:end-halo]
97
- # @views dv = Diag.Tendencies.dv[halo+1:end-halo,halo+1:end-halo]
98
- # @views dη = Diag.Tendencies.dη[haloη+1:end-haloη,haloη+1:end-haloη]
99
-
100
91
# As output is before copyto!(u,u0), take u0,v0,η0
101
- @views u = Float32 .(Diag. RungeKutta. u0[halo+ 1 : end - halo,halo+ 1 : end - halo])
102
- @views v = Float32 .(Diag. RungeKutta. v0[halo+ 1 : end - halo,halo+ 1 : end - halo])
103
- @views η = Float32 .(Diag. RungeKutta. η0[haloη+ 1 : end - haloη,haloη+ 1 : end - haloη])
104
-
105
- @views sst = Float32 .(Prog. sst[halosstx+ 1 : end - halosstx,halossty+ 1 : end - halossty])
106
- @views ζ = Float32 .((dvdx[2 : end - 1 ,2 : end - 1 ]- dudy[2 + ep: end - 1 ,2 : end - 1 ]). / abs .(f_q))
107
-
108
92
# Tendencies calculate from the last time step, du = u_n+1-u_n etc
109
- @views du = u- Float32 .(Prog. u[halo+ 1 : end - halo,halo+ 1 : end - halo])
110
- @views dv = v- Float32 .(Prog. v[halo+ 1 : end - halo,halo+ 1 : end - halo])
111
- @views dη = η- Float32 .(Prog. η[haloη+ 1 : end - haloη,haloη+ 1 : end - haloη])
112
-
113
93
# WRITING THE VARIABLES
114
94
if ncs. u != nothing
95
+ @views u = Float32 .(Diag. RungeKutta. u0[halo+ 1 : end - halo,halo+ 1 : end - halo])
115
96
NetCDF. putvar (ncs. u," u" ,u,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
116
97
end
117
98
if ncs. v != nothing
99
+ @views v = Float32 .(Diag. RungeKutta. v0[halo+ 1 : end - halo,halo+ 1 : end - halo])
118
100
NetCDF. putvar (ncs. v," v" ,v,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
119
101
end
120
102
if ncs. η != nothing
103
+ @views η = Float32 .(Diag. RungeKutta. η0[haloη+ 1 : end - haloη,haloη+ 1 : end - haloη])
121
104
NetCDF. putvar (ncs. η," eta" ,η,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
122
105
end
123
106
if ncs. sst != nothing
107
+ @views sst = Float32 .(Prog. sst[halosstx+ 1 : end - halosstx,halossty+ 1 : end - halossty])
124
108
NetCDF. putvar (ncs. sst," sst" ,sst,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
125
109
end
126
110
if ncs. q != nothing
127
111
NetCDF. putvar (ncs. q," q" ,q,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
128
112
end
129
113
if ncs. ζ != nothing
114
+ @views ζ = Float32 .((dvdx[2 : end - 1 ,2 : end - 1 ]- dudy[2 + ep: end - 1 ,2 : end - 1 ]). / abs .(f_q))
130
115
NetCDF. putvar (ncs. ζ," relvort" ,ζ,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
131
116
end
132
117
if ncs. du != nothing
118
+ @views u = Float32 .(Diag. RungeKutta. u0[halo+ 1 : end - halo,halo+ 1 : end - halo])
119
+ @views du = u- Float32 .(Prog. u[halo+ 1 : end - halo,halo+ 1 : end - halo])
133
120
NetCDF. putvar (ncs. du," du" ,du,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
134
121
end
135
122
if ncs. dv != nothing
123
+ @views v = Float32 .(Diag. RungeKutta. v0[halo+ 1 : end - halo,halo+ 1 : end - halo])
124
+ @views dv = v- Float32 .(Prog. v[halo+ 1 : end - halo,halo+ 1 : end - halo])
136
125
NetCDF. putvar (ncs. dv," dv" ,dv,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
137
126
end
138
127
if ncs. dη != nothing
128
+ @views η = Float32 .(Diag. RungeKutta. η0[haloη+ 1 : end - haloη,haloη+ 1 : end - haloη])
129
+ @views dη = η- Float32 .(Prog. η[haloη+ 1 : end - haloη,haloη+ 1 : end - haloη])
139
130
NetCDF. putvar (ncs. dη," deta" ,dη,start= [1 ,1 ,iout],count= [- 1 ,- 1 ,1 ])
140
131
end
141
132
0 commit comments