finished to transform common in module

couplage/CARAIB/ver01_Iv_couplage/mod/litiere_mod.f90

-      common /litiere/ xlit_prod(nplant,npool,ndy),xhum_prod(2,ndy)
-      real*4 xlit_prod,xhum_prod
- 
+module litiere_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: xlit_prod(nplant,npool,ndy)
+real, save :: xhum_prod(2,ndy)
+
+endmodule litiere_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/loop_mod.f90

-      common /loop/ ip,iday
-      integer ip,iday
+module loop_mod
+
+implicit none
+
+integer, save :: ip
+integer, save :: iday
+
+endmodule loop_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/lstcli_mod.f90

-      common /lstcli/ climatslst
-      character*3 climatslst(34)
+module lstcli_mod
+
+implicit none
+
+character(len=3), save :: climatslst(34)
+
+endmodule lstcli_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/lstreg_mod.f90

-      common /lstreg/ reg 
-      character*1 reg(34)
+module lstreg_mod
+
+implicit none
+
+character(len=3), save :: reg(34)
+
+endmodule lstreg_mod

couplage/CARAIB/ver01_Iv_couplage/mod/lstz_mod.f90

-      common /lstz/ listezone
-      character*8 listezone(nzone)
+module lstz_mod
+
+use parameter_mod
+
+implicit none
+
+character(len=8), save :: listezone(nzone)
+
+endmodule lstz_mod
+            
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/luc_mod.f90

-      common /luc/ dfr_nat,dfr_crop,dfr_past,dfr_urb,dfr_rock,dfr_wat
-     &       ,rdfr_nat,rdfr_crop,rdfr_past,rdfr_urb,rdfr_rock,rdfr_wat
-      real*4 dfr_nat,dfr_crop,dfr_past,dfr_urb,dfr_rock,dfr_wat
-     &       ,rdfr_nat,rdfr_crop,rdfr_past,rdfr_urb,rdfr_rock,rdfr_wat
+module luc_mod
+
+implicit none
+
+real, save :: dfr_nat
+real, save :: dfr_crop
+real, save :: dfr_past
+real, save :: dfr_urb
+real, save :: dfr_rock
+real, save :: dfr_wat 
+real, save :: rdfr_nat 
+real, save :: rdfr_crop
+real, save :: rdfr_past
+real, save :: rdfr_urb
+real, save :: rdfr_rock
+real, save :: rdfr_wat
+
+endmodule luc_mod
  

couplage/CARAIB/ver01_Iv_couplage/mod/lucflx_mod.f90

-      common /lucflx/ yemi_luc(nplant,npool),xlit_luc(nplant,npool)
-     &       ,frac0(nplant),bg_bio(nplant),ag_bio(nplant,npool)
-      real*4 yemi_luc,xlit_luc,frac0,bg_bio,ag_bio
+module lucflx_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: yemi_luc(nplant,npool)
+real, save :: xlit_luc(nplant,npool)
+real, save :: frac0(nplant)
+real, save :: bg_bio(nplant)
+real, save :: ag_bio(nplant,npool)
+
+endmodule lucflx_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/management_mod.f90

-      common /management/ iday_mg(ndy),imanag,mg_mode,mg_days,icut,ict
-     &                   ,cleft_mg(npool,ndy),fcut,ycharvest(nplant)
-     &                   ,charvest(nplant,npool,ndy)
-      integer iday_mg,imanag,mg_mode,mg_days,icut,ict
-      real*4 cleft_mg,fcut,ycharvest,charvest
+module management_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: cleft_mg(npool,ndy)
+real, save :: fcut
+real, save :: ycharvest(nplant)
+real, save :: charvest(nplant,npool,ndy)
+
+integer, save :: iday_mg(ndy)
+integer, save :: imanag
+integer, save :: mg_mode
+integer, save :: mg_days
+integer, save :: icut
+integer, save :: ict
+
+endmodule management_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/memory_mod.f90

-      common /memory/ olddrv(nequat), oldbdo(nequat,norder)
-      double precision olddrv,oldbdo
+module memory_mod
+
+use parameter_mod
+
+implicit none
+
+double precision, save :: olddrv(nequat)
+double precision, save :: oldbdo(nequat,norder)
+
+endmodule memory_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/mois_mod.f90

-      common /mois/ month
-      integer month
+module mois_mod
+
+implicit none
+
+integer, save :: month
+
+endmodule mois_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/monres_mod.f90

-      common /monres/ xmgpp(nm),xmnpp(nm),xmnep(nm),xmlai(nm),xmbiom(nm)
-     &               ,xmfapar(nm),xmra(nm),xmrh(nm),xmemifire(nm)
-     &               ,xmcharvest(nm),xmemiblit(nm),xmnbp(nm)
-      real*4 xmgpp,xmnpp,xmnep,xmlai,xmbiom,xmfapar,xmra,xmrh,xmemifire
-     &               ,xmcharvest,xmemiblit,xmnbp
+module monres_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: xmgpp(nm)
+real, save :: xmnpp(nm)
+real, save :: xmnep(nm)
+real, save :: xmlai(nm)
+real, save :: xmbiom(nm)
+real, save :: xmfapar(nm)
+real, save :: xmra(nm)
+real, save :: xmrh(nm)
+real, save :: xmemifire(nm)
+real, save :: xmcharvest(nm)
+real, save :: xmemiblit(nm)
+real, save :: xmnbp(nm)
+
+endmodule monres_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/monthcst2_mod.f90

-      common /monthcst2/ xmfac(nm)
-      real*4 xmfac
-       
+module monthcst2_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: xmfac(nm) 
+
+endmodule monthcst2_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/monthcst_mod.f90

