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 ...@@ -6,15 +6,15 @@ FC=gfortran
DEFINES += -DFORTRAN95 DEFINES += -DFORTRAN95
can_do_F90 = true can_do_F90 = true
F90_to_f90 = $(FC) -E $(F90FLAGS) $(EXTRA_FFLAGS) $< > $@ F90_to_f90 = $(FC) -E $(F90FLAGS) $(EXTRA_FFLAGS) $< > $@
#MODULES = -M $(MODDIR) MODULES = -M $(MODDIR)
MODULES = -J $(MODDIR) #MODULES = -J $(MODDIR)
EXTRAS = -ffree-form -Wall -std=f95 -pedantic EXTRAS = -ffree-form -Wall -std=f95 -pedantic
DEBUG_FLAGS = -g DEBUG_FLAGS = -g
PROF_FLAGS = -p PROF_FLAGS = -p
PROD_FLAGS = -O0 PROD_FLAGS = -O0
DEFINES += -DREAL_4B=real\(4\) DEFINES += -DREAL_4B=real\(4\)
NETCDFINC = /opt/local/netcdf-3.6.1/include #NETCDFINC = /opt/local/netcdf-3.6.1/include
NETCDFLIBDIR = /opt/local/netcdf-3.6.1/lib #NETCDFLIBDIR = /opt/local/netcdf-3.6.1/lib
endif endif
# Set options for the Intel Fortran 95 compiler - ver. 8. # Set options for the Intel Fortran 95 compiler - ver. 8.
ifeq ($(FORTRAN_COMPILER),IFORT) ifeq ($(FORTRAN_COMPILER),IFORT)
FC=ifort FC=ifort
DEFINES += -DFORTRAN95 DEFINES += -DFORTRAN95
can_do_F90=true can_do_F90 =true
F90_to_f90= F90_to_f90 =
MODULES= MODULES =
MODULES=-module $(MODDIR) MODULES =-module $(MODDIR)
EXTRAS = -w95 -e95 #EXTRAS = -w95 -e95
EXTRAS = -w95 EXTRAS = -w95
DEBUG_FLAGS = -g -C DEBUG_FLAGS = -g -C
PROF_FLAGS = -qp -p PROF_FLAGS = -qp -p
PROD_FLAGS = -O3 PROD_FLAGS = -O3
DEFINES += -DREAL_4B=real\(4\) DEFINES += -DREAL_4B=real\(4\)
endif endif
...@@ -8,7 +8,9 @@ use amdgulf ...@@ -8,7 +8,9 @@ use amdgulf
!Variables definition. !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 inib=0.001
define symbol vp=0.3 define symbol vp=0.3
...@@ -16,18 +18,20 @@ define symbol p0=0.0001 ...@@ -16,18 +18,20 @@ define symbol p0=0.0001
define symbol k1=0.2 define symbol k1=0.2
define symbol k2=0.8 define symbol k2=0.8
define symbol C_N=8.82 define symbol C_mg_mmol=12.001
define symbol C_g_mol=12 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 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 !plot max_phy
!frame/file=phy_concentration_SCM.gif !frame/file=phy_concentration_SCM.gif
...@@ -38,11 +42,15 @@ let max_phy=phy[k=6:80@max] ...@@ -38,11 +42,15 @@ let max_phy=phy[k=6:80@max]
let norm_phy=phy/max_phy let norm_phy=phy/max_phy
!fill norm_phy[k=6:80]
!frame/file=norm_phy.gif
!Determination of the depth of the SCM. !Determination of the depth of the SCM.
let depth_SCM=norm_phy[k=1:80@loc:1] let depth_SCM=norm_phy[k=1:80@loc:1]
!plot depth_SCM !plot depth_SCM
!frame/file=depth_SCM.gif !frame/file=depth_SCM.gif
...@@ -53,6 +61,15 @@ let depth_SCM=norm_phy[k=1:80@loc:1] ...@@ -53,6 +61,15 @@ let depth_SCM=norm_phy[k=1:80@loc:1]
let d_nit=nit[k=1:80@ddc] let d_nit=nit[k=1:80@ddc]
let nitracline=d_nit[k=40:80@loc:-0.02] 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). !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] ...@@ -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) let abs_d_norm_phy=abs(d_norm_phy)
!plot /T=($D) abs_d_norm_phy !plot /T=($D) abs_d_norm_phy
!frame/file=Derivative_of_normalized_phy_absolute.gif !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. !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 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
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
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 ...@@ -131,9 +178,10 @@ let f_ratio = new_prod/tot_prod
!Definition of the primary production at the SCM. !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 frame/file=Good_locations.gif
let SCM_prod=tot_prod*good_locations let SCM_prod=tot_prod*good_locations
...@@ -161,28 +209,51 @@ let PP_new_ratio=i_SCM_new_prod/i_new_prod ...@@ -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 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 i_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_prod plot/overlay i_SCM_prod[l=1:2920@sbx:8]
plot/overlay PP_ratio plot/overlay PP_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP.gif frame/file=Integrated_PP.gif
plot i_new_prod plot i_new_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_new_prod plot/overlay i_SCM_new_prod[l=1:2920@sbx:8]
plot/overlay PP_new_ratio plot/overlay PP_new_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP_new.gif frame/file=Integrated_PP_new.gif
plot i_reg_prod plot i_reg_prod[l=1:2920@sbx:8]
plot/overlay i_SCM_reg_prod plot/overlay i_SCM_reg_prod[l=1:2920@sbx:8]
plot/overlay PP_reg_ratio plot/overlay PP_reg_ratio[l=1:2920@sbx:8]
frame/file=Integrated_PP_reg.gif 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. !Annual primary production.
let annual_PP=i_prod[l=1:2920@sum] 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) ...@@ -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 !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_g=C_annual_PP*($C_mg_mmol)/1000
let C_annual_PP_new_g=C_annual_PP_new*($C_g_mol)/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_g_mol)/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_g=C_SCM_annual_PP*($C_mg_mmol)/1000
let C_SCM_annual_PP_new_g=C_SCM_annual_PP_new*($C_g_mol)/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_g_mol)/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 !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