@@ -73,10 +73,6 @@ module plotting
7373 plt = plot (ylims= _get_ylims (atmos), yticks= _get_yticks (atmos), legend= :outertopright ,
7474 size= (size_x,size_y); plt_default... )
7575
76- # Plot current surface pressure and original
77- @_plt_pboa
78- @_plt_poboa
79-
8076 # Plot phase boundary
8177 if atmos. condense_any
8278 sat_t:: Array{Float64,1} = zeros (Float64, atmos. nlev_c)
@@ -112,6 +108,10 @@ module plotting
112108 # Plot profile
113109 plot! (plt, atmos. tmpl, atmos. pl/ 1e5 , lc= " black" , lw= 2 , label= L " T(p)" )
114110
111+ # Plot current surface pressure and original
112+ @_plt_pboa
113+ @_plt_poboa
114+
115115 # Decorate
116116 xlabel! (plt, " Temperature [K]" )
117117 ylabel! (plt, " Pressure [bar]" )
@@ -139,17 +139,17 @@ module plotting
139139 legend= :outertopright ,
140140 size= (size_x,size_y); plt_default... )
141141
142- # Plot current surface pressure and original
143- @_plt_pboa
144- @_plt_poboa
145-
146142 # Plot surface
147143 scatter! (plt, [atmos. rp* 1e-3 ], [atmos. pl[end ]* 1e-5 ], color= " brown3" , label= L " P_s" )
148144
149145 # Plot cell-centres and cell-edges
150146 scatter! (plt, atmos. r* 1e-3 , atmos. p* 1e-5 , msa= 0.0 , msw= 0 , ms= 1.2 , shape= :diamond , label= " Centres" )
151147 scatter! (plt, atmos. rl* 1e-3 , atmos. pl* 1e-5 , msa= 0.0 , msw= 0 , ms= 1.2 , shape= :diamond , label= " Edges" )
152148
149+ # Plot current surface pressure and original
150+ @_plt_pboa
151+ @_plt_poboa
152+
153153 # Decorate
154154 xlabel! (plt, " Radius [km]" )
155155 ylabel! (plt, " Pressure [bar]" )
@@ -223,10 +223,6 @@ module plotting
223223 size= (size_x,size_y); plt_default... )
224224
225225
226- # Plot current surface pressure and original
227- @_plt_pboa
228- @_plt_poboa
229-
230226 # Plot log10 VMRs for each gas
231227 gas_xsurf:: Array = zeros (Float64, atmos. gas_num)
232228 gas:: String = " "
@@ -283,6 +279,10 @@ module plotting
283279 color= atmos. gas_dat[gas]. plot_color, label= " " )
284280 end
285281
282+ # Plot current surface pressure and original
283+ @_plt_pboa
284+ @_plt_poboa
285+
286286 xlims = (max (min_x, minmin_x)- 0.1 , 0.1 )
287287 xticks = round .(Int,range ( xlims[1 ], stop= 0 , step= 1 ))
288288
@@ -324,10 +324,6 @@ module plotting
324324 xticks= (xticks, xticklabels), xlims= xlims,
325325 size= (size_x,size_y); plt_default... )
326326
327- # Plot current surface pressure and original
328- @_plt_pboa
329- @_plt_poboa
330-
331327
332328 col_r:: String = " #c0c0c0"
333329 col_n:: String = " #000000"
@@ -410,6 +406,10 @@ module plotting
410406 end
411407 end
412408
409+ # Plot current surface pressure and original
410+ @_plt_pboa
411+ @_plt_poboa
412+
413413 # Labels
414414 annotate! (plt, xlims[1 ]/ 2.0 , arr_P[1 ]/ 0.8 , text (" Downward" , :black , :center , 9 ))
415415 annotate! (plt, xlims[2 ]/ 2.0 , arr_P[1 ]/ 0.8 , text (" Upward" , :black , :center , 9 ))
0 commit comments