-      common /monthcst/ imonth(ndy),mlength(nm),mondec(nm),numday(nm)
-     &                  ,ini(nm),ifin(nm)
-      integer imonth,mlength,mondec,numday
-     &                  ,ini,ifin
+module monthcst_mod
+
+use parameter_mod
+
+implicit none
+
+integer, save :: imonth(ndy)
+integer, save :: mlength(nm)
+integer, save :: mondec(nm)
+integer, save :: numday(nm)
+integer, save :: ini(nm)
+integer, save :: ifin(nm)
+
+endmodule monthcst_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/monwat_mod.f90

-      common /monwat/ swcar(nm),rtrcar(nm),svecar(nm),fsncar(nm),aswmin
-      real*4 swcar,rtrcar,svecar,fsncar,aswmin
+module monwat_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: swcar(nm)
+real, save :: rtrcar(nm)
+real, save :: svecar(nm)
+real, save :: fsncar(nm)
+real, save :: aswmin
+
+endmodule monwat_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/mort_mod.f90

-      common /mort/ tmin_inf(nplant),tmin_sup(nplant)
-     &             ,tmax_inf(nplant),tmax_sup(nplant)  
-     &             ,wat_inf(nplant),wat_sup(nplant)
-     &             ,xpar_inf(nplant),xpar_sup(nplant) 
-     &             ,ftmin(nplant),ftmax(nplant)
-     &             ,fwat(nplant),fxpar(nplant),ftemp(nplant,ndy)
-     &             ,ftot(nplant),fnat(nplant),ftotmin(nplant)
-     &             ,ftotw(nplant)     
-      real*4 tmin_inf,tmin_sup
-     &             ,tmax_inf,tmax_sup  
-     &             ,wat_inf,wat_sup
-     &             ,xpar_inf,xpar_sup 
-     &             ,ftmin,ftmax
-     &             ,fwat,fxpar,ftemp
-     &             ,ftot,fnat,ftotmin
-     &             ,ftotw
-  
+module mort_mod
 
+use parameter_mod
+
+implicit none
+
+real, save :: tmin_inf(nplant)
+real, save :: tmin_sup(nplant)
+real, save :: tmax_inf(nplant)
+real, save :: tmax_sup(nplant)  
+real, save :: wat_inf(nplant)
+real, save :: wat_sup(nplant)
+real, save :: xpar_inf(nplant)
+real, save :: xpar_sup(nplant) 
+real, save :: ftmin(nplant)
+real, save :: ftmax(nplant)
+real, save :: fwat(nplant)
+real, save :: fxpar(nplant)
+real, save :: ftemp(nplant,ndy)
+real, save :: ftot(nplant)
+real, save :: fnat(nplant)
+real, save :: ftotmin(nplant)
+real, save :: ftotw(nplant) 
+
+
+endmodule mort_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/netcdf_name_mod.f90

-      common /netcdf_name/ ncname_tclim,ncname_pclim
-     &                    ,ncname_tem,ncname_dta,ncname_dtb,ncname_prc
-     &                    ,ncname_shi,ncname_rhu,ncname_win
-      character*10 ncname_tclim,ncname_pclim
-     &            ,ncname_tem,ncname_dta,ncname_dtb,ncname_prc
-     &            ,ncname_shi,ncname_rhu,ncname_win
+module netcdf_name_mod
+
+implicit none
+
+character(len=10), save :: ncname_tclim
+character(len=10), save :: ncname_pclim
+character(len=10), save :: ncname_tem
+character(len=10), save :: ncname_dta
+character(len=10), save :: ncname_dtb
+character(len=10), save :: ncname_prc
+character(len=10), save :: ncname_shi
+character(len=10), save :: ncname_rhu
+character(len=10), save :: ncname_win
+
+endmodule netcdf_name_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/netcdf_par_mod.f90

-      common /netcdf_par/ num_ncdf,incdf_tclim,incdf_pclim
-     &                    ,incdf_tem,incdf_dta,incdf_dtb,incdf_prc
-     &                    ,incdf_shi,incdf_rhu,incdf_win
-      integer num_ncdf,incdf_tclim,incdf_pclim
-     &            ,incdf_tem,incdf_dta,incdf_dtb,incdf_prc
-     &            ,incdf_shi,incdf_rhu,incdf_win
+module netcdf_par_mod
+
+implicit none
+
+integer, save :: num_ncdf
+integer, save :: incdf_tclim
+integer, save :: incdf_pclim
+integer, save :: incdf_tem
+integer, save :: incdf_dta
+integer, save :: incdf_dtb
+integer, save :: incdf_prc
+integer, save :: incdf_shi
+integer, save :: incdf_rhu
+integer, save :: incdf_win
+
+endmodule netcdf_par_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/newbdo_mod.f90

-      common /newbdo/ bdo(nequat,norder)
-      double precision bdo
+module newbdo_mod
+
+implicit none
+
+double precision, save :: bdo
+
+endmodule newbdo_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/npp_mod.f90

-      common /npp/ xnpp_year(nplant)
-      real*4 xnpp_year
+module npp_mod
+
+use parameter_mod
+
+implicit none
+
+real, save :: xnpp_year(nplant)
+
+endmodule npp_mod
\ No newline at end of file

couplage/CARAIB/ver01_Iv_couplage/mod/nspc_mod.f90

-      common /nspc/ nherb,nbush,ntree,npft0,ncrop,npast,npft,ncropvar
-      integer nherb,nbush,ntree,npft0,ncrop,npast,npft,ncropvar
+module nspc_mod
+
+use parameter_mod
+
+implicit none
+
+integer, save :: nherb
+integer, save :: nbush
+integer, save :: ntree
+integer, save :: npft0
+integer, save :: ncrop
+integer, save :: npast 
+integer, save :: npft
+integer, save :: ncropvar
+
+endmodule nspc_mod
\ No newline at end of file