Commit f80df24f authored by dumoda01's avatar dumoda01

Certains fichiers vides effaces

parent c91f14d2
Please read information and documentation on www.gotm.net
......@@ -6,15 +6,15 @@ FC=gfortran
DEFINES += -DFORTRAN95
can_do_F90 = true
F90_to_f90 = $(FC) -E $(F90FLAGS) $(EXTRA_FFLAGS) $< > $@
#MODULES = -M $(MODDIR)
MODULES = -J $(MODDIR)
MODULES = -M $(MODDIR)
#MODULES = -J $(MODDIR)
EXTRAS = -ffree-form -Wall -std=f95 -pedantic
DEBUG_FLAGS = -g
PROF_FLAGS = -p
PROD_FLAGS = -O0
DEFINES += -DREAL_4B=real\(4\)
NETCDFINC = /opt/local/netcdf-3.6.1/include
NETCDFLIBDIR = /opt/local/netcdf-3.6.1/lib
#NETCDFINC = /opt/local/netcdf-3.6.1/include
#NETCDFLIBDIR = /opt/local/netcdf-3.6.1/lib
endif
# Set options for the Intel Fortran 95 compiler - ver. 8.
ifeq ($(FORTRAN_COMPILER),IFORT)
FC=ifort
DEFINES += -DFORTRAN95
can_do_F90=true
F90_to_f90=
MODULES=
MODULES=-module $(MODDIR)
EXTRAS = -w95 -e95
can_do_F90 =true
F90_to_f90 =
MODULES =
MODULES =-module $(MODDIR)
#EXTRAS = -w95 -e95
EXTRAS = -w95
DEBUG_FLAGS = -g -C
PROF_FLAGS = -qp -p
PROD_FLAGS = -O3
DEFINES += -DREAL_4B=real\(4\)
endif
......@@ -8,7 +8,9 @@ use amdgulf
!Variables definition.
define symbol alpha=0.04
define symbol D=15-may-2008
define symbol alpha=0.11
define symbol inib=0.001
define symbol vp=0.3
......@@ -16,18 +18,20 @@ define symbol p0=0.0001
define symbol k1=0.2
define symbol k2=0.8
define symbol C_N=8.82
define symbol C_g_mol=12
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=200000*1000^2
define symbol area=450000*1000^2
define symbol tera=10^12
!Find the maximum concentration of phy (excluding the accumulation in the bottom layer; k=6:80)
!Find the maximum concentration of phy (if excluding the accumulation in the bottom layer; k=6:80)
let max_phy=phy[k=6:80@max]
let max_phy=phy[k=1:80@max]
!plot max_phy
!frame/file=phy_concentration_SCM.gif
......@@ -38,11 +42,15 @@ let max_phy=phy[k=6:80@max]
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
......@@ -53,6 +61,15 @@ let depth_SCM=norm_phy[k=1:80@loc:1]
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).
......@@ -61,24 +78,54 @@ let d_norm_phy=norm_phy[k=6:80@ddc]
!Absolute values of d_norm_phy. To avoid "s" profiles.
!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.
fill phy
!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 d_nit[k=40:80] EQ -0.02
contour/overplot phy[k=6:80] GE 0.003 and abs_d_norm_phy[k=6:80] GE 0.005 or norm_phy[k=6:80] 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
frame/file=phytoplankton.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
......@@ -131,9 +178,10 @@ let f_ratio = new_prod/tot_prod
!Definition of the primary production at the SCM.
let good_locations=phy[k=6:80] GE 0.003 and abs_d_norm_phy[k=6:80] GE 0.005 or norm_phy[k=6:80] EQ 1
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
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
......@@ -161,28 +209,51 @@ 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.
!Integrated primary production and contribution of the SCM with hourly mean radiative fluxes.
plot i_prod
plot/overlay i_SCM_prod
plot/overlay PP_ratio
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
plot/overlay i_SCM_new_prod
plot/overlay PP_new_ratio
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
plot/overlay i_SCM_reg_prod
plot/overlay PP_reg_ratio
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]
......@@ -241,13 +312,13 @@ 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_g_mol)/1000
let C_annual_PP_new_g=C_annual_PP_new*($C_g_mol)/1000
let C_annual_PP_reg_g=C_annual_PP_reg*($C_g_mol)/1000
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_g_mol)/1000
let C_SCM_annual_PP_new_g=C_SCM_annual_PP_new*($C_g_mol)/1000
let C_SCM_annual_PP_reg_g=C_SCM_annual_PP_reg*($C_g_mol)/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
......
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