Commit 13953473 authored by dumoda01's avatar dumoda01

Modification du script SCM_analysis.jnl

parent 0cd08a07
This diff is collapsed.
! NOAA/PMEL TMAP
! FERRET v6.62
! Linux(gfortran) 2.6.9-89.0.20.ELsmp - 06/11/10
! 7-Feb-11 11:11
use amdgulf
!Variables definition.
define symbol D=15-may-2008
define symbol alpha=0.11
define symbol inib=0.001
define symbol vp=0.3
define symbol p0=0.0001
define symbol k1=0.2
define symbol k2=0.8
define symbol C_mg_mmol=12.001
define symbol N_mg_mmol=14.007
define symbol C_N=(8.82/(($C_mg_mmol)/($N_mg_mmol)))
define symbol N_mmol_Chla=(15.54/($N_mg_mmol))
define symbol area=450000*1000^2
define symbol tera=10^12
!Find the maximum concentration of phy (if excluding the accumulation in the bottom layer; k=6:80)
let max_phy=phy[k=1:80@max]
!plot max_phy
!frame/file=phy_concentration_SCM.gif
!Phy concentration normalized (between 0 and 1). To assess the presence of a SCM, it could be usefull to normalized phy in order to remove the effect of changes in the concentration troughout the season.
let norm_phy=phy/max_phy
!fill norm_phy[k=6:80]
!frame/file=norm_phy.gif
!Determination of the depth of the SCM.
let depth_SCM=norm_phy[k=1:80@loc:1]
!plot depth_SCM
!frame/file=depth_SCM.gif
!Determination of the nitracline.
let d_nit=nit[k=1:80@ddc]
let nitracline=d_nit[k=40:80@loc:-0.02]
fill nit
frame/file=Nitrate.gif
!The centered derivative of phy (excluding the accumulation in the bottom layer; k=6:80@ddc).
let d_phy=phy[k=6:80@ddc]
!The centered derivative of normalized phy (excluding the accumulation in the bottom layer; k=6:80@ddc).
let d_norm_phy=norm_phy[k=6:80@ddc]
!Absolute values of d_phy and d_norm_phy. To avoid "s" profiles.
let abs_d_phy=abs(d_phy)
let abs_d_norm_phy=abs(d_norm_phy)
!plot /T=($D) abs_d_norm_phy
!frame/file=Derivative_of_normalized_phy_absolute.gif
!Smooth of of abs_d_phy to include norm_phy EQ 1.
let smooth_abs_d_phy=abs_d_phy[k=6:80@sbx:8]
!Graph of phytoplankton, SCM and nitracline depths and definition of the SCM zone.
!Phytoplankton mmol N m-3
fill /key=continous /pal=no_red phy[k=40:80]
contour/overplot norm_phy EQ 1
!contour/overplot d_nit[k=40:80] EQ -0.02
contour/overplot phy[k=6:80] GE 0.1 and smooth_abs_d_phy[k=6:80] GE 0.002
frame/file=phytoplankton_mmol_N_m-3.gif
!Phytoplankton ug chla l-1.
let Chla_phy=phy/($N_mmol_Chla)
fill /key=continous /pal=no_red Chla_phy[k=40:80]
contour/overplot norm_phy EQ 1
contour/overplot phy[k=6:80] GE 0.1 and smooth_abs_d_phy[k=6:80] GE 0.002
frame/file=phytoplankton_chla_ug_l.gif
plot /t=($D) phy
plot/overlay /t=($D) phy[k=6:80] GE 0.1 and smooth_abs_d_phy[k=6:80] GE 0.01
frame/file=phy_daily.gif
!Define the primary production.
!Define Ps.
define symbol ps=($vp)/((($alpha)/(($alpha)+($inib)))*(($inib)/(($alpha)+($inib))))^(($inib)/($alpha))
!Define the photosynthesis equation.(Platt 1980)
let p=($ps)*(1-exp(-1*($alpha)*par/($ps)))*exp(-1*($inib)*par/($ps))
!Define the primary production, total, new, regenerated and f-ratio.
let new_prod=p*(phy+($p0))*(nit/(($k1)*(1+(nit/($k1))+(amm/($k2)))))
let reg_prod=p*(phy+($p0))*(amm/(($k2)*(1+(nit/($k1))+(amm/($k2)))))
let tot_prod = new_prod + reg_prod
let f_ratio = new_prod/tot_prod
!Graphs for the primary production.
!fill new_prod
!frame/file=new_prod.gif
!fill reg_prod
!frame/file=reg_prod.gif
!fill tot_prod
!frame/file=tot_prod.gif
!fill f_ratio
!frame/file=f_ratio.gif
!fill par
!frame/file=par.gif
!Definition of the primary production at the SCM.
let good_locations=phy[k=6:80] GE 0.1 and smooth_abs_d_phy[k=6:80] GE 0.002
fill /level=(0,1,0.5) /pal=grayscale good_locations[k=40:80]
!contour/overplot norm_phy EQ 1
frame/file=Good_locations.gif
let SCM_prod=tot_prod*good_locations
let SCM_new_prod=new_prod*good_locations
let SCM_reg_prod=reg_prod*good_locations
!fill SCM_prod
!frame/file=PP_at_the_SCM.gif
let i_prod=tot_prod[k=6:80@sum]
let i_new_prod=new_prod[k=6:80@sum]
let i_reg_prod=reg_prod[k=6:80@sum]
let i_SCM_prod=SCM_prod[k=6:80@sum]
let i_SCM_new_prod=SCM_new_prod[k=6:80@sum]
let i_SCM_reg_prod=SCM_reg_prod[k=6:80@sum]
!Ratio PP at the SCM over total PP in the water column.
let PP_ratio=i_SCM_prod/i_prod
let PP_new_ratio=i_SCM_new_prod/i_new_prod
let PP_reg_ratio=i_SCM_reg_prod/i_reg_prod
!Integrated primary production and contribution of the SCM with hourly mean radiative fluxes.
plot i_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_prod[l=1:2920@sbx:8]
plot/overlay PP_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP.gif
plot i_new_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_new_prod[l=1:2920@sbx:8]
plot/overlay PP_new_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP_new.gif
plot i_reg_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_reg_prod[l=1:2920@sbx:8]
plot/overlay PP_reg_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP_reg.gif
!Integrated primary production and contribution of the SCM with daily mean radiative fluxes.
!plot i_prod
!plot/overlay i_SCM_prod
!plot/overlay PP_ratio
!frame/file=Integrated_PP.gif
!plot i_new_prod
!plot/overlay i_SCM_new_prod
!plot/overlay PP_new_ratio
!frame/file=Integrated_PP_new.gif
!plot i_reg_prod
!plot/overlay i_SCM_reg_prod
!plot/overlay PP_reg_ratio
!frame/file=Integrated_PP_reg.gif
!Annual primary production.
let annual_PP=i_prod[l=1:2920@sum]
let SCM_annual_PP=i_SCM_prod[l=1:2920@sum]
let contribution_of_SCM_at_annual_PP=SCM_annual_PP/annual_PP*100
!list annual_PP
!list SCM_annual_PP
!list contribution_of_SCM_at_annual_PP
!Annual new primary production.
let annual_PP_new=i_new_prod[l=1:2920@sum]
let SCM_annual_PP_new=i_SCM_new_prod[l=1:2920@sum]
let contribution_of_SCM_at_annual_PP_new=SCM_annual_PP_new/annual_PP_new*100
!list annual_PP_new
!list SCM_annual_PP_new
!list contribution_of_SCM_at_annual_PP_new
!Annual regenerated primary production.
let annual_PP_reg=i_reg_prod[l=1:2920@sum]
let SCM_annual_PP_reg=i_SCM_reg_prod[l=1:2920@sum]
let contribution_of_SCM_at_annual_PP_reg=SCM_annual_PP_reg/annual_PP_reg*100
!list annual_PP_reg
!list SCM_annual_PP_reg
!list contribution_of_SCM_at_annual_PP_reg
!Convert the N annual primary production to C annual primary production.
!To mmol N m-2 y-1 to mmol C m-2 y-1.
let C_annual_PP=annual_PP*($C_N)
let C_annual_PP_new=annual_PP_new*($C_N)
let C_annual_PP_reg=annual_PP_reg*($C_N)
let C_SCM_annual_PP=SCM_annual_PP*($C_N)
let C_SCM_annual_PP_new=SCM_annual_PP_new*($C_N)
let C_SCM_annual_PP_reg=SCM_annual_PP_reg*($C_N)
!To mmol C m-2 y-1 to g C m-2 y-1
let C_annual_PP_g=C_annual_PP*($C_mg_mmol)/1000
let C_annual_PP_new_g=C_annual_PP_new*($C_mg_mmol)/1000
let C_annual_PP_reg_g=C_annual_PP_reg*($C_mg_mmol)/1000
let C_SCM_annual_PP_g=C_SCM_annual_PP*($C_mg_mmol)/1000
let C_SCM_annual_PP_new_g=C_SCM_annual_PP_new*($C_mg_mmol)/1000
let C_SCM_annual_PP_reg_g=C_SCM_annual_PP_reg*($C_mg_mmol)/1000
!To g C m-2 y-1 to Tg C y-1
let area_C_PP=C_annual_PP_g*($area)/($tera)
let area_C_SCM_PP=C_SCM_annual_PP_g*($area)/($tera)
!list area_C_PP
!list area_C_SCM_PP
list/clobber/file=Annual_primary_production.dat annual_PP, SCM_annual_PP, contribution_of_SCM_at_annual_PP, annual_PP_new, SCM_annual_PP_new, contribution_of_SCM_at_annual_PP_new, annual_PP_reg, SCM_annual_PP_reg, contribution_of_SCM_at_annual_PP_reg, C_annual_PP_g, C_SCM_annual_PP_g, C_annual_PP_new_g, C_SCM_annual_PP_new_g, C_annual_PP_reg_g, C_SCM_annual_PP_reg_g,area_C_PP, area_C_SCM_PP
exit
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment