Changeset 77 for branches

branches/iLoveclim

Property svn:mergeinfo changed
/trunk merged: 53-76

branches/iLoveclim/SOURCES/3D-physique-gen_mod.f90

-                      r38
+                      r77
   real, dimension(nx,ny) :: coef_drag   !< coefficient de la loi de friction non lineaire : depend de la valeur de alpha_drag
                                         !< si alpha_drag = 1, coef_drag = drag_centre
+  real, dimension(nx,ny) :: betamax_2d  !< (Pa) frottement maxi sous les streams
+  !
   real,dimension(nx,ny),target :: BM           !< mass balance   'o'
 …
   logical,dimension(nx,ny) :: cotemx    !< points cotiers ">"
   logical,dimension(nx,ny) :: cotemy    !< points cotiers "^"
+  logical,dimension(nx,ny) :: fleuvemx  !< actual grounded stream
+  logical,dimension(nx,ny) :: fleuvemy  !< actual grounded stream
   logical,dimension(nx,ny) :: isolx     !< designe un point sans voisin sur ses faces x
   logical,dimension(nx,ny) :: isoly     !< designe un point sans voisin sur ses faces y

branches/iLoveclim/SOURCES/ANT15-LBq_files/module_choix_antar15_LBq.f90

-                      r4
+                      r77
 ! use lect_topo_anteis    ! pour l'antarctique 40 km
+use lect_topo_ant_gen    ! read antarctic topo with .dat files
+!use lect_topo_ant_gen    ! read antarctic topo with .dat files Catherine
+use lect_topo_anteis    ! pour l'antarctique 40 km ou 15km Christophe
 !use lect_topo_ant_CISM_gen
 !use lect_topo_nord40    ! pour l'hemisphere nord 40 km
 …
 ! use lect_clim_act_ant_gen
+use lect_clim_acc_T_ant_gen
+! use lect_clim_acc_T_ant_gen ! module Catherine climat Antarctique
+!--------------Module climat ---------------
+!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
+!use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea)
+use climat_Grice2sea_years_perturb_mod ! forcage avec SMB type MAR et evolutionn temporelle (futur ou carotte)
 ! use lect_clim_act_nord40 ! pour l'hemisphere nord et l'eurasie
 …
 !--------------Lecture climat forcage---------------
 use climat_perturb_mod
+!use climat_perturb_mod
 !use climat_forcage_mod
 !use climat_synthes_mod
 !use climat_profil_mod
 !use climat_regions_delta
+!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
+use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
 ! pas de lacs proglaciaires
 …
 ! attention tracer fait appel a un modele climat qui doit etre compatible avec celui choisi
 ! dans modile choix.
 use notracer_mod
 …
 !use deformation_mod  ! module concernant les lois de deformation
 use deformation_mod_2lois   ! module concernant les lois de deformation
-!--------------Module propriete thermique de la glace
-use  prop_thermiques_ice
-! use prop_therm_ice_heino
 ! eau basale
 …
 ! use dragging_beta_buoy     ! beta fonction de la flottaison
+use dragging_beta_nolin      ! beta non lineaire
+!use dragging_beta_nolin      ! beta non lineaire
+use dragging_neff_slope ! dragging Aurelien et Christophe
 !use beta_iter_vitbil_mod
 …
 !use dragging_plastic_LGM
 !------------ spinup -----------------------------------
  use no_spinup           ! spinup=0 ou spinup=1
+use no_spinup           ! spinup=0 ou spinup=1
 ! use spinup_vitbil      ! plusieurs variantes de spinup : inclue le dragging
                          ! enlever le use dragging dans ce cas là
 …
 !use bmelt_ant_regions ! pour l'Antarctique avec régions
+use bmelt_seuil_prof
+!use bmelt_seuil_prof
+use bmelt_ant_regions ! pour l'Antarctique avec régions
 ! USE BMELT_NOR_REGIONS ! pour le nord avec régions
+! use BMELT_NOR_REGIONS ! pour le nord avec régions
 ! use BMELT_NOR_DEPTH   ! pour le nord avec profondeur d'eau

branches/iLoveclim/SOURCES/ANT15-LBq_files/paradim-ant15_LBq_mod.f90

-                      r4
+                      r77
 ! character
 character(len=7),  parameter  :: geoplace='A-LBq15'
 character(len=23), parameter  :: dirnameinp='../INPUT/ANT-LBq-15km/' !< input directory
 character(len=17), parameter  :: dirforcage='../INPUT/Forcage/'      !< input directory
+character(len=25), parameter  :: dirnameinp='../../INPUT/ANT-LBq-15km/' !< input directory
+character(len=20), parameter  :: dirforcage='../../INPUT/Forcage/'      !< input directory
 ! dimensionnement grilles

branches/iLoveclim/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90

-                      r52
+                      r77
 MODULE  BMELT_ANT_REGIONS         ! cat juillet 2005
+  USE module3D_phy
+  use module3D_phy
+  use netcdf
+  use io_netcdf_grisli
   implicit none
 …
   !< utilises pour moduler la fusion sous le shelf
   integer, dimension(10) :: region      !< pour écrire dans le fichier param
+  character(len=30),dimension(10) :: regname !< nom des régions
+  character(len=30),dimension(10) :: regname !< nom des régions
+  character(len=100) :: file_number_shelves ! fichier avec les zones ice-shelves
   real :: bsupshelf
   integer :: grd                        !< pour une sortie
 …
   real :: bmelt_talus,bmgrz_talus       !< Au dela du talus continental
   real :: bmelt_coef                    !< Coef pour corriger les valeurs std de bmelt (lu dans namelist)
+  real, parameter :: depth_talus=-2500. !< Profondeur du talus continental
 CONTAINS
 …
     ! Cette routine fait l'initialisation pour la fusion basale.
     ! Elle est appelée par inputfile-vec-0.5.f90
+    real*8, dimension(:,:),   pointer    :: tab               !< tableau 2d real pointer
     namelist/bmelt_ant_reg/bmelt_Ross,bmgrz_Ross,bmelt_FRis,bmgrz_FRis,  &
          bmelt_Amery,bmgrz_Amery,bmelt_PIG,bmgrz_PIG,  &
          bmelt_Pen,bmgrz_Pen,bmelt_other,bmgrz_other,  &
          bmelt_talus,bmgrz_talus,bmelt_coef
+         bmelt_talus,bmgrz_talus,bmelt_coef,file_number_shelves
 …
     write(num_rep_42,*) 'bmgrz_talus     = ',bmgrz_talus
     write(num_rep_42,*) 'bmelt_coef      = ',bmelt_coef
+    write(num_rep_42,*) 'file_numer_shelves = ',file_number_shelves
     write(num_rep_42,*)'/'
     write(num_rep_42,428) '! bmelt_Ross & bmgrz_Ross    :  fonte basale secteur Ross'
 …
     write(num_rep_42,428) '! bmelt_talus & bmgrz_talus  :  fonte basale apres talus cont'
     write(num_rep_42,428) '! bmelt_coef                 :  coef fonte (1 pour conserver val)'
+    write(num_rep_42,428) '! file_numer_ice-shelves     : fichier zones ice shelves'
     write(num_rep_42,*)
-    !    ecriture dans le fichier parametres
-    write(num_rep_42,*)'fusion basale sous les ice shelves : bmelt-ant-regions_mod'
-    write(num_rep_42,*)'----------------------------------------------------------'
-    ! lecture du fichier contenant les distances au talu continental (m)
-    open(88,file=TRIM(DIRNAMEINP)//'distance_talu-40km.xy')
-    do j=1,ny
-       do i=1,nx
-          read(88,'(i3,1x,i3,1x,f10.2)') k,k,dist_talu(i,j)
-       enddo
-    enddo
-    close(88)
-    ! les bords de la grille sont mis a dist_talus=0 de force
-    dist_talu(1,:)=0.   !a gauche
-    dist_talu(2,:)=0.
-    dist_talu(nx-1,:)=0. !  a droite
-    dist_talu(nx,:)=0.
-    dist_talu(:,1)=0.    ! en bas
-    dist_talu(:,2)=0.
-    dist_talu(:,ny-1)=0.    ! en haut
-    dist_talu(:,ny)=0.
-    debug_3D(:,:,32)=dist_talu(:,:)
     ! lecture du fichier contenant les types de shelves Ronne-Flichner
     !  ->1, Ross -> 2 , Amery -> 3, PIG-> 4, les petits shelves au dessus de PIG -> 5
-    open(88,file=TRIM(DIRNAMEINP)//'numer-ice-shelves-juil07.dat',status='OLD')
     typeshelf(:,:)=100
+    do k=1,nx*ny
+       read(88,*,end=36) i,j,typeshelf(i,j)
+    end do
+  close(88)
+    file_number_shelves=TRIM(DIRNAMEINP)//trim(file_number_shelves)
+!    call lect_input(1,'z',1,typeshelf,file_number_shelves,file_ncdf)
+        call Read_Ncdf_var('z',file_number_shelves,tab)
+        typeshelf(:,:)  = tab(:,:)
+!    open(88,file=TRIM(DIRNAMEINP)//'numer-ice-shelves-juil07.dat',status='OLD')
+!    open(88,file=TRIM(file_number_shelves),status='OLD')
+!       do j=1,ny
+!               do i=1,nx
+!                       read(88,*) typeshelf(i,j)
+!       enddo
+!       enddo
+!       close(88)
     region(:)=0
 …
        do i=1,nx
           talus:    if (dist_talu(i,j).GT.5000.) then
+          talus:    if (Bsoc(i,j).GT.depth_talus) then
              if (nint(typeshelf(i,j)).eq.1) then ! Ronne-Filchner FRis
                 bmshelf(i,j)=bmelt_FRis
 …
        enddo
     enddo bms_init
     bmshelf(:,:)=bmshelf(:,:)*bmelt_coef
 …
        do i=2,nx-1
           talus_nochange : if (typeshelf(i,j).lt.10) then
+          talus_nochange : if (Bsoc(i,j).GT.depth_talus) then
              coef_talus = coefbmshelf
           else
              coef_talus = 1         ! pas de changement au dela du talus continental
+             coef_talus = 1         ! pas de changement au dela du talus continental
           endif talus_nochange

branches/iLoveclim/SOURCES/Ant40_files/lect-anteis_mod.f90

-                      r52
+                      r77
     integer :: ios
+    ! pour les lectures ncdf
+    real*8, dimension(:,:),   pointer    :: tab               !< tableau 2d real pointer
     namelist/topo_file/topo_ref,topo_dep,grid_topo,ghf_fich
 …
     ! voir init_iso et a avoir une surface de reference pour les temperatures
     ! lecture adaptee aux fichiers ZBL.dat ou netcdf ou grd
+    call lect_input(1,'Bsoc',1,Bsoc0,topo_ref,file_ncdf)    ! socle
+    call lect_input(1,'S',1,S0,topo_ref,file_ncdf)          ! surface
+    call lect_input(1,'H',1,H0,topo_ref,file_ncdf)          ! epaisseur
+!    call lect_input(1,'Bsoc',1,Bsoc0,topo_ref,file_ncdf)    ! socle
+!    call lect_input(1,'S',1,S0,topo_ref,file_ncdf)          ! surface
+!    call lect_input(1,'H',1,H0,topo_ref,file_ncdf)          ! epaisseur
+! lecture pour eviter plantage avec compile -O0
+     call Read_Ncdf_var('Bsoc',topo_ref,tab)
+     Bsoc0(:,:)  = tab(:,:)
+     call Read_Ncdf_var('S',topo_ref,tab)
+     S0(:,:)  = tab(:,:)
+     call Read_Ncdf_var('H',topo_ref,tab)
+     H0(:,:)  = tab(:,:)
 !cdc correction point pole sud :
 !    S0(71,71)=(S0(71,70)+S0(71,72)+S0(70,71)+S0(72,71))/4.
 …
     !     ---------------------------
     ! lecture adaptee aux fichiers ZBL.dat ou netcdf ou grd
+    call lect_input(1,'Bsoc',1,Bsoc,topo_dep,file_ncdf)    ! socle
+    call lect_input(1,'S',1,S,topo_dep,file_ncdf)          ! surface
+    call lect_input(1,'H',1,H,topo_dep,file_ncdf)          ! epaisseur
+!    call lect_input(1,'Bsoc',1,Bsoc,topo_dep,file_ncdf)    ! socle
+!    call lect_input(1,'S',1,S,topo_dep,file_ncdf)          ! surface
+!    call lect_input(1,'H',1,H,topo_dep,file_ncdf)          ! epaisseur
+    ! lecture pour eviter plantage avec compile -O0
+     call Read_Ncdf_var('Bsoc',topo_dep,tab)
+     Bsoc(:,:)  = tab(:,:)
+     call Read_Ncdf_var('S',topo_dep,tab)
+     S(:,:)  = tab(:,:)
+     call Read_Ncdf_var('H',topo_dep,tab)
+     H(:,:)  = tab(:,:)
 !    S(71,71)=(S(71,70)+S(71,72)+S(70,71)+S(72,71))/4.
 !    Bsoc(71,71)=(Bsoc(71,70)+Bsoc(71,72)+Bsoc(70,71)+Bsoc(72,71))/4.
 …
 !    close(88)
+    call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf)
+!    call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf)
+    ! pour eviter plantage -O0
+    call Read_Ncdf_var('ghf',ghf_fich,tab)
+    ghf(:,:)  = tab(:,:)
     ! pour passer les flux des mW/m2 au J/m2/an

branches/iLoveclim/SOURCES/Ant40_files/module_choix-antar40-0.4.f90

-                      r45
+                      r77
 !--------------Lecture climat forcage---------------
 use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
+!use climat_forcage_mois_mod ! forcage mensuel GCM 1 Snapshot Fev 2015
 !use climat_perturb_mod   ! climat perturbe a reverifier Dec 2015
 !use climat_Grice2sea_years_mod  ! climat force par fichier SMB directement (grice2sea)
+use climat_Grice2sea_years_perturb_mod ! climat force par fichier SMB directement (grice2sea) + index temperature carotte de glace
 !use climat_forcage_mod
 …
 !use climat_regions_delta
 use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
 !use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
+!use ablation_mod ! calcul de l'ablation (PDD ou autre methode)
+use no_ablation  ! pas de calcul de l'ablation => lecture fichier SMB (necessaire avec climat_Grice2sea_years_mod)
 ! pas de lacs proglaciaires
 …
 ! sliding- dragging
 ! use module sliding_vitbal
+use sliding_Bindschadler
+! use sliding_Bindschadler
+use no_sliding
 ! use sliding_dragging_heino    ! loi de glissement heino : mis dans diffusiv :
 …
 !use dragging_hwat_cont
 use dragging_hwat_contmaj ! frottement basal catherine grisliv8 ice stream peu actifs
+! use dragging_neff_contmaj ! dragging Aurelien et Christophe Fev 2016
+!use dragging_hwat_contmaj ! frottement basal catherine grisliv8 ice stream peu actifs
+use dragging_neff_slope ! dragging Aurelien et Christophe
 ! use dragging_hwat_sedim version sediment HN
 …
 !--------------Fusion basale------------------------
 !use bmelt_ant_regions ! pour l'Antarctique avec régions
 use bmelt_ant_regions_oce ! pour Ant region et temp ocean
+use bmelt_ant_regions ! pour l'Antarctique avec régions
+!use bmelt_ant_regions_oce ! pour Ant region et temp ocean
 !use bmelt_nor_regions ! pour le nord avec régions
 !use bmelt_nor_depth   ! pour le nord avec profondeur d'eau

branches/iLoveclim/SOURCES/Antarctique_general_files/output_anta_mod-0.4.f90

-                      r4
+                      r77
     filout   = runname//'_vol_regions.dat'
     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout)
+    filout    = TRIM(DIRNAMEOUT)//TRIM(filout)
     open(nvol,file=filout)
     filout   = runname// '_volbuoy_regions.dat'
     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout)
+    filout    = TRIM(DIRNAMEOUT)//TRIM(filout)
     open(nvolbuoy,file=filout)
     filout   = runname//'_meanhdot_regions.dat'
     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout)
+    filout    = TRIM(DIRNAMEOUT)//TRIM(filout)
     open(nhdot,file=filout)
     filout   = runname//'_sigmahdot_regions.dat'
     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout)
+    filout    = TRIM(DIRNAMEOUT)//TRIM(filout)
     open(nsigma_hdot,file=filout)
     filout   = runname//'_nbpoints_regions.dat'
     filout    = TRIM(DIRNAMEOUT)//'time-series/'//TRIM(filout)
+    filout    = TRIM(DIRNAMEOUT)//TRIM(filout)
     open(npoints,file=filout)

branches/iLoveclim/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90

-                      r8
+                      r77
     betamy_file = trim(dirnameinp)//trim(betamy_file)
     betamax = beta_limgz
+    betamax_2d(:,:) = betamax
 !    call lect_input(1,'beta_c',1,drag_centre,beta_c_file,'')
 …
     end where
+        fleuvemx(:,:)=gzmx(:,:)
+        fleuvemy(:,:)=gzmy(:,:)
   end subroutine gzm_beta_prescr

branches/iLoveclim/SOURCES/Draggings_modules/dragging_prescr_beta_buoyency_mod.f90

-                      r4
+                      r77
     betamy_file = trim(dirnameinp)//trim(betamy_file)
     betamax = beta_limgz
+    betamax_2d(:,:) = betamax
 !  read the beta value on centered and staggered grids
 …
     end where
+        fleuvemx(:,:)=gzmx(:,:)
+        fleuvemy(:,:)=gzmy(:,:)

branches/iLoveclim/SOURCES/Draggings_modules/dragging_prescr_beta_mod.f90

-                      r4
+                      r77
     betamy_file = trim(dirnameinp)//trim(betamy_file)
     betamax = beta_limgz
+    betamax_2d(:,:) = betamax
 !  read the beta value on centered and staggered grids
 …
     end where
+        fleuvemx(:,:)=gzmx(:,:)
+        fleuvemy(:,:)=gzmy(:,:)
   end subroutine gzm_beta_prescr

branches/iLoveclim/SOURCES/Draggings_modules/dragging_prescr_beta_nolin_mod.f90

-                      r4
+                      r77
     betamy_file = trim(dirnameinp)//trim(betamy_file)
     betamax = beta_limgz
+    betamax2d(:,:) = betamax
 …
     end where
+        fleuvemx(:,:)=gzmx(:,:)
+        fleuvemy(:,:)=gzmy(:,:)
   end subroutine gzm_beta_prescr

branches/iLoveclim/SOURCES/Fichiers-parametres/A-LBq15_LISTE-VAR-NETCDF.dat

-                      r4
+                      r77
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ fin du header commentaire
 ============================================ classe 1
        100     4           ! class 1 nombre de snapmax 100 4 type de noeud
+       220     4           ! class 1 nombre de snapmax 100 4 type de noeud
 'o'     '>'       '^'       'x'
 -----------------------------------------------------------
 …
 Bm
        0       -1
+       1       1
 -----------------------------------------------------------
 Acc
        4       0
+       1       1
 -----------------------------------------------------------
 Abl
        0       -1
+       1       1
 -----------------------------------------------------------
 Calv
        1       -1
+       1       1
 -----------------------------------------------------------
 dHdt
 …
 Tann
        0       -1
+       1       1
 -----------------------------------------------------------
 Tjja
        0       -1
+       1       1
 -----------------------------------------------------------
 Tb
 …
        1       1
 -----------------------------------------------------------
+ghf
+       1      -1
+-----------------------------------------------------------
 phid
        0       -1
+       1       1
 -----------------------------------------------------------
 Bmelt
        0       -1
+       1       1
 -----------------------------------------------------------
 Uxbar_maj
        1       1
+       1       1
 -----------------------------------------------------------
 Uybar_maj
        1       1
+       1       1
 -----------------------------------------------------------
 Umag
 …
        1       1
 -----------------------------------------------------------
+bm_ref_t
+       1       1
+-----------------------------------------------------------
+grad_bm
+       1       1
+-----------------------------------------------------------
+bm_time
+       1       1
+-----------------------------------------------------------
 ============================================ classe 2
        100     3  ! class 2 nombre de snapmax 100  3 type de noeud a sortir
+       220     3  ! class 2 nombre de snapmax 100  3 type de noeud a sortir
 '>'     '^'     'o'
 -----------------------------------------------------------
 …
 frtmx
        0       -1
+       1       1
 -----------------------------------------------------------
 frtmy            ! sur noeud mineur
        0       -1
+       1       1
 -----------------------------------------------------------
 tobmx            ! sur noeud mineur
        1       1
+       1       1
 -----------------------------------------------------------
 tobmy
        1       1
+       1       1
 -----------------------------------------------------------
 toshe
 …
 epsxx           !'o'
        0       -1
+       3       -1
 -----------------------------------------------------------
 epsyy           !'o'
        0       -1
+       3       -1
 -----------------------------------------------------------
 epsxy           !'x'
        0       1
+       3       1
 -----------------------------------------------------------
 eps             'o'
+       0       1
+-----------------------------------------------------------
+Abar            'o'
+       1       1
+       3       1
 -----------------------------------------------------------
 pvi              ! 'o'
 …
 Hwat
        1       1
+       1       1
 -----------------------------------------------------------
 Hdw
 …
 Nefmx
        1       1
+       1       1
 -----------------------------------------------------------
 Nefmy
        2       1
+       2       1
 -----------------------------------------------------------
 posx
 …
 H_uw_x
        1       1
+       1       1
 -----------------------------------------------------------
 H_uw_y
-       1       1
------------------------------------------------------------
-time_float
        1       1
 -----------------------------------------------------------

branches/iLoveclim/SOURCES/Fichiers-parametres/A-LBq15_TEMPS-NETCDF.dat

-                      r4
+                      r77
 -----------------------------------------------------------------------
        ndtsortie      lecture de dtncdf de sortie
 .
+.
 .
 .
 .e10
 -------------------------------------------------------------------------------------------
+      npredeft        lecture de predef_tsort
+       npredeft        lecture de predef_tsort
+-21000
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-=======
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
 -------------------------------------------------------------------------------------------

branches/iLoveclim/SOURCES/Fichiers-parametres/Makefile.tof-lsce3130.inc

-                      r22
+                      r77
 # lit le nom du fichier param pour lancer sur r2d2 par une commande :   echo jobparam | LBQ....
 JOB = 'job'
+# mettre debug Ã  1 pour compiler avec options strictes
+debug ?= 0
+# compilation avec ifort :
+ifeq ($(ifort),1)
 # librairies
+        NCDF_INC  = -I$(NETCDFHOME)/include
+        NCDF_LIB  = -L$(NETCDFHOME)/lib -lnetcdf -lnetcdff
+NCDF_INC  = $(NETCDFHOME)/include
+NCDF_LIB  = -L$(NETCDFHOME)/lib -lnetcdf -lnetcdff
+# utilisation de MKL :
+        ifeq ($(mkl_c), 1)
+                MKL_LIB = -L$(MKLROOT)/lib/intel64 -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -liomp5 -lpthread -lm  # MKL parallele
+#               MKL_LIB =  -L$(MKLROOT)/lib/intel64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread -lm           # MKL sequentiel
+                MKL_INC = -I$(MKLROOT)/include
+        endif
+        IFORT= ifort
+#MKL_LIB   = -L$(DIRLOCAL)/intel/mkl9/lib/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread
+#MKL_LIB  = -L$(DIRLOCAL)/intel/mkl10/lib/32  -lmkl -lguide -lpthread #  -lmklapack
+ifeq ($(mkl_c), 1)
+    MKL_LIB = -L$MKLROOT/lib/em64t -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -liomp5 -lpthread
+    export $MKL_LIB
+endif
+IFORT= ifort
+ARITHM    = -O2 -fp-model precise  -heap-arrays -traceback -diag-disable warn -mcmodel=medium # -traceback   -CB  -g  # options pour une meilleure arithmetique
+        ARITHMi = -O2 -fp-model precise  #-openmp
                                                                       # (normalement reproductible)
+    ifeq ($(debug), 1)
+                ARITHM    = $(ARITHMi) -CB -g -p -traceback -warn all  #-openmp
+        else
+                ARITHM    = $(ARITHMi) -diag-disable warn
+        endif
 #ARITHM    =  -fp-model precise -warn all -CU -CA # options pour une meilleure arithmetique (normalement reproductible)
 # ARITHM = -03                    # trop brutal ne pas utiliser
+        FT        = $(IFORT) $(ARITHM) $(MKL_INC) #-traceback   -CB  #-g #-pg  # -g # -pg -ipo !aurel : j'ai enleve -CB
+        LK        = $(IFORT) $(ARITHM) -i_dynamic # -traceback   -CB # -g  #-pg   #-g #  -pg
+        F_NETCDF  = $(IFORT) $(ARITHM) -c -I$(NCDF_INC) # -traceback  -CB   #-g #-pg -ipo # -g
+        #FT        = $(IFORT) $(ARITHM) -c -I$(NCDF_INC) # -traceback  -CB  #-g #-pg -ipo # -g
+# compilation avec gfortran et librairie BLAS
+else
+# librairies
+        LIBSYS = /usr/lib
+#       INCSYS = /usr/include  # Ubuntu
+        INCSYS = /usr/lib64/gfortran/modules  # Fedora
+        NCDF_INC  = $(INCSYS)
+        NCDF_LIB  = -L$(LIBSYS) -lnetcdff -lnetcdf
+FT        = $(IFORT) $(ARITHM) -c    #-traceback   -CB  #-g #-pg  # -g # -pg -ipo !aurel : j'ai enleve -CB
+LK        = $(IFORT) $(ARITHM)  -i_dynamic   # -traceback   -CB # -g  #-pg   #-g #  -pg
+F_NETCDF  = $(IFORT) $(ARITHM) -c  -I$(NCDF_INC) # -traceback  -CB   #-g #-pg -ipo # -g
+FT        = $(IFORT) $(ARITHM) -c  -I$(NCDF_INC) # -traceback  -CB  #-g #-pg -ipo # -g
+F_90      = -w90
+        IFORT= gfortran
+        ARITHMi    = -O2 -ffree-line-length-none -mtune=native -mfpmath=sse
+        ifeq ($(debug), 1)
+                ARITHM  = $(ARITHMi) -g -pg -Wall -fno-align-commons -p -ggdb -ffpe-trap=invalid,zero,overflow,underflow -fbacktrace -fcheck=all
+        else
+                ARITHM = $(ARITHMi)
+        endif
+# debug : -g -CB -fp-stack-check -check all
+        FT        = $(IFORT) $(ARITHM) -c
+        LK        = $(IFORT) $(ARITHM)
+        F_NETCDF  = $(IFORT) $(ARITHM) -c -I$(NCDF_INC)
+endif

branches/iLoveclim/SOURCES/Fichiers-parametres/hemin40_TEMPS-NETCDF.dat

r9	r77
15	15	-------------------------------------------------------------------------------------------
16	16	4 ndtsortie lecture de dtsortie_hz
17		10000.
	17	1000.
18	18	50000.
19	19	100000.

branches/iLoveclim/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_mod.f90

-                      r35
+                      r77
 !cdc test debug Hemin15 et Greeneem15
 !  where (bm(:,:).lt.-1000) bm(:,:)=0.
+  where (bm(:,:).eq.0) bm(:,:)=-10. !afq
   acc(:,:) = 0.
 …
 !cdc test debug Hemin15
 !  where (Tann(:,:).lt.-100.) Tann(:,:)=10.
+  where (Tann(:,:).lt.-100.) Tann(:,:)=10. !afq
   ta0(:,:)   = Tann(:,:)

branches/iLoveclim/SOURCES/GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90

-                      r52
+                      r77
 use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel
+use module3d_phy,only: nx,ny,S,S0,H,Bsoc,acc,abl,BM,Tann,Tjuly,Ts,time,dt,num_param,num_rep_42,num_forc,dirforcage,dirnameinp,tafor,time,sealevel,coefbmshelf
 !use lect_climref_Ice2sea
 use netcdf
 …
 ! aurel, pour climat type perturb:
+integer nft             !< nombre de lignes a lire dans le fichier forcage climatique
+real,dimension(:),allocatable :: tdate          !< time for climate forcing
+real,dimension(:),allocatable :: tpert          !< temperature for climate forcing
+real,dimension(:),allocatable :: spert          !< sea surface perturbation
+real :: coefT                   !< pour modifier l'amplitude de la perturb. T
+character(len=120) :: filforc    !< nom du fichier forcage
+integer nft             !> nombre de lignes a lire dans le fichier forcage climatique
+real,dimension(:),allocatable :: tdate          !> time for climate forcing
+real,dimension(:),allocatable :: tpert          !> temperature for climate forcing
+real,dimension(:),allocatable :: spert          !> sea surface perturbation
+real :: coefT                    !> pour modifier l'amplitude de la perturb. T
+character(len=120) :: filforc    !> nom du fichier forcage
+integer :: pertsmb               !> boolean: do we modify the smb?
+real    :: rapsmb                !> if we modify the smb this is the equivalent of rappact
 …
   bm(:,:)  = tab(:,:) * coef_smb_unit
+!  where ((H(:,:).lt.1.).and.(Bsoc(:,:).gt.0.))
+!     bm(:,:) = bm(:,:) - 5.                     ! pour faire un masque a l'exterieur du Groenland actuel
+!  end where
+  !where ((H(:,:).lt.1.).and.(Bsoc(:,:).gt.0.))
+  !   bm(:,:) = bm(:,:) - 5.                     ! pour faire un masque a l'exterieur du Groenland actuel
+  !end where
+  where ((H(:,:).lt.1.).and.(Bsoc(:,:).gt.0.).and.(bm(:,:).gt.0.))
+     bm(:,:) = -0.1
+  end where
 !cdc test debug Hemin15 et Greeneem15
 !  where (bm(:,:).lt.-1000) bm(:,:)=0.
+  where (bm(:,:).eq.0) bm(:,:)=-5. !afq
   acc(:,:) = 0.
   abl(:,:) = 0.
 …
 !cdc test debug Hemin15
 !  where (Tann(:,:).lt.-100.) Tann(:,:)=10.
+  where (Tann(:,:).lt.-100.) Tann(:,:)=10. !afq
   ta0(:,:)   = Tann(:,:)
 …
 ! copie la valeur de reference dans bm_0
      bm_0(:,:) = bm(:,:)
+!     bm_0(:,:) = bm(:,:)
   endif
+! copie la valeur de reference dans bm_0
+  bm_0(:,:) = bm(:,:) !afq marion dufresne: we do it even if we don't read any snapshot
   filin=trim(dirforcage)//trim(filforc)
 …
   implicit none
   namelist/lapse_rates/T_lapse_rate
   namelist/clim_pert_massb/coefT,filforc
+  namelist/clim_pert_massb/coefT,filforc,pertsmb,rapsmb
   rewind(num_param)        ! pour revenir au debut du fichier param_list.dat
 …
   write(num_rep_42,*) 'coefT        = ', coefT
   write(num_rep_42,'(A,A)') ' filforc      = ', filforc
+  write(num_rep_42,*) 'pertsmb        = ', pertsmb
+  write(num_rep_42,*) 'rapsmb         = ', rapsmb
   write(num_rep_42,*)'/'
   write(num_rep_42,*)
 …
   implicit none
   integer i,j,ift
+  integer i,ift
   select case (massb_time)
      case(0)
 …
         Tann (:,:) = Ta0 (:,:) + T_lapse_rate * (S(:,:)-S0(:,:)) +Tafor
         Ts(:,:)    = Tann(:,:)
+        ! aurel marion dufresne: we might want to decrease the SMB during glacials..?
+        if (pertsmb.eq.1) then
+           bm(:,:) = bm_0(:,:) * exp( rapsmb *(Tann(:,:)-Ta0(:,:)))
+           if (Tafor.lt.0.) then
+              where(bm(:,:).lt.0.) bm(:,:)=min(bm(:,:)-Tafor*0.05,1.) !10 degrees less give 0.5 meter more ?
+           end if
+        end if
+        ! coefmshelf est un coefficient qui fait varier bmgrz et bmshelf en fonction de tafor
+        coefbmshelf=(1.+tafor/10.)       ! coefbmshelf=0 pour tafor=-10deg
+        coefbmshelf=max(coefbmshelf,0.)
+        coefbmshelf=min(coefbmshelf,2.)
      case(1)
         call massb_Ice2sea_RCM

branches/iLoveclim/SOURCES/Greeneem_files/lect-greeneem_mod.f90

-                      r27
+                      r77
 integer :: n1,n2,ndx
 real :: sealevel0
+real :: archimed
+integer :: ios
 contains
 …
        do i=1,nx
           archim = Bsoc(i,j)+H(i,j)*ro/row -sealevel
+          archimed = Bsoc(i,j)+H(i,j)*ro/row -sealevel
           if ((ARCHIM.LT.0.).and.(H(I,J).gt.1.E-3)) then    ! le point flotte
+          if ((archimed.LT.0.).and.(H(I,J).gt.1.E-3)) then    ! le point flotte
              flot(i,j)=.true.
           else

branches/iLoveclim/SOURCES/Hemin40_files/output_hemin40_mod.f90

-                      r13
+                      r77
      integer inp(13) ! Surface posee (nb de noeuds)
      integer inf(13) ! surface flottante
+      integer npab, npcal
+      REAL long, lat, rd, cx, cy, cxmin, cymin, r2
 !Variables pour sommer
       real isvol(13),isvolf(13) ! volume posé et flottants
 …
       REAL ISABLBORD(13),ABLATOT(13),TACC(13),TBM(13)
       REAL ITJJA(13)
       REAL ABLAMEAN
+!      REAL ABLAMEAN
 !moyennes utilisées en output
       REAL HMAX_(13) , HMEAN_(13)
 …
       REAL HDOTMEAN_G
       REAL ABLA(NX,NY)
+!      REAL ABLA(NX,NY)
       REAL DELTAVOL
 …
 format(f9.1,1x, e11.4,1x,e11.5, 1x,i5, 1x,e10.4,1x,i5 , 6(1x,e12.5), &
 (2(1x,e10.4,1x,i5), 9(1x,e11.4) ) )
-   format(i5,1x,f9.1,1x,f5.1,1x,e10.5,1x,i4,1x,i4,1x,f6.2,1X, &
-             f6.2,1X,f6.2,1X,f6.2,1X,i5,8(1x,f6.2))
-   format(f9.1,1x,f4.1,1x,f5.1,1x,e10.5,1x,i5,1x,i4,1x,i5,1X, &
-             f7.3,1x,f6.2,1X,i6,4(1x,e7.1),1X,f6.2,1x,f7.3)
-  format(F9.1,1x,e10.5,1x,e11.5,1x,i5,6(1x,e12.6),3(1x,e10.5,        &
-x,i5,6(1X,e12.6)),1X,i4,1X,i5,1x,f7.3,1x,                      &
-         f6.2,1x,i6,2(1x,e7.1),2(1x,f8.4),1X,f6.2,2(1x,i5),1x,e7.1,      &
-(1x,e12.6),4(1x,f15.7),9(1x,e10.5,1x,i5,2(1x,e12.6),1x,f15.7), &
-(1x,f8.3))
    format('%%%% ',a,'   time=',f8.0,' %%%%')

branches/iLoveclim/SOURCES/Makefile

-                      r40
+                      r77
 # Makefile pour construire les executables grisli en fonction de la machin
 # Pour compiler : make -f Makefile-template Grice2sea
 …
 # Choice for compiler (ifort = 1, gfortran = 0)
 ifort ?= 0
+ifort ?= 1
 # Choice for librairies (mkl_c = 1 = MKL,  = 0 = BLAS)
 #Â NOTA: mkl_c = 1 with ifort = 0 ignores the MKL and uses BLAS anyhow
 mkl_c ?= 0
+mkl_c ?= 1
 ifeq ($(ifort),1)
+#ifeq ($(ifort),1)
   include Fichiers-parametres/Makefile.tof-lsce3130.inc
 else
   include Fichiers-parametres/Makefile.dmr-lsce3027.inc
 endif
+#else
+#  include Fichiers-parametres/Makefile.dmr-lsce3027.inc
+#endif
 #     Compilation (le corps du Makefile)
 #-------------------------------------------
 ifeq ($(ifort),1)
+#ifeq ($(ifort),1)
   include Makefile.grisli.inc
 else
   include Makefile.grisli-gfortran.inc
 endif
+#else
+#  include Makefile.grisli-gfortran.inc
+#endif

branches/iLoveclim/SOURCES/Makefile.grisli-gfortran.inc

-                      r52
+                      r77
         dragging_hwatermax_0.2_mod.o dragging_calc_beta_mod.o  \
         dragging_hwat-contigu_mod.o dragging_hwat_contmaj_mod.o \
         dragging_hwat_sedim_mod.o dragging_neff_contmaj_mod.o \
+        dragging_hwat_sedim_mod.o dragging_neff_slope_mod.o \
         calving_frange.o no_calving.o no_lakes.o \
         out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \
 …
         fake-routines-ant_mod.o module_choix-antar40-0.4.o \
         track_ant40_mod.o
+Liste_Snowball = output_snowball_mod-0.4.o \
+        lect-snowball_mod.o \
+        bmelt-snowball-depth_mod.o \
+        fake-routines-snowball_mod.o \
+        module_choix-snowball.o \
+        track_snowball_mod.o
 Liste_eura40 = output_eurasie40_mod-0.1.o \
 …
 Dim_Ant40 = paradim-ant40_mod.o geography-ant40_mod.o
+Dim_Snowball = paradim-snowball_mod.o geography-snowball_mod.o
 Dim_eura40 = paradim-euras40_mod.o geography-euras40_mod.o
 …
         $(FT) dragging_hwat_sedim_mod.f90
 dragging_neff_contmaj_mod.o : dragging_neff_contmaj_mod.f90
         $(FT) dragging_neff_contmaj_mod.f90
+dragging_neff_slope_mod.o : dragging_neff_slope_mod.f90
+        $(FT) dragging_neff_slope_mod.f90
 dragging_calc_beta_mod.o : Antarctique_general_files/dragging_calc_beta_mod.f90
 …
 beta_iter_vitbil_mod.o : Draggings_modules/beta_iter_vitbil_mod.f90
         $(FT)  Draggings_modules/beta_iter_vitbil_mod.f90
+        $(F_NETCDF)  Draggings_modules/beta_iter_vitbil_mod.f90
 dragging_stream_impose_vitbil_mod.o : Ant40_files/dragging_stream_impose_vitbil_mod.f90
 …
 output_anta40_mod-0.4.o : Ant40_files/output_anta40_mod-0.4.f90
         $(FT) Ant40_files/output_anta40_mod-0.4.f90
+output_snowball_mod-0.4.o : Snowball_files/output_snowball_mod-0.4.f90
+        $(FT) Snowball_files/output_snowball_mod-0.4.f90
 output_global_mod.o :output_global_mod.f90
 …
 track_hemin15_mod.o : Hemin15_files/track_hemin15_mod.f90
         $(FT) Hemin15_files/track_hemin15_mod.f90
+# routines Snowball
+paradim-snowball_mod.o : Snowball_files/paradim-snowball_mod.f90
+        $(FT) Snowball_files/paradim-snowball_mod.f90
+geography-snowball_mod.o : Snowball_files/geography-snowball_mod.f90
+        $(FT) Snowball_files/geography-snowball_mod.f90
+lect-snowball_mod.o : Snowball_files/lect-snowball_mod.f90
+        $(FT) Snowball_files/lect-snowball_mod.f90
+bmelt-snowball-depth_mod.o : Snowball_files/bmelt-snowball-depth_mod.f90
+        $(FT) Snowball_files/bmelt-snowball-depth_mod.f90
+fake-routines-snowball_mod.o : Snowball_files/fake-routines-snowball_mod.f90
+        $(FT) Snowball_files/fake-routines-snowball_mod.f90
+module_choix-snowball.o : Snowball_files/module_choix-snowball.f90
+        $(FT) Snowball_files/module_choix-snowball.f90
+track_snowball_mod.o : Snowball_files/track_snowball_mod.f90
+        $(FT) Snowball_files/track_snowball_mod.f90
 # routines Eurasie-40
 …
         $(diagnoshelf) \
         $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques)
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques)  \
+        $(Liste_BLAS)
         $(LK) -o ../bin/Grice2sea \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
+        $(NCDF_LIB)  $(MKL_LIB)
 Grice2sea_iterbeta : $(Dim_GrIce2sea) $(mod_dim_communs)   \
 …
         $(mod_communs) \
         $(mod_clim_tof) \
         $(mod_no_tracers) \
+        $(mod_tracers) \
         $(mod_ell) $(Liste_hemin40) \
         $(diagnoshelf) \
 …
         $(mod_communs) \
         $(mod_clim_tof) \
         $(mod_no_tracers) \
+        $(mod_tracers) \
         $(mod_ell) $(Liste_hemin40) \
         $(diagnoshelf) \
 …
         $(routines_communes) steps_time_loop.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB) $(Liste_BLAS)
+Snowball : $(Dim_Snowball) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_Snowball) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
+        $(LK) -o  ../bin/Snowball \
+        $(Dim_Snowball) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_Snowball) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB) $(Liste_BLAS)

branches/iLoveclim/SOURCES/Makefile.grisli.inc

-                      r52
+                      r77
 routine_elliptiques = remplimat-shelves-tabTu.o graphique_L2.o graph-sgbsv.o
 diagnoshelf         = diagno-L2_mod.o
-#diagnoshelf         = fake_diagno_mod.o
 …
         dragging_hwatermax_0.2_mod.o dragging_calc_beta_mod.o  \
         dragging_hwat-contigu_mod.o dragging_hwat_contmaj_mod.o \
         dragging_hwat_sedim_mod.o dragging_neff_contmaj_mod.o \
+        dragging_hwat_sedim_mod.o dragging_neff_slope_mod.o \
         calving_frange.o no_calving.o no_lakes.o \
         out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \
         relaxation_mod-0.3.o relaxation_water_mod-0.4.o relaxation_water_diffusion.o \
+        relaxation_water_diffusion.o \
         prescribe-H-i2s_mod.o  \
         resol_adv_diff_2D-sept2009.o  \
 …
         calving_frange.o no_calving.o no_lakes.o \
         out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \
         relaxation_mod-0.3.o relaxation_water_mod-0.4.o relaxation_water_diffusion.o \
+        relaxation_water_diffusion.o \
         prescribe-H-i2s_mod.o   \
         resol_adv_diff_2D-sept2009.o  \
 …
         tridiag_mod-0.3.o out_horiz_mod.o bmelt-seuil-profondeur_mod.o
-#       prescribe-H_mod.o ou prescribe-H-i2s_mod.o sont dans modules_dim \
 # attention les tracers reclament le climat_perturb
 …
 # liste de routines communes
-# enleve  : flow_general-0.3.o flowlaw-0.3.o  Cat 23 mars 2012
 routines_communes = tracebug.o ablation_bord.o \
         icetemp_declar_mod.o bmelt-grounded.o calceps2-0.2.o  \
+        icetemp_declar_mod.o bmelt-grounded.o \
         diffusiv-polyn-0.6.o \
         flottab-rescue-1.o flottab2-0.7.o   \
+        flottab2-0.7.o   \
         advec_icetemp.o \
         prop_th_icetemp.o \
 …
         icetemp_mod.o \
         initial-0.3.o initial-phy-2.o initial2-0.4.o \
         lastoutput-0.2.o lect-eis.o  readinput.o lect_datfile.o write_datfile.o \
+        lect-eis.o  readinput.o lect_datfile.o write_datfile.o \
         out_cptr_mod.o lineartemp-0.2.o  litho-0.4.o main3D-0.4-40km.o masque.o \
         minmax-format.o moy_mxmy.o neffect-0.4.o new-flot-0.3.o  next-time.o \
 …
         tab-litho-0.3.o taubed-0.3.o \
         velocities-polyn-0.3.o \
+        vtoutput-0.2.o  courbures.o
+#       vtoutput-0.2.o steps_time_loop.o courbures.o
+        courbures.o
 …
 Liste_GrIce2sea =  lect_GrIce2sea_gen_nc.o  \
         output_Grice2sea_mod.o  fake-routines_Grice2sea_mod.o \
         dragging_prescr_beta_mod.o beta_iter_vitbil_mod.o module_choix_GrIce2sea.o
+#       massb-ant_forcage-0.4
+        dragging_prescr_beta_mod.o beta_iter_vitbil_mod.o module_choix_GrIce2sea.o
 Liste_heminord = paradim-nord40_mod.o  output_nord_mod-0.4.o \
 …
+Liste_ANT15-LBq = lect-Ant_clim_Acc-T_gen_dat.o output_anta_mod-0.4.o \
+        dragging-vit_bil_LBq_gen_mod.o dragging_LGM_mod.o dragging_plastic_LGM_mod.o \
+        dragging_prescr_beta_mod.o dragging_prescr_beta_buoyency_mod.o dragging_prescr_beta_nolin_mod.o \
+        fake-routines-ant_mod.o beta_iter_vitbil_mod.o \
+        lect-Ant_gen2010_dat.o module_choix_antar15_LBq.o \
+        massb-ant_perturb_Tparam.o track_ant40_mod.o
+#Liste_ANT15-LBq = lect-Ant_clim_Acc-T_gen_dat.o output_anta_mod-0.4.o \
+#       dragging-vit_bil_LBq_gen_mod.o dragging_LGM_mod.o dragging_plastic_LGM_mod.o \
+#       dragging_prescr_beta_mod.o dragging_prescr_beta_buoyency_mod.o dragging_prescr_beta_nolin_mod.o \
+#       fake-routines-ant_mod.o beta_iter_vitbil_mod.o \
+#       lect-Ant_gen2010_dat.o module_choix_antar15_LBq.o \
+#       massb-ant_perturb_Tparam.o track_ant40_mod.o
+Liste_ANT15-LBq = output_anta_mod-0.4.o \
+                lect-Ant_gen2010_dat.o \
+                lect-anteis_mod.o \
+                bmelt-ant-regions_mod.o \
+                fake-routines-ant_mod.o \
+                module_choix_antar15_LBq.o \
+                track_ant40_mod.o \
 Liste_hudson = sedim_declar_hudson_mod.o climat-hudson_mod.o \
 …
         fake-routines-ant_mod.o module_choix-antar40-0.4.o \
         track_ant40_mod.o
+Liste_Snowball = output_snowball_mod-0.4.o \
+        lect-snowball_mod.o \
+        bmelt-snowball-depth_mod.o \
+        fake-routines-snowball_mod.o \
+        module_choix-snowball.o \
+        track_snowball_mod.o
 Liste_eura40 = output_eurasie40_mod-0.1.o \
 …
 Dim_Ant40 = paradim-ant40_mod.o geography-ant40_mod.o
+Dim_Snowball = paradim-snowball_mod.o geography-snowball_mod.o
 Dim_eura40 = paradim-euras40_mod.o geography-euras40_mod.o
 …
 Dim_gsearise05 = paradim-gsearise05_mod.o geography-gsearise05_mod.o
+# Liste_BLAS = band.o reduc.o \
+#       BLAS/isamax.o BLAS/lsame.o BLAS/scopy.o BLAS/sgbmv.o BLAS/sgemm.o \
+#       BLAS/sgemv.o  BLAS/sger.o BLAS/sscal.o BLAS/sswap.o BLAS/stbsv.o \
+#       BLAS/strsm.o BLAS/xerbla.o
 ifeq ($(mkl_c), 0)
 Liste_BLAS = LAPACK/band.o LAPACK/reduc.o \
         BLAS/isamax.o BLAS/lsame.o BLAS/scopy.o \
         BLAS/slamch.o BLAS/slabad.o BLAS/slange.o \
         BLAS/slassq.o BLAS/sgeqrf.o BLAS/sormqr.o \
         BLAS/strmv.o BLAS/slarft.o \
         BLAS/ilaslr.o BLAS/ilaslc.o BLAS/strmm.o \
         BLAS/slarfb.o BLAS/slapy2.o BLAS/slarfg.o BLAS/slarf.o \
         BLAS/sgeqr2.o BLAS/sorm2r.o BLAS/snrm2.o \
         BLAS/slaqps.o BLAS/slaqp2.o BLAS/sgeqp3.o \
         BLAS/slaset.o BLAS/slaisnan.o BLAS/sisnan.o \
         BLAS/slascl.o BLAS/sdot.o BLAS/slaic1.o \
         BLAS/slarzb.o BLAS/slarzt.o \
         BLAS/saxpy.o BLAS/slarz.o BLAS/sormr3.o \
         BLAS/sormrz.o BLAS/slatrz.o BLAS/stzrzf.o BLAS/sgelsy.o \
         BLAS/sgbmv.o BLAS/sgemm.o BLAS/sgemv.o  BLAS/sger.o \
         BLAS/sscal.o BLAS/sswap.o BLAS/stbsv.o \
         BLAS/strsm.o BLAS/xerbla.o
+Liste_BLAS = band.o reduc.o \
+        isamax.o lsame.o scopy.o \
+        slamch.o slabad.o slange.o \
+        slassq.o sgeqrf.o sormqr.o \
+        strmv.o slarft.o \
+        ilaslr.o ilaslc.o strmm.o \
+        slarfb.o slapy2.o slarfg.o slarf.o \
+        sgeqr2.o sorm2r.o snrm2.o \
+        slaqps.o slaqp2.o sgeqp3.o \
+        slaset.o slaisnan.o sisnan.o \
+        slascl.o sdot.o slaic1.o \
+        slarzb.o slarzt.o \
+        saxpy.o slarz.o sormr3.o \
+        sormrz.o slatrz.o stzrzf.o sgelsy.o \
+        sgbmv.o sgemm.o sgemv.o  sger.o \
+        sscal.o sswap.o stbsv.o \
+        strsm.o xerbla.o
 endif
+# ancienne methode
+#Liste_Netcdf = io_netcdf.o  sortie_netcdf_GRISLI_mod.0.2.o
+# pour fonctionner avec code Hassine
+# sortie_netcdf_GRISLI_mod.0.2-hassine.o
 Liste_Netcdf =   sortie_netcdf_GRISLI_mod.0.2-hassine.o
 …
         echo 'entree fichier parametre par commande echo job'
          $(FT) initial-phy-2-job.f90 -o initial-phy-2.o
+         $(FT) $(NCDF_INC) -c initial-phy-2-job.f90
 else
         echo ' fichier parametre defini par runname'
          $(FT) initial-phy-2.f90 -o initial-phy-2.o
+         $(FT) $(NCDF_INC) -c initial-phy-2.f90
 endif
+# routines et modules qui dependent de la machine (defini dans le makefile machine)
+#----------------------------------------------------------------------------------
+# quelques ligne de difference dans la creation des netcdf
+#sortie_netcdf_GRISLI_mod.0.2-hassine.o :
+#ifeq ($(machine),'r2d2')
+#       $(F_NETCDF) Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine-r2d2.f90 -o sortie_netcdf_GRISLI_mod.0.2-hassine.o
+#else
+#       $(F_NETCDF) Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90
+#endif
+#out_cptr_mod.o :
+#ifeq ($(machine),'r2d2')
+#       $(F_NETCDF) out_cptr_mod-r2d2.f90 -o out_cptr_mod.o
+#else
+#       $(F_NETCDF) out_cptr_mod.f90
+#endif
+# Compilation Modules
+#---------------------------------
+paradim-ant40_mod.o : Ant40_files/paradim-ant40_mod.f90
+        $(FT) Ant40_files/paradim-ant40_mod.f90
+paradim-ant15_LBq_mod.o : ANT15-LBq_files/paradim-ant15_LBq_mod.f90
+        $(FT) ANT15-LBq_files/paradim-ant15_LBq_mod.f90
+paradim-ant15_CISM_mod.o : Ant15_CISM_files/paradim-ant15_CISM_mod.f90
+        $(FT) Ant15_CISM_files/paradim-ant15_CISM_mod.f90
+paradim-ant20_CISM_mod.o : Ant20_CISM_files/paradim-ant20_CISM_mod.f90
+        $(FT) Ant20_CISM_files/paradim-ant20_CISM_mod.f90
+paradim-ant25_CISM_mod.o : Ant25_CISM_files/paradim-ant25_CISM_mod.f90
+        $(FT) Ant25_CISM_files/paradim-ant25_CISM_mod.f90
+paradim-ant45_CISM_mod.o : Ant45_CISM_files/paradim-ant45_CISM_mod.f90
+        $(FT) Ant45_CISM_files/paradim-ant45_CISM_mod.f90
+paradim-nord40_mod.o : Heminord_files/paradim-nord40_mod.f90
+        $(FT)  Heminord_files/paradim-nord40_mod.f90
+paradim-euras40_mod.o : Eurasie40_files/paradim-euras40_mod.f90
+        $(FT)  Eurasie40_files/paradim-euras40_mod.f90
+paradim-eura20_mod.o : paradim-eura20_mod.f90
+        $(FT)  paradim-eura20_mod.f90
+paradim-eura10_mod.o : paradim-eura10_mod.f90
+        $(FT)  paradim-eura10_mod.f90
+paradim-greenmint40_mod.o : Greenmint40_files/paradim-greenmint40_mod.f90
+        $(FT) Greenmint40_files/paradim-greenmint40_mod.f90
+paradim-greeneem45_mod.o : Greeneem_files/Greeneem45_files/paradim-greeneem45_mod.f90
+        $(FT) Greeneem_files/Greeneem45_files/paradim-greeneem45_mod.f90
+paradim-greeneem15_mod.o : Greeneem_files/Greeneem15_files/paradim-greeneem15_mod.f90
+        $(FT) Greeneem_files/Greeneem15_files/paradim-greeneem15_mod.f90
+paradim-greeneem05_mod.o : Greeneem_files/Greeneem05_files/paradim-greeneem05_mod.f90
+        $(FT) Greeneem_files/Greeneem05_files/paradim-greeneem05_mod.f90
+paradim-gsearise15_mod.o : Gsearise_files/Gsearise15_files/paradim-gsearise15_mod.f90
+        $(FT) Gsearise_files/Gsearise15_files/paradim-gsearise15_mod.f90
+paradim-gsearise05_mod.o : Gsearise_files/Gsearise05_files/paradim-gsearise05_mod.f90
+        $(FT) Gsearise_files/Gsearise05_files/paradim-gsearise05_mod.f90
+paradim-GrIce2sea-cut_Tamsin.o : GrIce2sea_files/paradim-GrIce2sea-cut_Tamsin.f90
+        $(FT)  GrIce2sea_files/paradim-GrIce2sea-cut_Tamsin.f90
+paradim-Heino_mod.o : Heino_files/paradim-Heino_mod.f90
+        $(FT) Heino_files/paradim-Heino_mod.f90
+geography-ant40_mod.o : Ant40_files/geography-ant40_mod.f90
+        $(FT) Ant40_files/geography-ant40_mod.f90
+geography-Ant15_LBq.o : ANT15-LBq_files/geography-Ant15_LBq.f90
+        $(FT)  ANT15-LBq_files/geography-Ant15_LBq.f90
+geography-Ant15CISM.o : Ant15_CISM_files/geography-Ant15CISM.f90
+        $(FT) Ant15_CISM_files/geography-Ant15CISM.f90
+geography-Ant20CISM.o : Ant20_CISM_files/geography-Ant20CISM.f90
+        $(FT) Ant20_CISM_files/geography-Ant20CISM.f90
+geography-Ant25CISM.o : Ant25_CISM_files/geography-Ant25CISM.f90
+        $(FT) Ant25_CISM_files/geography-Ant25CISM.f90
+geography-Ant45CISM.o : Ant45_CISM_files/geography-Ant45CISM.f90
+        $(FT) Ant45_CISM_files/geography-Ant45CISM.f90
+geography-heino_mod.o : Heino_files/geography-heino_mod.f90
+        $(FT) Heino_files/geography-heino_mod.f90
+geography-heminord_mod.o : Heminord_files/geography-heminord_mod.f90
+        $(FT)  Heminord_files/geography-heminord_mod.f90
+geography-euras40_mod.o : Eurasie40_files/geography-euras40_mod.f90
+        $(FT) Eurasie40_files/geography-euras40_mod.f90
+geography-greenmint40_mod.o : Greenmint40_files/geography-greenmint40_mod.f90
+        $(FT) Greenmint40_files/geography-greenmint40_mod.f90
+geography-greeneem45_mod.o : Greeneem_files/Greeneem45_files/geography-greeneem45_mod.f90
+        $(FT) Greeneem_files/Greeneem45_files/geography-greeneem45_mod.f90
+geography-greeneem15_mod.o : Greeneem_files/Greeneem15_files/geography-greeneem15_mod.f90
+        $(FT) Greeneem_files/Greeneem15_files/geography-greeneem15_mod.f90
+geography-greeneem05_mod.o : Greeneem_files/Greeneem05_files/geography-greeneem05_mod.f90
+        $(FT) Greeneem_files/Greeneem05_files/geography-greeneem05_mod.f90
+geography-gsearise15_mod.o : Gsearise_files/Gsearise15_files/geography-gsearise15_mod.f90
+        $(FT) Gsearise_files/Gsearise15_files/geography-gsearise15_mod.f90
+geography-gsearise05_mod.o : Gsearise_files/Gsearise05_files/geography-gsearise05_mod.f90
+        $(FT) Gsearise_files/Gsearise05_files/geography-gsearise05_mod.f90
+geography-GrIce2sea.o : GrIce2sea_files/geography-GrIce2sea.f90
+        $(FT) GrIce2sea_files/geography-GrIce2sea.f90
+# Physique et topography
+# ---------------------------
+runparam_mod.o : runparam_mod.f90
+        $(FT) runparam_mod.f90
+D-physique-gen_mod.o : 3D-physique-gen_mod.f90
+        $(FT) 3D-physique-gen_mod.f90
+param_phy_mod.o: param_phy_mod.f90
+        $(FT) param_phy_mod.f90
+lect-anteis_mod.o : Ant40_files/lect-anteis_mod.f90
+        $(FT) Ant40_files/lect-anteis_mod.f90
+lect-Ant_CISM_gen_dat.o : Antarctique_general_files/lect-Ant_CISM_gen_dat.f90
+        $(FT) Antarctique_general_files/lect-Ant_CISM_gen_dat.f90
+lect-Ant_gen2010_dat.o : Antarctique_general_files/lect-Ant_gen2010_dat.f90
+        $(FT) Antarctique_general_files/lect-Ant_gen2010_dat.f90
+lect-Ant_CISM_15_dat.o : Ant15_CISM_files/lect-Ant_CISM_15_dat.f90
+        $(FT) Ant15_CISM_files/lect-Ant_CISM_15_dat.f90
+lect-Ant_CISM_45_dat.o : Ant45_CISM_files/lect-Ant_CISM_45_dat.f90
+        $(FT) Ant45_CISM_files/lect-Ant_CISM_45_dat.f90
+lect-nord40_mod.o : Heminord_files/lect-nord40_mod.f90
+        $(FT) Heminord_files/lect-nord40_mod.f90
+lect-eurasie_mod.o : Eurasie40_files/lect-eurasie_mod.f90
+        $(FT) Eurasie40_files/lect-eurasie_mod.f90
+lect-greenmint_mod.o : Greenmint40_files/lect-greenmint_mod.f90
+        $(FT) Greenmint40_files/lect-greenmint_mod.f90
+lect-greeneem_mod.o : Greeneem_files/lect-greeneem_mod.f90
+        $(FT) Greeneem_files/lect-greeneem_mod.f90
+lect-gsearise_mod.o : Gsearise_files/lect-gsearise_mod.f90
+        $(FT) Gsearise_files/lect-gsearise_mod.f90
+lect-Heino_mod.o : Heino_files/lect-Heino_mod.f90
+        $(FT) Heino_files/lect-Heino_mod.f90
+lect_GrIce2sea_gen_nc.o : GrIce2sea_files/lect_GrIce2sea_gen_nc.f90
+        $(FT)  GrIce2sea_files/lect_GrIce2sea_gen_nc.f90
+bmelt-ant-regions_declar_mod.o : Ant40_files/bmelt-ant-regions_declar_mod.f90
+        $(FT) Ant40_files/bmelt-ant-regions_declar_mod.f90
+bmelt-ant-regions_mod.o : Ant40_files/bmelt-ant-regions_mod.f90
+        $(FT) Ant40_files/bmelt-ant-regions_mod.f90
+bmelt-ant-regions-oce_mod.o : Ant40_files/bmelt-ant-regions-oce_mod.f90
+        $(FT) Ant40_files/bmelt-ant-regions-oce_mod.f90
+bmelt-nor-regions_mod.o : Heminord_files/bmelt-nor-regions_mod.f90
+        $(FT) Heminord_files/bmelt-nor-regions_mod.f90
+bmelt-nor-depth_mod.o : Heminord_files/bmelt-nor-depth_mod.f90
+        $(FT) Heminord_files/bmelt-nor-depth_mod.f90
+bmelt-eurasie-depth-lake_mod.o : Eurasie40_files/bmelt-eurasie-depth-lake_mod.f90
+        $(FT) Eurasie40_files/bmelt-eurasie-depth-lake_mod.f90
+bmelt-seuil-profondeur_mod.o : bmelt-seuil-profondeur_mod.f90
+        $(FT) bmelt-seuil-profondeur_mod.f90
+lakes-prescribed_mod-0.1.o : Eurasie40_files/lakes-prescribed_mod-0.1.f90
+        $(FT) Eurasie40_files/lakes-prescribed_mod-0.1.f90
+no_lakes.o : no_lakes.f90
+        $(FT) no_lakes.f90
+iso_declar_mod-0.3.o : iso_declar_mod-0.3.f90
+        $(FT) iso_declar_mod-0.3.f90
+noisostasie_mod-0.3.o : noisostasie_mod-0.3.f90
+        $(FT) noisostasie_mod-0.3.f90
+isostasie_mod-0.3.o : isostasie_mod-0.3.f90
+        $(FT) isostasie_mod-0.3.f90
+eq_elliptique_mod-0.4.o : eq_elliptique_mod-0.4.f90
+        $(FT) eq_elliptique_mod-0.4.f90
+#------------ Traceurs isotopiques
+tracer_mod.o : tracer_mod.f90
+        $(FT) tracer_mod.f90
+notracer_mod.o : notracer_mod.f90
+        $(FT) notracer_mod.f90
+tracer_vars_mod.o : tracer_vars_mod.f90
+        $(FT) tracer_vars_mod.f90
+interpolate_tracer.o : interpolate_tracer.f90
+        $(FT) interpolate_tracer.f90
+celltest_tracer.o : celltest_tracer.f90
+        $(FT) celltest_tracer.f90
+#-------------lecture des fichiers Climat
+lect-Ant_clim_Acc-T_gen_dat.o : Antarctique_general_files/lect-Ant_clim_Acc-T_gen_dat.f90
+        $(FT)  Antarctique_general_files/lect-Ant_clim_Acc-T_gen_dat.f90
+lect-clim-act-greenmint_mod.o : Greenmint40_files/lect-clim-act-greenmint_mod.f90
+        $(FT) Greenmint40_files/lect-clim-act-greenmint_mod.f90
+lect-clim-act-greeneem_mod.o : Greeneem_files/lect-clim-act-greeneem_mod.f90
+        $(FT) Greeneem_files/lect-clim-act-greeneem_mod.f90
+lect-clim-act-gsearise_mod.o : Gsearise_files/lect-clim-act-gsearise_mod.f90
+        $(FT) Gsearise_files/lect-clim-act-gsearise_mod.f90
+lect-clim-act-greeneem_mar_mod.o : Greeneem_files/lect-clim-act-greeneem_mar_mod.f90
+        $(FT) Greeneem_files/lect-clim-act-greeneem_mar_mod.f90
+lect-clim-act-greeneem_mois_lapsecouche_mod.o : Greeneem_files/lect-clim-act-greeneem_mois_lapsecouche_mod.f90
+        $(FT) Greeneem_files/lect-clim-act-greeneem_mois_lapsecouche_mod.f90
+lect-clim-act-greeneem_mois_mod.o : Greeneem_files/lect-clim-act-greeneem_mois_mod.f90
+        $(FT) Greeneem_files/lect-clim-act-greeneem_mois_mod.f90
+lect-clim-act-gsearise_mois_mod.o : Gsearise_files/lect-clim-act-gsearise_mois_mod.f90
+        $(FT) Gsearise_files/lect-clim-act-gsearise_mois_mod.f90
+lect-clim-act-nord40_mod.o : Heminord_files/lect-clim-act-nord40_mod.f90
+        $(FT) Heminord_files/lect-clim-act-nord40_mod.f90
+lect_climat_ref_Ice2sea_mod.o : GrIce2sea_files/lect_climat_ref_Ice2sea_mod.f90
+        $(FT) GrIce2sea_files/lect_climat_ref_Ice2sea_mod.f90
+# modules de climat
+# ---------------------------
+# nouveaux modules climat C. Dumas Fev 2015
+climat_forcage_mois_mod.o : climat_forcage_mois_mod.f90
+        $(F_NETCDF) climat_forcage_mois_mod.f90
+climat-forcage-insolation_mod_oneway.o : climat-forcage-insolation_mod_oneway.f90
+        $(F_NETCDF) climat-forcage-insolation_mod_oneway.f90
+climat-forcage-insolation_mod.o : climat-forcage-insolation_mod.f90
+        $(F_NETCDF) climat-forcage-insolation_mod.f90
+climat-perturb_mod-0.4.o : climat-perturb_mod-0.4.f90
+        $(F_NETCDF) climat-perturb_mod-0.4.f90
+ablation_mod.o : ablation_mod.f90
+        $(FT) ablation_mod.f90
+#Â Module climat pour iLOVECLIM
+climat_coupl_atm_mod.o : climat_coupl_atm_mod.f90
+        $(FT) climat_coupl_atm_mod.f90
+##### anciens modules
+climat-forcage_mod-0.4.o : climat-forcage_mod-0.4.f90
+        $(FT) climat-forcage_mod-0.4.f90
+climat_GrIce2sea_mod.o : GrIce2sea_files/climat_GrIce2sea_mod.f90
+        $(FT) GrIce2sea_files/climat_GrIce2sea_mod.f90
+climat_GrIce2sea_years_mod.o : GrIce2sea_files/climat_GrIce2sea_years_mod.f90
+        $(F_NETCDF) GrIce2sea_files/climat_GrIce2sea_years_mod.f90
+climat_GrIce2sea_years_perturb_mod.o : GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90
+        $(F_NETCDF) GrIce2sea_files/climat_GrIce2sea_years_perturb_mod.f90
+climat-forcage-stat-mois_mod-0.1.o : climat-forcage-stat-mois_mod-0.1.f90
+        $(FT)  climat-forcage-stat-mois_mod-0.1.f90
+declare-month_mod.o : declare-month_mod.f90
+        $(FT) declare-month_mod.f90
+declare-month_lapsecouche_mod.o : declare-month_lapsecouche_mod.f90
+        $(FT) declare-month_lapsecouche_mod.f90
+climat-forcage-mois_mod-0.2.o : climat-forcage-mois_mod-0.2.f90
+        $(FT) climat-forcage-mois_mod-0.2.f90
+ablation_month.o : ablation_month.f90
+        $(FT) ablation_month.f90
+ablation_month_lapsecouche.o : ablation_month_lapsecouche.f90
+        $(FT) ablation_month_lapsecouche.f90
+ablation_ann_july_mod.o : ablation_ann_july_mod.f90
+        $(FT) ablation_ann_july_mod.f90
+no_ablation_mod.o : no_ablation_mod.f90
+        $(FT) no_ablation_mod.f90
+accum_month.o : accum_month.f90
+        $(FT) accum_month.f90
+accum_month_lapsecouche.o : accum_month_lapsecouche.f90
+        $(FT) accum_month_lapsecouche.f90
+climat-perturb-mois_mod.o : climat-perturb-mois_mod.f90
+        $(FT) climat-perturb-mois_mod.f90
+climat-perturb-mois_lapsecouche_mod.o : climat-perturb-mois_lapsecouche_mod.F90
+        $(FT) climat-perturb-mois_lapsecouche_mod.F90
+clim-synthes_mod-o : climat-synthes_mod-0.4.f90
+        $(FT)  climat-synthes_mod-0.4.f90
+climat-heino_mod.o : Heino_files/climat-heino_mod.f90
+        $(FT) Heino_files/climat-heino_mod.f90
+deformation_mod_2lois.o : deformation_mod_2lois.f90
+        $(FT) deformation_mod_2lois.f90
+deformation_mod_2lois_isotherme.o : deformation_mod_2lois_isotherme.f90
+        $(FT) deformation_mod_2lois_isotherme.f90
+deformation_mod-0.3.o : deformation_mod-0.3.f90
+        $(FT) deformation_mod-0.3.f90
+sliding-Heino_mod.o : Heino_files/sliding-Heino_mod.f90
+        $(FT) Heino_files/sliding-Heino_mod.f90
+sliding_Bindshadler_mod.o : sliding_Bindshadler_mod.f90
+        $(FT) sliding_Bindshadler_mod.f90
+no_sliding.o : no_sliding.f90
+        $(FT) no_sliding.f90
+dragging_hwatermax_0.2_mod.o : dragging_hwatermax_0.2_mod.f90
+        $(FT) dragging_hwatermax_0.2_mod.f90
+dragging_hwat-contigu_mod.o : dragging_hwat-contigu_mod.f90
+        $(FT) dragging_hwat-contigu_mod.f90
+dragging_hwat_contmaj_mod.o : dragging_hwat_contmaj_mod.f90
+        $(FT) dragging_hwat_contmaj_mod.f90
+dragging_hwat_sedim_mod.o : dragging_hwat_sedim_mod.f90
+        $(FT) dragging_hwat_sedim_mod.f90
+dragging_neff_contmaj_mod.o : dragging_neff_contmaj_mod.f90
+        $(FT) dragging_neff_contmaj_mod.f90
+dragging_calc_beta_mod.o : Antarctique_general_files/dragging_calc_beta_mod.f90
+        $(FT) Antarctique_general_files/dragging_calc_beta_mod.f90
+dragging_LGM_mod.o : Antarctique_general_files/dragging_LGM_mod.f90
+        $(FT) Antarctique_general_files/dragging_LGM_mod.f90
+dragging_plastic_LGM_mod.o : Antarctique_general_files/dragging_plastic_LGM_mod.f90
+        $(FT) Antarctique_general_files/dragging_plastic_LGM_mod.f90
+dragging_prescr_beta_mod.o : Draggings_modules/dragging_prescr_beta_mod.f90
+        $(FT)  Draggings_modules/dragging_prescr_beta_mod.f90
+dragging_prescr_beta_buoyency_mod.o : Draggings_modules/dragging_prescr_beta_buoyency_mod.f90
+        $(FT)  Draggings_modules/dragging_prescr_beta_buoyency_mod.f90
+dragging_prescr_beta_nolin_mod.o : Draggings_modules/dragging_prescr_beta_nolin_mod.f90
+        $(FT)  Draggings_modules/dragging_prescr_beta_nolin_mod.f90
+beta_iter_vitbil_mod.o : Draggings_modules/beta_iter_vitbil_mod.f90
+        $(FT)  Draggings_modules/beta_iter_vitbil_mod.f90
+dragging_stream_impose_vitbil_mod.o : Ant40_files/dragging_stream_impose_vitbil_mod.f90
+        $(FT) Ant40_files/dragging_stream_impose_vitbil_mod.f90
+dragging-vit_bil_LBq_gen_mod.o  : Antarctique_general_files/dragging-vit_bil_LBq_gen_mod.f90
+        $(FT)  Antarctique_general_files/dragging-vit_bil_LBq_gen_mod.f90
+dragging-vit_bil_CISM_gen_mod.o : Antarctique_general_files/dragging-vit_bil_CISM_gen_mod.f90
+        $(FT) Antarctique_general_files/dragging-vit_bil_CISM_gen_mod.f90
+dragging_neem_mod.o : Greeneem_files/dragging_neem_mod.f90
+        $(FT) Greeneem_files/dragging_neem_mod.f90
+dragging-vit_bil_CISM_15_mod.o : Ant15_CISM_files/dragging-vit_bil_CISM_15_mod.f90
+        $(FT) Ant15_CISM_files/dragging-vit_bil_CISM_15_mod.f90
+dragging-vit_bil_CISM_45_mod.o : Ant45_CISM_files/dragging-vit_bil_CISM_45_mod.f90
+        $(FT) Ant45_CISM_files/dragging-vit_bil_CISM_45_mod.f90
+prop-therm-Heino_mod.o : Heino_files/prop-therm-Heino_mod.f90
+        $(FT) Heino_files/prop-therm-Heino_mod.f90
+calving_frange.o : calving_frange.f90
+        $(FT) calving_frange.f90
+no_calving.o : no_calving.f90
+        $(FT) no_calving.f90
+track_heino_mod.o : Heino_files/track_heino_mod.f90
+        $(FT) Heino_files/track_heino_mod.f90
+track_ant40_mod.o : Ant40_files/track_ant40_mod.f90
+        $(FT) Ant40_files/track_ant40_mod.f90
+track_greenmint_mod.o : Greenmint40_files/track_greenmint_mod.f90
+        $(FT) Greenmint40_files/track_greenmint_mod.f90
+track_greeneem_mod.o : Greeneem_files/track_greeneem_mod.f90
+        $(FT) Greeneem_files/track_greeneem_mod.f90
+track_gsearise_mod.o : Gsearise_files/track_gsearise_mod.f90
+        $(FT) Gsearise_files/track_gsearise_mod.f90
+#------- modules de resolution equations
+relaxation_mod-0.3.o : relaxation_mod-0.3.f90
+        $(FT) relaxation_mod-0.3.f90
+relaxation_water_mod-0.4.o : relaxation_water_mod-0.4.f90
+        $(FT) relaxation_water_mod-0.4.f90
+relaxation_water_diffusion.o : relaxation_water_diffusion.f90
+        $(FT) relaxation_water_diffusion.f90
+tridiag_mod-0.3.o : tridiag_mod-0.3.f90
+        $(FT) tridiag_mod-0.3.f90
+resol_adv_diff_2D.o : resol_adv_diff_2D.f90
+        $(FT) resol_adv_diff_2D.f90
+resol_adv_diff_2D-juin2009.o : resol_adv_diff_2D-juin2009.f90
+        $(FT) resol_adv_diff_2D-juin2009.f90
+resol_adv_diff_2D-sept2009.o : resol_adv_diff_2D-sept2009.f90
+        $(FT) resol_adv_diff_2D-sept2009.f90
+#conserv-mass-adv-diff_mod.o : conserv-mass-adv-diff_mod.f90
+#       $(FT) conserv-mass-adv-diff_mod.f90
+#precribe-H_mod.o : precribe-H_mod.f90   old version + mauvais nom
+#       $(FT)  precribe-H_mod.f90
+prescribe-H_mod.o : prescribe-H_mod.f90
+        $(FT)  prescribe-H_mod.f90
+prescribe-H-i2s_mod.o : prescribe-H-i2s_mod.f90
+        $(FT) prescribe-H-i2s_mod.f90
+#conserv-mass-adv-diff_juin2009_mod.o : conserv-mass-adv-diff_juin2009_mod.f90
+#       $(FT) conserv-mass-adv-diff_juin2009_mod.f90
+conserv-mass-adv-diff_sept2009_mod.o : conserv-mass-adv-diff_sept2009_mod.f90
+        $(FT) conserv-mass-adv-diff_sept2009_mod.f90
+# ---------  spinup
+spinup_mod.o : spinup_mod.f90
+        $(FT) spinup_mod.f90
+no_spinup_mod.o : no_spinup_mod.f90
+        $(FT) no_spinup_mod.f90
+#-------------Output
+out_horiz_mod.o : out_horiz_mod.f90
+        $(FT) out_horiz_mod.f90
+out_profile_mod.o : out_profile_mod.f90
+        $(FT) out_profile_mod.f90
+output_anta_mod-0.4.o : Antarctique_general_files/output_anta_mod-0.4.f90
+        $(FT) Antarctique_general_files/output_anta_mod-0.4.f90
+output_anta40_mod-0.4.o : Ant40_files/output_anta40_mod-0.4.f90
+        $(FT) Ant40_files/output_anta40_mod-0.4.f90
+output_global_mod.o :output_global_mod.f90
+        $(FT) output_global_mod.f90
+output_green_mod-0.4.o : Greenmint40_files/output_green_mod-0.4.f90
+        $(FT) Greenmint40_files/output_green_mod-0.4.f90
+output_greeneem_mod-0.4.o : Greeneem_files/output_greeneem_mod-0.4.f90
+        $(FT) Greeneem_files/output_greeneem_mod-0.4.f90
+output_gsearise_mod-0.4.o : Gsearise_files/output_gsearise_mod-0.4.f90
+        $(FT) Gsearise_files/output_gsearise_mod-0.4.f90
+output_heino_mod.o : Heino_files/output_heino_mod.f90
+        $(FT) Heino_files/output_heino_mod.f90
+output_nord_mod-0.4.o : Heminord_files/output_nord_mod-0.4.f90
+        $(FT) Heminord_files/output_nord_mod-0.4.f90
+output_Grice2sea_mod.o : GrIce2sea_files/output_Grice2sea_mod.f90
+        $(FT)  GrIce2sea_files/output_Grice2sea_mod.f90
+out_cptr_mod.o : out_cptr_mod.f90
+        $(F_NETCDF) out_cptr_mod.f90
+util_recovery.o : util_recovery.f90
+        $(FT) util_recovery.f90
+printtable_mod.o : printtable_mod.f90
+        $(FT) printtable_mod.f90
+# modules "fake" pour compatibilite
+#----------------------------------
+fake-routines-Heino_mod.o : Heino_files/fake-routines-Heino_mod.f90
+        $(FT) Heino_files/fake-routines-Heino_mod.f90
+fake-routines-ant_mod.o : Antarctique_general_files/fake-routines-ant_mod.f90
+        $(FT) Antarctique_general_files/fake-routines-ant_mod.f90
+fake-routines-greenmint_mod.o : Greenmint40_files/fake-routines-greenmint_mod.f90
+        $(FT) Greenmint40_files/fake-routines-greenmint_mod.f90
+fake-routines-greeneem_mod.o : Greeneem_files/fake-routines-greeneem_mod.f90
+        $(FT) Greeneem_files/fake-routines-greeneem_mod.f90
+fake-routines-gsearise_mod.o : Gsearise_files/fake-routines-gsearise_mod.f90
+        $(FT) Gsearise_files/fake-routines-gsearise_mod.f90
+fake-routines-nord_mod.o : Heminord_files/fake-routines-nord_mod.f90
+        $(FT) Heminord_files/fake-routines-nord_mod.f90
+fake-routines_Grice2sea_mod.o : GrIce2sea_files/fake-routines_Grice2sea_mod.f90
+        $(FT) GrIce2sea_files/fake-routines_Grice2sea_mod.f90
+# modules choix pour selectionner les modules physiques
+#--------------------------------------------------------
+module_choix-heino-0.4.o : Heino_files/module_choix-heino-0.4.f90
+        $(FT)  Heino_files/module_choix-heino-0.4.f90
+module_choix-heminord-0.4.o : Heminord_files/module_choix-heminord-0.4.f90
+        $(FT)  Heminord_files/module_choix-heminord-0.4.f90
+module_choix-antar40-0.4.o : Ant40_files/module_choix-antar40-0.4.f90
+        $(FT)  Ant40_files/module_choix-antar40-0.4.f90
+module_choix_antar15_LBq.o : ANT15-LBq_files/module_choix_antar15_LBq.f90
+        $(FT) ANT15-LBq_files/module_choix_antar15_LBq.f90
+module_choix_antar15CISM.o : Ant15_CISM_files/module_choix_antar15CISM.f90
+        $(FT) Ant15_CISM_files/module_choix_antar15CISM.f90
+module_choix_antar20CISM.o : Ant20_CISM_files/module_choix_antar20CISM.f90
+        $(FT) Ant20_CISM_files/module_choix_antar20CISM.f90
+module_choix_antar25CISM.o : Ant25_CISM_files/module_choix_antar25CISM.f90
+        $(FT) Ant25_CISM_files/module_choix_antar25CISM.f90
+module_choix_antar45CISM.o : Ant45_CISM_files/module_choix_antar45CISM.f90
+        $(FT) Ant45_CISM_files/module_choix_antar45CISM.f90
+module_choix-antar40-0.4_old.o : Ant40_files/module_choix-antar40-0.4_old.f90
+        $(FT)  Ant40_files/module_choix-antar40-0.4_old.f90
+module_choix-greenmint-40.o : Greenmint40_files/module_choix-greenmint-40.f90
+        $(FT) Greenmint40_files/module_choix-greenmint-40.f90
+module_choix-greeneem.o : Greeneem_files/module_choix-greeneem.f90
+        $(FT) Greeneem_files/module_choix-greeneem.f90
+module_choix-gsearise.o : Gsearise_files/module_choix-gsearise.f90
+        $(FT) Gsearise_files/module_choix-gsearise.f90
+module_choix_GrIce2sea.o : GrIce2sea_files/module_choix_GrIce2sea.f90
+        $(FT) GrIce2sea_files/module_choix_GrIce2sea.f90
+# Routines pour MISMIP
+#-----------------------
+climat-mismip3d_mod.o : MISMIP3D_files/climat-mismip3d_mod.f90
+        $(FT) MISMIP3D_files/climat-mismip3d_mod.f90
+dragging_mismip3d_mod.o : MISMIP3D_files/dragging_mismip3d_mod.f90
+        $(FT) MISMIP3D_files/dragging_mismip3d_mod.f90
+fake-routines-mismip3d_mod.o : MISMIP3D_files/fake-routines-mismip3d_mod.f90
+        $(FT) MISMIP3D_files/fake-routines-mismip3d_mod.f90
+lect-mismip3d_mod.o : MISMIP3D_files/lect-mismip3d_mod.f90
+        $(F_NETCDF) MISMIP3D_files/lect-mismip3d_mod.f90
+geography-Mismip3d.o : MISMIP3D_files/geography-Mismip3d.f90
+        $(FT) MISMIP3D_files/geography-Mismip3d.f90
+paradim_mismip3D_5km_mod.o : MISMIP3D_files/paradim_mismip3D_5km_mod.f90
+        $(FT)  MISMIP3D_files/paradim_mismip3D_5km_mod.f90
+module_choix_mismip3d.o : MISMIP3D_files/module_choix_mismip3d.f90
+        $(F_NETCDF) MISMIP3D_files/module_choix_mismip3d.f90
+# Routines specifiques du programme : par ordre alphabetique
+#-----------------------------------
+tracebug.o : tracebug.f90
+        $(FT) tracebug.f90
+ablation-0.2.o : ablation-0.2.f #module3d.mod
+        $(FT) ablation-0.2.f
+ablation_bord.o : ablation_bord.f90
+        $(FT) ablation_bord.f90
+accum7.o : accum7.f
+        $(FT) accum7.f
+bmelt-grounded.o : bmelt-grounded.f90
+        $(FT) bmelt-grounded.f90
+calceps2-0.2.o : calceps2-0.2.f #module3d.mod
+        $(FT) calceps2-0.2.f
+courbures.o : courbures.f90
+        $(FT) courbures.f90
+detect-assym.o : Heino_files/detect-assym.f90
+        $(FT) Heino_files/detect-assym.f90
+diagno-ant-0.6_mod.o : diagno-ant-0.6_mod.f90
+        $(FT) diagno-ant-0.6_mod.f90
+diffusiv-polyn-0.5.o : diffusiv-polyn-0.5.f90 #module3d.mod
+        $(FT) diffusiv-polyn-0.5.f90
+diffusiv-polyn-0.6.o : diffusiv-polyn-0.6.f90 #module3d.mod
+        $(FT) diffusiv-polyn-0.6.f90
+eaubasale-0.5_mod.o : eaubasale-0.5_mod.f90
+        $(FT) eaubasale-0.5_mod.f90
+firstoutput-0.2.o : firstoutput-0.2.f #module3d.mod
+        $(FT) firstoutput-0.2.f
+#flottab2-0.6.o : flottab2-0.6.f90 #module3d.mod
+#       $(FT) flottab2-0.6.f90
+flottab2-0.7.o : flottab2-0.7.f90 #module3d.mod
+        $(FT) flottab2-0.7.f90
+#flottab2-0.5-heino.o : Heino_files/flottab2-0.5-heino.f90 #module3d.mod
+#       $(FT) Heino_files/flottab2-0.5-heino.f90
+flottab-rescue-1.o : flottab-rescue-1.f90 #module3d.mod
+        $(FT) flottab-rescue-1.f90
+flowlaw-0.3.o : flowlaw-0.3.f90 #module3d.mod
+        $(FT) flowlaw-0.3.f90
+flow_general-0.3.o : flow_general-0.3.f90 #module3d.mod deform_declar.mod
+        $(FT) flow_general-0.3.f90
+initial-heino-phy.o : Heino_files/initial-heino-phy.f90
+        $(FT) Heino_files/initial-heino-phy.f90
+no-icethick.o : no-icethick.f90  #module3d.mod
+        $(FT) no-icethick.f90
+initial-0.3.o : initial-0.3.f90
+        $(F_NETCDF) initial-0.3.f90
+#initial-phy-2.o : initial-phy-2.f90  #module3d.mod iso_declar.mod
+#       $(FT) initial-phy-2.f90
+initial2-0.4.o : initial2-0.4.f90  #module3d.mod iso_declar.mod
+        $(FT) initial2-0.4.f90
+inputfile-vec-0.5.o : inputfile-vec-0.5.f90#module3d.mod
+        $(FT) inputfile-vec-0.5.f90
+lastoutput-0.2.o : lastoutput-0.2.f#module3d.mod
+        $(FT) lastoutput-0.2.f
+lect-eis.o : lect-eis.f90
+        $(FT) lect-eis.f90
+lect_datfile.o : lect_datfile.f90
+        $(FT) lect_datfile.f90
+write_datfile.o : write_datfile.f90
+        $(FT) write_datfile.f90
+limit_file.o : limit_file.f90
+        $(FT) limit_file.f90
+lineartemp-0.2.o : lineartemp-0.2.f90
+        $(FT) lineartemp-0.2.f90
+litho-0.3.o : litho-0.3.f90#module3d.mod iso_declar.mod
+        $(FT) litho-0.3.f90
+litho-0.4.o : litho-0.4.f90#module3d.mod iso_declar.mod
+        $(FT) litho-0.4.f90
+main3D-0.4-40km.o : main3D-0.4-40km.f90 #module3d.mod iso_declar.mod
+        $(F_NETCDF) main3D-0.4-40km.f90
+main_dummy.o : main_dummy.f90
+        $(F_NETCDF) main_dummy.f90
+masque-0.2.o : masque-0.2.F#module3d.mod
+        $(FT) masque-0.2.F
+masque.o : masque.f90
+        $(FT) masque.f90
+massb-grice2sea_perturb_Tparam.o : GrIce2sea_files/massb-grice2sea_perturb_Tparam.f90
+        $(FT) GrIce2sea_files/massb-grice2sea_perturb_Tparam.f90
+massb-ant_perturb_Tparam.o : Antarctique_general_files/massb-ant_perturb_Tparam.f90
+        $(FT) Antarctique_general_files/massb-ant_perturb_Tparam.f90
+massbal-anteis-0.2.o : Ant40_files/massbal-anteis-0.2.f#module3d.mod
+        $(FT) Ant40_files/massbal-anteis-0.2.f
+massb_perturb_Tparam_green.o : Greenmint40_files/massb_perturb_Tparam_green.f90
+        $(FT) Greenmint40_files/massb_perturb_Tparam_green.f90
+massb_perturb_Tparam_greeneem.o : Greeneem_files/massb_perturb_Tparam_greeneem.f90
+        $(FT) Greeneem_files/massb_perturb_Tparam_greeneem.f90
+massb_perturb_Tparam_gsearise.o : Gsearise_files/massb_perturb_Tparam_gsearise.f90
+        $(FT) Gsearise_files/massb_perturb_Tparam_gsearise.f90
+massb_perturb_mois.o : massb_perturb_mois.f90
+        $(FT) massb_perturb_mois.f90
+massb_perturb_mois_lapsecouche.o : massb_perturb_mois_lapsecouche.f90
+        $(FT) massb_perturb_mois_lapsecouche.f90
+massb-GrIce2sea_fixe.o : GrIce2sea_files/massb-GrIce2sea_fixe.f90
+        $(FT) GrIce2sea_files/massb-GrIce2sea_fixe.f90
+massb-GrIce2sea_RCM.o : GrIce2sea_files/massb-GrIce2sea_RCM.f90
+        $(FT) GrIce2sea_files/massb-GrIce2sea_RCM.f90
+minmax-format.o : minmax-format.f90
+        $(FT) minmax-format.f90
+mix-SIA-L1_mod.o : mix-SIA-L1_mod.f90
+        $(FT) mix-SIA-L1_mod.f90
+moy_mxmy_shift.o : moy_mxmy_shift.f90
+        $(FT) moy_mxmy_shift.f90
+moy_mxmy.o : moy_mxmy.f90
+        $(FT) moy_mxmy.f90
+neffect-0.3.o : neffect-0.3.f90 #module3d.mod
+        $(FT) neffect-0.3.f90
+neffect-0.4.o : neffect-0.4.f90 #module3d.mod
+        $(FT) neffect-0.4.f90
+new-flot-0.3.o : new-flot-0.3.f90#module3d.mod
+        $(FT) new-flot-0.3.f90
+next-time.o : next-time.f90
+        $(FT) next-time.f90
+#plotoutput.o : plotoutput.f#module3d.mod
+#       $(FT) plotoutput.f
+printdebug.o : printdebug.f90 #module3d.mod
+        $(FT) printdebug.f90
+remplimat-ant-0.5-40km.o : remplimat-ant-0.5-40km.f90 #module3d.mod eq_elliptique_mod.mod
+        $(FT) remplimat-ant-0.5-40km.f90
+sealevel-out.o : sealevel-out.f90#module3d.mod
+        $(FT) sealevel-out.f90
+snaptime.o : snaptime.f90
+        $(FT) snaptime.f90
+sortie-hz-multivar.o : sortie-hz-multivar.f90
+        $(FT) sortie-hz-multivar.f90
+strain_rate.o : strain_rate.f90#module3d.mod
+        $(FT) strain_rate.f90
+surface-0.3.o : surface-0.3.f90#module3d.mod
+        $(FT) surface-0.3.f90
+slope_surf.o : slope_surf.f90
+        $(FT) slope_surf.f90
+tab-litho-0.3.o : tab-litho-0.3.f90#module3d.mod iso_declar.mod
+        $(FT) tab-litho-0.3.f90
+taubed-0.3.o : taubed-0.3.f90#module3d.mod iso_declar.mod
+        $(FT) taubed-0.3.f90
+#ts-output-0.2.o : ts-output-0.2.f
+#       $(FT) ts-output-0.2.f
+velocities-polyn-0.3.o : velocities-polyn-0.3.f90     #module3d.mod
+        $(FT) velocities-polyn-0.3.f90
+vtoutput-0.2.o : vtoutput-0.2.f#module3d.mod
+        $(FT) vtoutput-0.2.f
+# Routines Hudson :
+paradim-hudson_mod.o : Hudson_files/paradim-hudson_mod.f90
+        $(FT)  Hudson_files/paradim-hudson_mod.f90
+geography-hudson_mod.o : Hudson_files/geography-hudson_mod.f90
+        $(FT)  Hudson_files/geography-hudson_mod.f90
+sedim_declar_hudson_mod.o : Hudson_files/sedim_declar_hudson_mod.f90
+        $(FT)  Hudson_files/sedim_declar_hudson_mod.f90
+eaubasale-0.5_hudson_mod.o : Hudson_files/eaubasale-0.5_hudson_mod.f90
+        $(FT)  Hudson_files/eaubasale-0.5_hudson_mod.f90
+climat-hudson_mod.o : Hudson_files/climat-hudson_mod.f90
+        $(FT)  Hudson_files/climat-hudson_mod.f90
+lect-hudson_mod.o : Hudson_files/lect-hudson_mod.f90
+        $(FT)  Hudson_files/lect-hudson_mod.f90
+fake-routines-hudson_mod.o : Hudson_files/fake-routines-hudson_mod.f90
+        $(FT)  Hudson_files/fake-routines-hudson_mod.f90
+prop-therm-hudson_mod.o : Hudson_files/prop-therm-hudson_mod.f90
+        $(FT)  Hudson_files/prop-therm-hudson_mod.f90
+sliding-hudson_mod.o : Hudson_files/sliding-hudson_mod.f90
+        $(FT)  Hudson_files/sliding-hudson_mod.f90
+fake-dragging-hudson_mod.o : Hudson_files/fake-dragging-hudson_mod.f90
+        $(FT)  Hudson_files/fake-dragging-hudson_mod.f90
+dragging_hudson_jorge_mod.o : Hudson_files/dragging_hudson_jorge_mod.f90
+        $(FT)  Hudson_files/dragging_hudson_jorge_mod.f90
+dragging-hudson_mod.o : Hudson_files/dragging-hudson_mod.f90
+        $(FT)  Hudson_files/dragging-hudson_mod.f90
+dragging_hwatermax_hudson_mod.o : Hudson_files/dragging_hwatermax_hudson_mod.f90
+        $(FT)  Hudson_files/dragging_hwatermax_hudson_mod.f90
+bmelt_hudson_mod.o : Hudson_files/bmelt_hudson_mod.f90
+        $(FT)  Hudson_files/bmelt_hudson_mod.f90
+initial-hudson-phy.o : Hudson_files/initial-hudson-phy.f90
+        $(FT)  Hudson_files/initial-hudson-phy.f90
+output_hudson_mod.o : Hudson_files/output_hudson_mod.f90
+        $(FT)  Hudson_files/output_hudson_mod.f90
+module_choix-hudson-0.4.o : Hudson_files/module_choix-hudson-0.4.f90
+        $(FT)  Hudson_files/module_choix-hudson-0.4.f90
+track_hudson_mod.o : Hudson_files/track_hudson_mod.f90
+        $(FT) Hudson_files/track_hudson_mod.f90
+# Routines Hemin-40 :
+paradim-hemin40_mod.o : Hemin40_files/paradim-hemin40_mod.f90
+        $(FT) Hemin40_files/paradim-hemin40_mod.f90
+geography-hemin40_mod.o : Hemin40_files/geography-hemin40_mod.f90
+        $(FT) Hemin40_files/geography-hemin40_mod.f90
+output_hemin40_mod.o : Hemin40_files/output_hemin40_mod.f90
+        $(FT) Hemin40_files/output_hemin40_mod.f90
+lect-hemin40_mod.o : Hemin40_files/lect-hemin40_mod.f90
+        $(FT) Hemin40_files/lect-hemin40_mod.f90
+bmelt-hemin40-regions_mod.o : Hemin40_files/bmelt-hemin40-regions_mod.f90
+        $(FT) Hemin40_files/bmelt-hemin40-regions_mod.f90
+bmelt-hemin40-depth_mod.o : Hemin40_files/bmelt-hemin40-depth_mod.f90
+        $(FT) Hemin40_files/bmelt-hemin40-depth_mod.f90
+fake-routines-hemin40_mod.o : Hemin40_files/fake-routines-hemin40_mod.f90
+        $(FT) Hemin40_files/fake-routines-hemin40_mod.f90
+module_choix-hemin40-0.4.o : Hemin40_files/module_choix-hemin40-0.4.f90
+        $(FT) Hemin40_files/module_choix-hemin40-0.4.f90
+track_hemin40_mod.o : Hemin40_files/track_hemin40_mod.f90
+        $(FT) Hemin40_files/track_hemin40_mod.f90
+# Routines Hemin-15 :
+paradim-hemin15_mod.o : Hemin15_files/paradim-hemin15_mod.f90
+        $(FT) Hemin15_files/paradim-hemin15_mod.f90
+geography-hemin15_mod.o : Hemin15_files/geography-hemin15_mod.f90
+        $(FT) Hemin15_files/geography-hemin15_mod.f90
+lect-hemin15_mod.o : Hemin15_files/lect-hemin15_mod.f90
+        $(FT) Hemin15_files/lect-hemin15_mod.f90
+fake-routines-hemin15_mod.o : Hemin15_files/fake-routines-hemin15_mod.f90
+        $(FT) Hemin15_files/fake-routines-hemin15_mod.f90
+module_choix-hemin15.o : Hemin15_files/module_choix-hemin15.f90
+        $(FT) Hemin15_files/module_choix-hemin15.f90
+track_hemin15_mod.o : Hemin15_files/track_hemin15_mod.f90
+        $(FT) Hemin15_files/track_hemin15_mod.f90
+# routines Eurasie-40
+output_eurasie40_mod-0.1.o : Eurasie40_files/output_eurasie40_mod-0.1.f90
+        $(FT) Eurasie40_files/output_eurasie40_mod-0.1.f90
+lect-clim-act-eurasie_mod.o : Eurasie40_files/lect-clim-act-eurasie_mod.f90
+        $(FT) Eurasie40_files/lect-clim-act-eurasie_mod.f90
+climat-forcage-eurasie_mod-0.4.o : Eurasie40_files/climat-forcage-eurasie_mod-0.4.f90
+        $(FT) Eurasie40_files/climat-forcage-eurasie_mod-0.4.f90
+fake-routines-eurasie_mod.o : Eurasie40_files/fake-routines-eurasie_mod.f90
+        $(FT) Eurasie40_files/fake-routines-eurasie_mod.f90
+module_choix-eurasie-0.4.o : Eurasie40_files/module_choix-eurasie-0.4.f90
+        $(FT) Eurasie40_files/module_choix-eurasie-0.4.f90
+track_eurasie_mod.o : Eurasie40_files/track_eurasie_mod.f90
+        $(FT) Eurasie40_files/track_eurasie_mod.f90
+# routines greenmint-40
+# Routines Temperature
+icetemp_declar_mod.o : Temperature-routines/icetemp_declar_mod.f90
+        $(FT) Temperature-routines/icetemp_declar_mod.f90
+advec_icetemp.o :  Temperature-routines/advec_icetemp.f90
+        $(FT) Temperature-routines/advec_icetemp.f90
+icetemp_mod.o :  Temperature-routines/icetemp_mod.f90
+        $(FT) Temperature-routines/icetemp_mod.f90
+prop_th_icetemp.o:  Temperature-routines/prop_th_icetemp.f90
+        $(FT) Temperature-routines/prop_th_icetemp.f90
+Qprod_icetemp.o:  Temperature-routines/Qprod_icetemp.f90
+        $(FT) Temperature-routines/Qprod_icetemp.f90
+temp_col.o :  Temperature-routines/temp_col.f90
+        $(FT) Temperature-routines/temp_col.f90
+# Routines Agrif
+#open_file.o : open_file.f90
+#       $(FT) open_file.f90
+step.o : step.f90
+        $(F_NETCDF) step.f90
+steps_time_loop.o : steps_time_loop.f90
+        $(F_NETCDF) steps_time_loop.f90
+steps_time_loop_avec_iterbeta.o : steps_time_loop_avec_iterbeta.f90
+        $(F_NETCDF) steps_time_loop_avec_iterbeta.f90
+# nouvelles routines resolution equation elliptique
+remplimat_declar_tabTu_mod.o : New-remplimat/remplimat_declar_tabTu_mod.f90
+        $(FT) New-remplimat/remplimat_declar_tabTu_mod.f90
+diagno-L2_mod.o : New-remplimat/diagno-L2_mod.f90
+        $(FT) New-remplimat/diagno-L2_mod.f90
+fake_diagno_mod.o : New-remplimat/fake_diagno_mod.f90
+        $(FT) New-remplimat/fake_diagno_mod.f90
+remplimat-shelves-tabTu.o : New-remplimat/remplimat-shelves-tabTu.f90
+        $(FT) New-remplimat/remplimat-shelves-tabTu.f90
+eq_ellipt_sgbsv_mod-0.2.o : New-remplimat/eq_ellipt_sgbsv_mod-0.2.f90
+        $(FT) New-remplimat/eq_ellipt_sgbsv_mod-0.2.f90
+graphique_L2.o : New-remplimat/graphique_L2.f90
+        $(FT) New-remplimat/graphique_L2.f90
+graph-sgbsv.o : New-remplimat/graph-sgbsv.f90
+        $(FT) New-remplimat/graph-sgbsv.f90
+# LAPACK
+reduc.o : LAPACK/reduc.f
+        $(FT) $(F_90) LAPACK/reduc.f
+band.o: LAPACK/band.f
+        $(FT) $(F_90) LAPACK/band.f
+ifeq ($(mkl_c), 0)
+#BLAS
+isamax.o : BLAS/isamax.f
+        $(FT)  BLAS/isamax.f
+lsame.o : BLAS/lsame.f
+        $(FT) BLAS/lsame.f
+scopy.o: BLAS/scopy.f
+        $(FT) BLAS/scopy.f
+slamch.o: BLAS/slamch.f
+        $(FT) BLAS/slamch.f
+slabad.o: BLAS/slabad.f
+        $(FT) BLAS/slabad.f
+slange.o: BLAS/slange.f
+        $(FT) BLAS/slange.f
+slassq.o: BLAS/slassq.f
+        $(FT) BLAS/slassq.f
+sgeqrf.o: BLAS/sgeqrf.f
+        $(FT) BLAS/sgeqrf.f
+sormqr.o: BLAS/sormqr.f
+        $(FT) BLAS/sormqr.f
+strmv.o: BLAS/strmv.f
+        $(FT) BLAS/strmv.f
+slarft.o: BLAS/slarft.f
+        $(FT) BLAS/slarft.f
+ilaslr.o: BLAS/ilaslr.f
+        $(FT) BLAS/ilaslr.f
+ilaslc.o: BLAS/ilaslc.f
+        $(FT) BLAS/ilaslc.f
+strmm.o: BLAS/strmm.f
+        $(FT) BLAS/strmm.f
+slarfb.o: BLAS/slarfb.f
+        $(FT) BLAS/slarfb.f
+slapy2.o: BLAS/slapy2.f
+        $(FT) BLAS/slapy2.f
+slarfg.o: BLAS/slarfg.f
+        $(FT) BLAS/slarfg.f
+slarf.o: BLAS/slarf.f
+        $(FT) BLAS/slarf.f
+sgeqr2.o: BLAS/sgeqr2.f
+        $(FT) BLAS/sgeqr2.f
+saxpy.o: BLAS/saxpy.f
+        $(FT) BLAS/saxpy.f
+slarz.o: BLAS/slarz.f
+        $(FT) BLAS/slarz.f
+sorm2r.o: BLAS/sorm2r.f
+        $(FT) BLAS/sorm2r.f
+snrm2.o: BLAS/snrm2.f
+        $(FT) BLAS/snrm2.f
+slaqps.o: BLAS/slaqps.f
+        $(FT) BLAS/slaqps.f
+slaqp2.o: BLAS/slaqp2.f
+        $(FT) BLAS/slaqp2.f
+sgeqp3.o: BLAS/sgeqp3.f
+        $(FT) BLAS/sgeqp3.f
+slaset.o: BLAS/slaset.f
+        $(FT) BLAS/slaset.f
+slaisnan.o: BLAS/slaisnan.f
+        $(FT) BLAS/slaisnan.f
+sisnan.o: BLAS/sisnan.f
+        $(FT) BLAS/sisnan.f
+slascl.o: BLAS/slascl.f
+        $(FT) BLAS/slascl.f
+sdot.o: BLAS/sdot.f
+        $(FT) BLAS/sdot.f
+slaic1.o: BLAS/slaic1.f
+        $(FT) BLAS/slaic1.f
+slarzb.o: BLAS/slarzb.f
+        $(FT) BLAS/slarzb.f
+slarzt.o: BLAS/slarzt.f
+        $(FT) BLAs/slarzt.f
+sormr3.o: BLAS/sormr3.f
+        $(FT) BLAS/sormr3.f
+sormrz.o: BLAS/sormrz.f
+        $(FT) BLAS/sormrz.f
+slatrz.o: BLAS/slatrz.f
+        $(FT) BLAS/slatrz.f
+stzrzf.o: BLAS/stzrzf.f
+        $(FT) BLAS/stzrzf.f
+sgelsy.o: BLAS/sgelsy.f
+        $(FT) BLAS/sgelsy.f
+sgbmv.o: BLAS/sgbmv.f
+        $(FT) BLAS/sgbmv.f
+sgemm.o: BLAS/sgemm.f
+        $(FT) BLAS/sgemm.f
+sgemv.o: BLAS/sgemv.f
+        $(FT) BLAS/sgemv.f
+sger.o: BLAS/sger.f
+        $(FT) BLAS/sger.f
+sscal.o: BLAS/sscal.f
+        $(FT) BLAS/sscal.f
+sswap.o: BLAS/sswap.f
+        $(FT) BLAS/sswap.f
+stbsv.o: BLAS/stbsv.f
+        $(FT) BLAS/stbsv.f
+strsm.o: BLAS/strsm.f
+        $(FT) BLAS/strsm.f
+xerbla.o: BLAS/xerbla.f
+        $(FT) BLAS/xerbla.f
+endif
+# routines netcdf
+io_netcdf.o: Netcdf-routines/io_netcdf.f90
+        $(F_NETCDF) Netcdf-routines/io_netcdf.f90
+sortie_netcdf_GRISLI_mod.0.2.o : Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2.f90
+        $(F_NETCDF) Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2.f90
+# Hassine
+io_netcdf_GRISLI.o: Netcdf-routines/io_netcdf_GRISLI.f90
+        $(F_NETCDF) Netcdf-routines/io_netcdf_GRISLI.f90
+sortie_netcdf_GRISLI_mod.0.2-hassine.o : Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90
+        $(F_NETCDF) Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90
+readinput.o: readinput.f90
+        $(F_NETCDF) readinput.f90
+interface_input.o: interface_input.f90
+        $(FT) interface_input.f90
+# routines et modules recul de ligne d'echouage ice2sea
+proto_declar_3D_grisli_mod.o : Recul_force_grounding_line/proto_declar_3D_grisli_mod.f90
+        $(FT) Recul_force_grounding_line/proto_declar_3D_grisli_mod.f90
+declar_proto_recul.o : Recul_force_grounding_line/declar_proto_recul.f90
+        $(FT) Recul_force_grounding_line/declar_proto_recul.f90
+proto_recul_mod.o : Recul_force_grounding_line/proto_recul_mod.f90
+        $(FT) Recul_force_grounding_line/proto_recul_mod.f90
+declar_io_ncdf_proto_mod.o : Recul_force_grounding_line/declar_io_ncdf_proto_mod.f90
+        $(FT) Recul_force_grounding_line/declar_io_ncdf_proto_mod.f90
+#       $(FT) -I$(NDC_INC) Netcdf-routines/sortie_netcdf_GRISLI_mod.f90
+# routines et modules recul de ligne d'echouage ice2sea version toy (finale)
+toy_declar_3D_grisli_mod.o : Recul_force_grounding_line/toy_declar_3D_grisli_mod.f90
+        $(FT) Recul_force_grounding_line/toy_declar_3D_grisli_mod.f90
+declar_io_ncdf_toy_mod_fake.o : Recul_force_grounding_line/declar_io_ncdf_toy_mod_fake.f90
+        $(FT) Recul_force_grounding_line/declar_io_ncdf_toy_mod_fake.f90
+declar_toy_retreat.o : Recul_force_grounding_line/declar_toy_retreat.f90
+        $(FT) Recul_force_grounding_line/declar_toy_retreat.f90
+toy_retreat_mod.o  : Recul_force_grounding_line/toy_retreat_mod.f90
+        $(F_NETCDF) Recul_force_grounding_line/toy_retreat_mod.f90
+# Hemin40_files :
+%.o: Hemin40_files/%.f90
+        $(FT) $(NCDF_INC) -c Hemin40_files/$*.f90
+# Hemin15_files
+%.o: Hemin15_files/%.f90
+        $(FT) $(NCDF_INC) -c Hemin15_files/$*.f90
+# Antarctique_general_files
+%.o: Antarctique_general_files/%.f90
+        $(FT) $(NCDF_INC) -c Antarctique_general_files/$*.f90
+# GrIce2sea_files
+%.o: GrIce2sea_files/%.f90
+        $(FT) $(NCDF_INC) -c GrIce2sea_files/$*.f90
+# Ant40_files
+%.o: Ant40_files/%.f90
+        $(FT) $(NCDF_INC) -c Ant40_files/$*.f90
+# ANT15-LBq_files
+%.o: ANT15-LBq_files/%.f90
+        $(FT) $(NCDF_INC) -c ANT15-LBq_files/$*.f90
+# Greeneem_files/Greeneem15_files
+%.o: Greeneem_files/Greeneem15_files/%.f90
+        $(FT) $(NCDF_INC) -c Greeneem_files/Greeneem15_files/$*.f90
+# Greeneem_files
+%.o: Greeneem_files/%.f90
+        $(FT) $(NCDF_INC) -c Greeneem_files/$*.f90
+# Draggings_modules
+%.o: Draggings_modules/%.f90
+        $(FT) $(NCDF_INC) -c Draggings_modules/$*.f90
+# Snowball_files
+%.o: Snowball_files/%.f90
+        $(FT) $(NCDF_INC) -c Snowball_files/$*.f90
+# subroutines communes :
+%.o: %.f90
+        $(FT) $(NCDF_INC) -c $*.f90
+# New-remplimat :
+%.o : New-remplimat/%.f90
+        $(FT) $(NCDF_INC) -c New-remplimat/$*.f90
+# Netcdf-routines :
+%.o: Netcdf-routines/%.f90
+        $(FT) $(NCDF_INC) -c Netcdf-routines/$*.f90
+#toy_recul :
+%.o: Recul_force_grounding_line/%.f90
+        $(FT) $(NCDF_INC) -c Recul_force_grounding_line/$*.f90
+#Temperature :
+%.o : Temperature-routines/%.f90
+        $(FT) $(NCDF_INC) -c Temperature-routines/$*.f90
+# BLAS :
+%.o : BLAS/%.f
+        $(FT) -c BLAS/$*.f
+# Reduc et band:
+%.o : LAPACK/%.f
+        $(FT) -c LAPACK/$*.f
 # Liens et Construction des executables
 #---------------------------------------
+#       $(mod_clim_forcage) \ a mettre a la place de mod_clim_perturb eventuellement
+LBqAntar15 : $(Dim_ANT15-LBq) $(mod_dim_communs)  \
+        $(Proto_recul)  \
+        $(mod_communs) \
+        $(Proto_recul)  \
+        $(mod_clim_perturb)  \
+        $(mod_tracers) \
+Ant-15 : $(Dim_ANT15-LBq) $(mod_dim_communs) \
+        $(toy_recul) \
+        $(mod_communs) \
+        $(mod_clim_tof)  \
+        $(mod_no_tracers) \
         $(mod_ell) $(Liste_ANT15-LBq) \
         $(diagnoshelf) \
         $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques)
+        $(LK) -o ../bin/LBqAntar-15  $(Dim_ANT15-LBq) $(mod_dim_communs) \
+        $(Proto_recul)  \
+        $(mod_communs) \
+        $(mod_clim_perturb)  \
+        $(mod_tracers) \
+        $(mod_ell) \
+        $(Liste_ANT15-LBq) \
+        $(diagnoshelf) $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
+        $(LK) -o ../bin/Ant-15 \
+        $(Dim_ANT15-LBq) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof)  \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_ANT15-LBq) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
 Recul_ice2sea : $(Dim_ANT15-LBq) $(mod_dim_communs)  \
 …
         $(Liste_ANT15-LBq) \
         $(diagnoshelf) $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB)
 …
         $(mod_ell)  $(Liste_mismip_3D_5) \
         $(Liste_Netcdf) $(Liste_mismip_post_ncdf) $(diagnoshelf) \
         $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB)
 Grice2sea : $(Dim_GrIce2sea) $(mod_dim_communs)   \
 …
         $(diagnoshelf) \
         $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o $(routine_elliptiques)
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
         $(LK) -o ../bin/Grice2sea \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
 Grice2sea_iterbeta : $(Dim_GrIce2sea) $(mod_dim_communs)   \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop_avec_iterbeta.o \
+        $(routine_elliptiques)
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
         $(LK) -o ../bin/Grice2sea_iterbeta \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop_avec_iterbeta.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
 Hemin-40 : $(Dim_hemin40) $(mod_dim_communs) \
 …
         $(mod_communs) \
         $(mod_clim_tof) \
         $(mod_no_tracers) \
+        $(mod_tracers) \
         $(mod_ell) $(Liste_hemin40) \
         $(diagnoshelf) \
 …
         $(mod_communs) \
         $(mod_clim_tof) \
         $(mod_no_tracers) \
+        $(mod_tracers) \
         $(mod_ell) $(Liste_hemin40) \
         $(diagnoshelf) \
         $(Liste_Netcdf) \
         $(routines_communes) main_dummy.o steps_time_loop.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB) $(Liste_BLAS)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
         ar -cvr libgrisli.a $(Dim_hemin40) $(mod_dim_communs) \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques)
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
         $(LK) -o  ../bin/Hemin-15 \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
 Greeneem15 : $(Dim_greeneem15) $(mod_dim_communs) \
 …
         $(mod_communs) \
         $(mod_clim_tof) \
         $(mod_no_tracers) \
+        $(mod_tracers) \
         $(mod_ell) $(Liste_greeneem15) \
         $(diagnoshelf) \
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques)
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
         $(LK) -o ../bin/Greeneem15 \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
         $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
 Ant-40 : $(Dim_Ant40) $(mod_dim_communs) \
 …
         $(Liste_Netcdf) \
         $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB) $(Liste_BLAS)
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
+Snowball : $(Dim_Snowball) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_Snowball) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) \
+        $(Liste_BLAS)
+        $(LK) -o  ../bin/Snowball \
+        $(Dim_Snowball) $(mod_dim_communs) \
+        $(toy_recul)  \
+        $(mod_communs) \
+        $(mod_clim_tof) \
+        $(mod_no_tracers) \
+        $(mod_ell) $(Liste_Snowball) \
+        $(diagnoshelf) \
+        $(Liste_Netcdf) \
+        $(routines_communes) steps_time_loop.o \
+        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)
+clean   :
+        rm -f *.o *.mod *~  */*~ BLAS/*.o
 …
-# geographies obsoletes
-# listes
-#Liste_Antar15_CISM = lect-Ant_clim_CISM_gen_dat.o output_anta_mod-0.4.o \
-#       dragging-vit_bil_CISM_gen_mod.o fake-routines-ant_mod.o \
-#       lect-Ant_CISM_gen_dat.o module_choix_antar15CISM.o \
-#       massb-ant_forcage-0.4.o massb-ant_perturb_Tparam.o track_ant40_mod.o
-#Liste_Antar20_CISM = lect-Ant_clim_CISM_gen_dat.o output_anta_mod-0.4.o \
-#       dragging-vit_bil_CISM_gen_mod.o fake-routines-ant_mod.o \
-#       lect-Ant_CISM_gen_dat.o module_choix_antar20CISM.o \
-#       massb-ant_forcage-0.4.o massb-ant_perturb_Tparam.o track_ant40_mod.o
-#Liste_Antar25_CISM = lect-Ant_clim_CISM_gen_dat.o output_anta_mod-0.4.o \
-#       dragging-vit_bil_CISM_gen_mod.o fake-routines-ant_mod.o \
-#       lect-Ant_CISM_gen_dat.o module_choix_antar25CISM.o \
-#       massb-ant_forcage-0.4.o massb-ant_perturb_Tparam.o track_ant40_mod.o
-#Liste_Antar45_CISM = lect-Ant_clim_CISM_45_dat.o output_anta_mod-0.4.o \
-#       dragging-vit_bil_CISM_45_mod.o fake-routines-ant_mod.o \
-#       lect-Ant_CISM_45_dat.o module_choix_antar45CISM.o \
-#       massb-ant_forcage-0.4.o massb-ant_perturb_Tparam.o track_ant40_mod.o
-#Liste_HEINO = climat-heino_mod.o lect-Heino_mod.o  \
-#       fake-routines-Heino_mod.o  detect-assym.o  \
-#       prop-therm-Heino_mod.o  sliding-Heino_mod.o \
-#       initial-heino-phy.o  output_heino_mod.o \
-#       module_choix-heino-0.4.o  track_heino_mod.o
-#Antar20 : $(Dim_Antar20_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_Antar20_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o ../bin/Antar-20  $(Dim_Antar20_CISM) $(mod_dim_communs) $(mod_communs) \
-#        $(mod_ell) $(Liste_Antar20_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB)
-#Antar25 : $(Dim_Antar25_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_Antar25_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o ../bin/Antar-25  $(Dim_Antar25_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) \
-#       $(Liste_Antar25_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
-#Antar25-181 : $(Dim_Antar25_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_Antar25_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o ../bin-pc181/Antar-pc181  $(Dim_Antar25_CISM) $(mod_dim_communs) $(mod_communs) \
-#       $(mod_ell) $(Liste_Antar25_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
-#Antar45 : $(Dim_Antar45_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_Antar45_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o ../bin/Antar-45  $(Dim_Antar45_CISM)  $(mod_communs) $(mod_ell) $(Liste_Antar45_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
-#Liste_Antar_old =  bmelt-ant-regions_mod.o \
-#       lect-clim-act-anteis_mod.o  output_anta_mod-0.4.o \
-#       dragging_stream_impose_vitbil_mod.o  \
-#       fake-routines-ant_mod.o  lect-anteis_mod.o \
-#       module_choix-antar40-0.4_old.o massb-ant_forcage-0.4.o massb-ant_perturb-0.4.o \
-#       track_ant40_mod.o
-#Liste_Antar40 =  bmelt-ant-regions_mod.o \
-#       lect-clim-act-anteis_mod.o  output_anta_mod-0.4.o \
-#       dragging_stream_impose_vitbil_mod.o  \
-#       fake-routines-ant_mod.o  lect-anteis_mod.o \
-#       module_choix-antar40-0.4.o massb-ant_forcage-0.4.o massb-ant_perturb_Tparam.o \
-#       track_ant40_mod.o
-# listes de dimensionnement obsoletes
-# Dim_Antar40 = paradim-ant40_mod.o geography-ant40_mod.o
-# Dim_Antar15_CISM = paradim-ant15_CISM_mod.o geography-Ant15CISM.o
-# Dim_Antar20_CISM = paradim-ant20_CISM_mod.o geography-Ant20CISM.o
-# Dim_Antar25_CISM = paradim-ant25_CISM_mod.o geography-Ant25CISM.o
-# Dim_Antar45_CISM = paradim-ant45_CISM_mod.o geography-Ant45CISM.o
-# Dim_heino = paradim-Heino_mod.o geography-heino_mod.o
-# ancienne version diagnoshelf: obsolete, il faut aussi modifier le module choix
-#mod_ell_old = eq_elliptique_mod-0.4.o
-#routine_elliptiques_old =  remplimat-ant-0.5-40km.o
-#diagnoshelf_old = diagno-ant-0.6_mod.o
-# Routines obsoletes
-#icetemp-0.4.o : icetemp-0.4.f90   #module3d.mod tridiagmod.mod
-#       $(FT) icetemp-0.4.f90
-#icetemp-0.5_mod.o : icetemp-0.5_mod.f90
-#       $(FT) icetemp-0.5_mod.f90
-#icethick-ant-0.5.o : icethick-ant-0.5.f90  #module3d.mod relaxation_mod.mod
-#       $(FT) icethick-ant-0.5.f90
-#deform_declar_mod-0.3.o : deform_declar_mod-0.3.f90
-#       $(FT) deform_declar_mod-0.3.f90
-#-------------lecture des fichiers Climat obsoletes
-#lect-clim-act-anteis_mod.o : Ant40_files/lect-clim-act-anteis_mod.f90
-#       $(FT) Ant40_files/lect-clim-act-anteis_mod.f90
-#lect-Ant_clim_CISM_gen_dat.o : Antarctique_general_files/lect-Ant_clim_CISM_gen_dat.f90
-#       $(FT)  Antarctique_general_files/lect-Ant_clim_CISM_gen_dat.f90
-#lect-Ant_clim_CISM_15_dat.o : Ant15_CISM_files/lect-Ant_clim_CISM_15_dat.f90
-#       $(FT)  Ant15_CISM_files/lect-Ant_clim_CISM_15_dat.f90
-#lect-Ant_clim_CISM_45_dat.o : Ant45_CISM_files/lect-Ant_clim_CISM_45_dat.f90
-#       $(FT)  Ant45_CISM_files/lect-Ant_clim_CISM_45_dat.f90
-#massb-ant_forcage-0.4.o : Ant40_files/massb-ant_forcage-0.4.f
-#       $(FT) Ant40_files/massb-ant_forcage-0.4.f
-# ancienne methode netcdf
-#sortie_netcdf_GRISLI_mod.o : Netcdf-routines/sortie_netcdf_GRISLI_mod.f90
-#       $(FT)  Netcdf-routines/sortie_netcdf_GRISLI_mod.f90
-# Liens
-#Heino :        $(Dim_heino) $(mod_dim_communs) $(mod_communs)  $(Liste_HEINO) $(Liste_Netcdf) \
-#       $(routines_communes) $(Liste_BLAS)
-#       $(LK) -o Heino  $(Dim_heino) $(mod_dim_communs) $(mod_communs) $(Liste_HEINO) \
-#       $(Liste_Netcdf) \
-#       $(routines_communes) $(Liste_BLAS) $(NCDF_LIB)
-#Antar-40 : $(Dim_Antar40) $(mod_dim_communs) $(mod_communs) $(mod_ell)  $(Liste_Antar40) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o  ../bin/Antar-40  $(Dim_Antar40) $(mod_dim_communs) $(mod_communs) $(mod_ell)  $(Liste_Antar40) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
-#Antar15 : $(Dim_Antar15_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) $(Liste_Antar15_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques)
-#       $(LK) -o ../bin/Antar-15  $(Dim_Antar15_CISM) $(mod_dim_communs) $(mod_communs) $(mod_ell) \
-#       $(Liste_Antar15_CISM) \
-#       $(diagnoshelf) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques) $(NCDF_LIB)  $(MKL_LIB)
-#Antar_old : $(Dim_Antar40) $(mod_dim_communs) $(mod_communs)  $(mod_ell_old)  \
-#       $(Liste_Antar_old) $(diagnoshelf_old) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques_old)
-#       $(LK) -o  ../bin/Antar_old  $(Dim_Antar40) $(mod_dim_communs) $(mod_communs) \
-#       $(mod_ell_old)  $(Liste_Antar_old) \
-#       $(diagnoshelf_old) $(Liste_Netcdf) \
-#       $(routines_communes) $(routine_elliptiques_old) $(NCDF_LIB)  $(MKL_LIB)

branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

-                      r32
+                      r77
     integer :: num_file=22
     integer :: i1,i2,i3
     integer :: i,j,k,l
+    integer :: i,j,k
     character(len=20) :: name1
     character(len=20) :: name2
 …
     integer   :: ifin
     integer   :: npr
     integer  :: i,j,k !< indices de travail
+    integer  :: i !< indices de travail
     if (itracebug.eq.1)  call tracebug(' Entree dans routine testsort_time_ncdf')
 …
     ! ferret conventions
     if ( time .le. 0. ) then
        timetmp = -time
        nametmp = 'p_'
     else
+!    if ( time .le. 0. ) then
+!       timetmp = -time
+!       nametmp = 'p_'
+!    else
        timetmp = time
        nametmp = 'f_'
     endif
+!    endif
     if (.not.associated(tab)) allocate(tab(nx,ny))
 …
                             if (ilemx(i,j)) then     ! ile
                                tab(i,j)=2
+                            else if (fleuvemx(i,j)) then
+                               tab(i,j)=5        ! actual grounded streams
                             else
                                tab(i,j)=1        ! grounded zone

branches/iLoveclim/SOURCES/New-remplimat/diagno-L2_mod.f90

-                      r4
+                      r77
 !module diagno_L2_mod               ! Nouvelle version, compatible remplimat 2008 Cat
 module diagno_mod                   ! nom pendant les tests
+ !$ USE OMP_LIB
 use module3D_phy
 use module_choix
 …
 subroutine diagnoshelf !      Resolution numerique des equations diagnostiques
-  integer :: itest
   if (itracebug.eq.1)  call tracebug(' Entree dans diagnoshelf')
 …
   call calc_pvi                    ! calcule les viscosites integrees
+!$OMP PARALLEL
+!$OMP WORKSHARE
    where (flot(:,:).and.(H.gt.1))  ! valeur analytique pour les shelfs
       pvi(:,:) = (4./coef_Sflot/rog)**2/btt(:,:,1,1)/H(:,:)
    end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
   ! avec couplage thermomecanique
 !  write(166,*) ' apres call calc_pvi',itour_pvi
 …
   !      nouvelles vitesses
+  !$OMP PARALLEL
+  !$OMP WORKSHARE
   uxbar(:,:)=uxb1(:,:)
   uybar(:,:)=uyb1(:,:)
+  !$OMP END WORKSHARE
   !    calcul de tobmx et tobmy (frottement basal) apres calcul des vitesses
   !    ---------------------------------------------------------------------
+  !$OMP DO
   do j=1,ny
      do i=1,nx
 …
      enddo
   enddo
+  !$OMP END DO
   ! Mise ne réserve des vitesses flgzmx et flgzmy
+  !$OMP WORKSHARE
   where (flgzmx(:,:))
      uxflgz(:,:)=uxbar(:,:)
 …
      uyflgz(:,:)=0.
   endwhere
+  !$OMP END WORKSHARE
+  !$OMP END PARALLEL
   !i=92
   !j=152
 …
 ! Pour les noeuds posés mais ayant un voisin stream ou flottant, on calcule
 ! la viscosité avec stream/shelves
 ! le calcul se fait sur les noeuds majeurs
+!$  integer :: rang ,nb_taches
+!$  logical :: paral
+  integer :: t1,t2,ir
+  real                           :: temps, t_cpu_0, t_cpu_1, t_cpu, norme
 if (itracebug.eq.1)  call tracebug(' Calc pvi')
+!$OMP PARALLEL PRIVATE(rang,iplus1,jplus1,sf3,sf1,BT2,phiphi,ttau,d02,discr)
+!$ paral = OMP_IN_PARALLEL()
+!$ rang=OMP_GET_THREAD_NUM()
+!$ nb_taches=OMP_GET_NUM_THREADS()
+!$OMP WORKSHARE
 pvi(:,:)  = pvimin
 Abar(:,:) = 0.
+!$OMP END WORKSHARE
+!$OMP DO
 do j=1,ny
    do i=1,nx
 …
    end do
 end do
+!$OMP END DO
 ! cas des noeuds fictifs, si l'épaisseur est très petite
 ! pvimin est très petit
+!$OMP WORKSHARE
 where (H(:,:).le.1.)
    pvi(:,:) = pvimin
 …
 end where
 debug_3D(:,:,27)=pvi(:,:)
+!$OMP END WORKSHARE
 ! attention run 35
 !--------------------
 …
 !  calcul de la viscosite integree au milieu des mailles (pvm)
+!$OMP DO
 do i=2,nx
    do j=2,ny
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 end subroutine calc_pvi
 !------------------------------------------------------------------
 …
 !    -41               -1  Sud                -12
+!$OMP PARALLEL
+!$OMP WORKSHARE
 imx_diag(:,:)=0
 imy_diag(:,:)=0
 …
 imx_diag(1,:)=0     ! hors domaine a cause des mailles alternees
 imy_diag(:,1)=0     ! hors domaine a cause des mailles alternees
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 end subroutine imx_imy_nx_ny

branches/iLoveclim/SOURCES/New-remplimat/eq_ellipt_sgbsv_mod-0.2.f90

-                      r4
+                      r77
 ! declaration des variables
+!$ USE OMP_LIB
 use remplimat_declar   ! toutes les routines de ce module connaissent les Tuij....
 …
       !   write(6,*) 'sortie ok de sgbsv'
       !   write(6,*)'-----------------------'
+      !$OMP PARALLEL
+      !$OMP DO
       do j = ny1,ny2
          do i = nx1,nx2
 …
          end do
       end do
+      !$OMP END DO
+      !$OMP END PARALLEL
    else
 …
 else                 ! nblig=0, pas de passage par sgbsv
+   !$OMP PARALLEL
+   !$OMP WORKSHARE
    uxnew(nx1:nx2,ny1:ny2)=uxprec(nx1:nx2,ny1:ny2)
    uynew(nx1:nx2,ny1:ny2)=uyprec(nx1:nx2,ny1:ny2)
+   !$OMP END WORKSHARE
+   !$OMP END PARALLEL
 end if
 …
 ! numerotation des lignes
 !--------------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 ligu_L2(:,:) = -9999
 ligv_L2(:,:) = -9999
 pos_ligu(:,:) = -9999
 pos_ligv(:,:) = -9999
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! Boucle sur les noeuds avec la dimension la plus grande a l'interieur
 …
 end do count
 nblig = count_line-1
 …
 ! calcul de la largeur de bande. depend de la numerotation des lignes
 !--------------------------------------------------------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 lu_band(:) = 0
 ll_band(:) = 0
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 larg_band: do j = ny1,ny2
 …
 ! ecriture de la matrice proprement dite et du vecteur bdr
 !------------------------------------------------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 mmat(:,:) = 0.
 bdr(:,:) = 0.
+!$OMP END WORKSHARE
+!$OMP DO PRIVATE(ligne,ilmin,ilmax,jlmin,jlmax,colonne)
 ij_loop : do j = ny1,ny2         ! attention, on rempli 2 lignes par 2 lignes (u,v)
    do i = nx1,nx2
 …
  end do
 end do ij_loop
+!$OMP END DO
+!$OMP END PARALLEL

branches/iLoveclim/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

-                      r4
+                      r77
 !-----------------------------------------------------------------------
+!$ USE OMP_LIB
 use module3d_phy
 use remplimat_declar        ! les tableaux tuij, ....
 …
 !--------------------
-real    :: epsilon
 real    :: dx2=dx*dx     ! variable de travail
 real    :: beta          ! pour le frottement
-real    :: moteur        ! pour le frottement
 real    :: scal          ! pour le conditionnement (diagonale=1)
+character(len=80) :: fileout ! pour sortie fichier verification
 …
 !-----------------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 Tu(:,:,:,:) = 0. ; Tv(:,:,:,:) = 0. ; Su(:,:,:,:) = 0. ; Sv(:,:,:,:) = 0.
 opposx(:,:) = 0. ; opposy(:,:) = 0.
 …
 Hmx_oppos(:,:) = Hmx(:,:)
 Hmy_oppos(:,:) = Hmy(:,:)
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! calcul de Hmx_oppos et Hmy_oppos dans le cas de fronts
 …
  call limit_frotm
 else
+   !$OMP PARALLEL
+   !$OMP WORKSHARE
    frotmx(:,:)= betamx(:,:)
    frotmy(:,:)= betamy(:,:)
+   !$OMP END WORKSHARE
+   !$OMP END PARALLEL
 end if
 …
 if (iter_beta.eq.1) then
    call calc_beta(Vcol_x, Vcol_y)
    call write_datfile3(nx,ny,betamx,betamy,beta_centre,'beta-estime.dat')
    if (itracebug.eq.1)  call tracebug(' remplimat apres calc_beta')
    iter_beta = 0             ! pour faire un calcul de vitesse le coup d'apres
    corr_def = .true.
    goto 888
+        call calc_beta(Vcol_x, Vcol_y)
+        fileout='beta-estime.dat'
+        call write_datfile3(nx,ny,betamx,betamy,beta_centre,fileout)
+        if (itracebug.eq.1)  call tracebug(' remplimat apres calc_beta')
+        iter_beta = 0             ! pour faire un calcul de vitesse le coup d'apres
+        corr_def = .true.
+        goto 888
 else if ((iter_beta.eq.0).and.(corr_def)) then
 …
 ! pour avoir la diagonale=1 a faire imperativement APRES okmat
 !--------------------------------------------------------------
+!$OMP PARALLEL
+!$OMP DO PRIVATE(scal)
 do j=ny1,ny2
    do i=nx1,nx2
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 ! mise a identite des noeuds fantomes
 …
+debug_3d(:,:,35) = opposx(:,:)
+debug_3d(:,:,36) = opposy(:,:)
+!debug_3d(:,:,35) = opposx(:,:)
+!debug_3d(:,:,36) = opposy(:,:)
 …
 ! remise a 0 des noeuds fantomes
+!$OMP PARALLEL
+!$OMP WORKSHARE
 where ((Hmx(nx1:nx2,ny1:ny2).le.1.).and.(flgzmx(nx1:nx2,ny1:ny2)))
    uxnew(nx1:nx2,ny1:ny2)=0.
 …
    uynew(nx1:nx2,ny1:ny2)=0.
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! call graphique_L2(kl,ku,nx1,nx2,ny1,ny2,imx(nx1:nx2,ny1:ny2),imy(nx1:nx2,ny1:ny2))
 …
 subroutine limit_frotm
+!$USE OMP_LIB
 !-------------------------
 ! limite la valeur de frotmx a betamax
 …
 if (itracebug.eq.1) write(Num_tracebug,*)'betamax = ',betamax
+!$OMP PARALLEL
+!$OMP WORKSHARE
 where (flgzmx(:,:))
    frotmx(:,:)=min(abs(betamx(:,:)),betamax)
+   frotmx(:,:)=min(abs(betamx(:,:)),betamax_2d(:,:))
 elsewhere
    frotmx(:,:)=0
 …
 where (flgzmy(:,:))
    frotmy(:,:)=min(abs(betamy(:,:)),betamax)
+   frotmy(:,:)=min(abs(betamy(:,:)),betamax_2d(:,:))
 elsewhere
    frotmy(:,:)=0
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 end subroutine limit_frotm
 …
 subroutine rempli_Tuij                                    ! appelle tous les cas
+!$ USE OMP_LIB
 ! imx(i,j)=0 -> ne pas traiter cette vitesse
 …
 count_line=1                                 ! pour numeroter les lignes
 !------------------------------------------------------------------
+!$OMP PARALLEL
+!$OMP DO
 lignes_UV: do j=ny1,ny2
    do i=nx1,nx2
 …
       if (i.gt.nx1) then                      ! Vitesses U
          ligu_L2(i,j)=count_line
+         !$OMP ATOMIC
          count_line=count_line+1
 …
          case(1)                              ! vitesse imposee
             call vel_U_presc
+            call vel_U_presc(uxprec(i,j),Tu(i,j,0,0),opposx(i,j))
          case(2)                              ! cas general
+            call vel_U_general
+            call vel_U_general(frotmx(i,j),dx2,pvi(i,j),pvi(i-1,j),pvm(i,j),pvm(i,j+1),sdx(i,j),rog,hmx_oppos(i,j), &
+            Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
          case(-1)                             ! bord sud
             call vel_U_South
+            call vel_U_South(Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
          case(-2)                             ! bord Est
             call vel_U_East
+            call vel_U_East(pvi(i,j),pvi(i-1,j),rog,H(i-1,j),rowg,slv(i-1,j),B(i-1,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
          case(-3)                             ! bord nord
             call vel_U_North
+            call vel_U_North(Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
          case(-4)                             ! bord West
             call vel_U_West
+            call vel_U_West(pvi(i,j),pvi(i-1,j),rog,H(i,j),rowg,slv(i,j),B(i,j),dx,Tu(i,j,:,:),Tv(i,j,:,:),opposx(i,j))
          case(-12)                            ! coin SE
             call vel_U_SE
+            call vel_U_SE(Tu(i,j,:,:),opposx(i,j))
          case(-23)                            ! coin NE
             call vel_U_NE
+            call vel_U_NE(Tu(i,j,:,:),opposx(i,j))
          case(-34)                            ! coin NW
             call vel_U_NW
+            call vel_U_NW(Tu(i,j,:,:),opposx(i,j))
          case(-41)                            ! coin SW
             call vel_U_SW
+            call vel_U_SW(Tu(i,j,:,:),opposx(i,j))
          end select case_imx
 …
          ligv_L2(i,j)=count_line
+         !$OMP ATOMIC
          count_line=count_line+1
 …
          case(1)                              ! vitesse imposee
             call vel_V_presc
+            call vel_V_presc(uyprec(i,j),Sv(i,j,0,0),opposy(i,j))
          case(2)                              ! cas general
+            call vel_V_general
+            call vel_V_general(frotmy(i,j),dx2,pvi(i,j),pvi(i,j-1),pvm(i,j),pvm(i+1,j),sdy(i,j),rog,hmy_oppos(i,j), &
+            Su(i,j,:,:),Sv(i,j,:,:),opposy(i,j))
          case(-1)                             ! bord sud
             call vel_V_South
+            call vel_V_South(pvi(i,j),pvi(i,j-1),rog,H(i,j),rowg,slv(i,j),B(i,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
          case(-2)                             ! bord Est
             call vel_V_East
+            call vel_V_East(Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
          case(-3)                             ! bord nord
             call vel_V_North
+            call vel_V_North(pvi(i,j),pvi(i,j-1),rog,H(i-1,j),rowg,slv(i-1,j),B(i-1,j),dx,Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
          case(-4)                             ! bord West
             call vel_V_West
+            call vel_V_West(Sv(i,j,:,:),Su(i,j,:,:),opposy(i,j))
          case(-12)                            ! coin SE
             call vel_V_SE
+            call vel_V_SE(Sv(i,j,:,:),opposy(i,j))
          case(-23)                            ! coin NE
             call vel_V_NE
+            call vel_V_NE(Sv(i,j,:,:),opposy(i,j))
          case(-34)                            ! coin NW
             call vel_V_NW
+            call vel_V_NW(Sv(i,j,:,:),opposy(i,j))
          case(-41)                            ! coin SW
             call vel_V_SW
+            call vel_V_SW(Sv(i,j,:,:),opposy(i,j))
          end select case_imy
 …
    end do
 end do lignes_UV
+!$OMP END DO
+!$OMP END PARALLEL
 end subroutine rempli_Tuij
 …
 !------------------------------------------------------------------
+subroutine vel_U_presc     !                     ! vitesse imposee
+  Tu(i,j,0,0)=1.
+  opposx(i,j)=uxprec(i,j)
+subroutine vel_U_presc(uxprec,Tu,opposx)     !                     ! vitesse imposee
+implicit none
+real,intent(in)  :: uxprec
+real,intent(out) :: Tu
+real,intent(out) :: opposx
+  Tu=1.
+  opposx=uxprec
 end subroutine vel_U_presc
 !------------------------------------------------------------------
+subroutine vel_U_general                   ! cas general
+   beta=frotmx(i,j)*dx2                       !  Terme en u(i,j)
+   Tu(i,j,0,0)  = -4.*pvi(i,j)-4.*pvi(i-1,j)- pvm(i,j+1)-pvm(i,j)-beta
+   Tu(i,j,-1,0) =  4.*pvi(i-1,j)              !  Terme en u(i-1,j)
+   Tu(i,j,1,0)  =  4.*pvi(i,j)                !  Terme en u(i+1,j)
+   Tu(i,j,0,-1) =  pvm(i,j)                   !  Terme en u(i,j-1)
+   Tu(i,j,0,1)  =  pvm(i,j+1)                 !  Terme en u(i,j+1)
+   Tv(i,j,0,0)  = -2.*pvi(i,j)-pvm(i,j)       !  Terme en v(i,j)
+   Tv(i,j,-1,0) =  2.*pvi(i-1,j)+pvm(i,j)     !  Terme en v(i-1,j)
+   Tv(i,j,-1,1) = -2.*pvi(i-1,j)-pvm(i,j+1)   !  Terme en v(i-1,j+1)
+   Tv(i,j,0,1)  =  2.*pvi(i,j)+pvm(i,j+1)     !  Terme en v(i,j+1)
+   opposx(i,j)  =  rog*hmx_oppos(i,j)*sdx(i,j)*dx2  !  Terme en opposx(i,j)
+subroutine vel_U_general(frotmx,dx2,pvi,pvi_imoinsun,pvm,pvm_jplusun,sdx,rog,hmx_oppos,Tu,Tv,opposx)                   ! cas general
+implicit none
+real,intent(in) :: frotmx
+real,intent(in) :: dx2
+real,intent(in) :: pvi
+real,intent(in) :: pvi_imoinsun
+real,intent(in) :: pvm
+real,intent(in) :: pvm_jplusun
+real,intent(in) :: sdx
+real,intent(in) :: rog
+real,intent(in) :: hmx_oppos
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,dimension(-1:1,-1:1),intent(inout) :: Tv
+real,intent(out) :: opposx
+   beta=frotmx*dx2                       !  Terme en u(i,j)
+   Tu(0,0)  = -4.*pvi - 4.*pvi_imoinsun - pvm_jplusun - pvm - beta
+   Tu(-1,0) =  4.*pvi_imoinsun              !  Terme en u(i-1,j)
+   Tu(1,0)  =  4.*pvi                !  Terme en u(i+1,j)
+   Tu(0,-1) =  pvm                   !  Terme en u(i,j-1)
+   Tu(0,1)  =  pvm_jplusun                 !  Terme en u(i,j+1)
+   Tv(0,0)  = -2.*pvi - pvm       !  Terme en v(i,j)
+   Tv(-1,0) =  2.*pvi_imoinsun + pvm     !  Terme en v(i-1,j)
+   Tv(-1,1) = -2.*pvi_imoinsun - pvm_jplusun   !  Terme en v(i-1,j+1)
+   Tv(0,1)  =  2.*pvi + pvm_jplusun     !  Terme en v(i,j+1)
+   opposx   =  rog*hmx_oppos*sdx*dx2  !  Terme en opposx(i,j)
    return
 …
 ! voir explications dans vel_U_West
+subroutine vel_U_South                       ! bord sud non cisaillement
+  Tu(i,j,0,0)  =  1.
+  Tu(i,j,0,1)  = -1.
+  Tv(i,j,0,1)  = -1.
+  Tv(i,j,-1,1) =  1.
+  opposx(i,j)  =  0.
+subroutine vel_U_South(Tu,Tv,opposx)       ! bord sud non cisaillement
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,dimension(-1:1,-1:1),intent(inout) :: Tv
+real, intent(out) :: opposx
+  Tu(0,0)  =  1.
+  Tu(0,1)  = -1.
+  Tv(0,1)  = -1.
+  Tv(-1,1) =  1.
+  opposx   =  0.
    return
 …
 !------------------------------------------------------------------
+subroutine vel_U_North                       ! bord nord   non cisaillement
+  Tu(i,j,0,0)  =  1.
+  Tu(i,j,0,-1) = -1.
+  Tv(i,j,0,0)  =  1.
+  Tv(i,j,-1,0) = -1.
+  opposx(i,j)  =  0.
+subroutine vel_U_North(Tu,Tv,opposx)     ! bord nord   non cisaillement
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,dimension(-1:1,-1:1),intent(inout) :: Tv
+real, intent(out) :: opposx
+  Tu(0,0)  =  1.
+  Tu(0,-1) = -1.
+  Tv(0,0)  =  1.
+  Tv(-1,0) = -1.
+  opposx   =  0.
    return
 …
 ! voir explications dans vel_U_West
+subroutine vel_U_East                       ! bord Est   pression
+subroutine vel_U_East(pvi,pvi_imoinsun,rog,H_imoinsun,rowg,slv_imoinsun,B_imoinsun,dx,Tu,Tv,opposx) ! bord Est   pression
+implicit none
+real,intent(in) :: pvi
+real,intent(in) :: pvi_imoinsun
+real,intent(in) :: rog
+real,intent(in) :: H_imoinsun
+real,intent(in) :: rowg
+real,intent(in) :: slv_imoinsun
+real,intent(in) :: B_imoinsun
+real,intent(in) :: dx
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,dimension(-1:1,-1:1),intent(inout) :: Tv
+real, intent(out) :: opposx
   Tu(i,j,0,0)   =  4.*pvi(i-1,j)
   Tu(i,j,-1,0)  = -4.*pvi(i-1,j)
   Tv(i,j,0,1)   =  2.*pvi(i,j)
   Tv(i,j,0,0)   = -2.*pvi(i,j)
   opposx(i,j)   =  0.5*(rog*H(i-1,j)**2-rowg*(max(slv(i-1,j)-B(i-1,j),0.))**2)*dx
+  Tu(0,0)   =  4.*pvi_imoinsun
+  Tu(-1,0)  = -4.*pvi_imoinsun
+  Tv(0,1)   =  2.*pvi
+  Tv(0,0)   = -2.*pvi
+  opposx    =  0.5*(rog*H_imoinsun**2-rowg*(max(slv_imoinsun-B_imoinsun,0.))**2)*dx
    return
 …
 !------------------------------------------------------------------
 subroutine vel_U_West                        ! bord West pression
+subroutine vel_U_West(pvi,pvi_imoinsun,rog,H,rowg,slv,B,dx,Tu,Tv,opposx) ! bord West pression
                                              ! tous les coef * -1
+implicit none
+real,intent(in) :: pvi
+real,intent(in) :: pvi_imoinsun
+real,intent(in) :: rog
+real,intent(in) :: H
+real,intent(in) :: rowg
+real,intent(in) :: slv
+real,intent(in) :: B
+real,intent(in) :: dx
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,dimension(-1:1,-1:1),intent(inout) :: Tv
+real, intent(out) :: opposx
 !  Tu(i,j,0,0)    =  4.*pvi(i-1,j)
 !  Tu(i,j,1,0)    = -4.*pvi(i-1,j)
   Tu(i,j,0,0)    =  4.*pvi(i,j)              ! quand le bord est epais, il faut prendre
   Tu(i,j,1,0)    = -4.*pvi(i,j)              ! le noeud du shelf pas celui en H=1
+  Tu(0,0)    =  4.*pvi              ! quand le bord est epais, il faut prendre
+  Tu(1,0)    = -4.*pvi              ! le noeud du shelf pas celui en H=1
                                              ! s'il est fin, pas de difference
 …
 !!$  Tv(i-1,j,-1,1) = -2.*pvi(i-1,j)
   Tv(i,j,-1,0) =  2.*pvi(i-1,j)
   Tv(i,j,-1,1) = -2.*pvi(i-1,j)
  opposx(i,j)    = -0.5*(rog*H(i,j)**2-rowg*(max(slv(i,j)-B(i,j),0.))**2)*dx
+  Tv(-1,0) =  2.*pvi_imoinsun
+  Tv(-1,1) = -2.*pvi_imoinsun
+ opposx    = -0.5*(rog*H**2-rowg*(max(slv-B,0.))**2)*dx
 …
 !------------------------------------------------------------------
+subroutine vel_V_presc                     ! vitesse imposee
+  Sv(i,j,0,0)=1.
+  opposy(i,j)=uyprec(i,j)
+subroutine vel_V_presc(uyprec,Sv,opposy)          ! vitesse imposee
+implicit none
+real,intent(in)  :: uyprec
+real,intent(out) :: Sv
+real,intent(out) :: opposy
+  Sv=1.
+  opposy=uyprec
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_general                      ! cas general
+   beta          =  frotmy(i,j)*dx2           !  Terme en v(i,j)
+   Sv(i,j,0,0)   = -4.*pvi(i,j)-4.*pvi(i,j-1)- pvm(i+1,j)-pvm(i,j)-beta
+   Sv(i,j,0,-1)  =  4.*pvi(i,j-1)             !  Terme en v(i,j-1)
+   Sv(i,j,0,1)   =  4.*pvi(i,j)               !  Terme en v(i,j+1)
+   Sv(i,j,-1,0)  =  pvm(i,j)                  !  Terme en v(i-1,j)
+   Sv(i,j,1,0)   =  pvm(i+1,j)                !  Terme en v(i+1,j)
+   Su(i,j,0,0)   = -2.*pvi(i,j)-pvm(i,j)      !  Terme en u(i,j)
+   Su(i,j,0,-1)  =  2.*pvi(i,j-1)+pvm(i,j)    !  Terme en u(i,j-1)
+   Su(i,j,1,-1)  = -2.*pvi(i,j-1)-pvm(i+1,j)  !  Terme en u(i+1,j-1)
+   Su(i,j,1,0)   =  2.*pvi(i,j)+pvm(i+1,j)    !  Terme en u(i+1,j)
+   opposy(i,j)   =  rog*hmy_oppos(i,j)*sdy(i,j)*dx2 !  Terme en opposy(i,j)
+subroutine vel_V_general(frotmy,dx2,pvi,pvi_jmoinsun,pvm,pvm_iplusun,sdy,rog,hmy_oppos,Su,Sv,opposy)! cas general
+implicit none
+real,intent(in) :: frotmy
+real,intent(in) :: dx2
+real,intent(in) :: pvi
+real,intent(in) :: pvi_jmoinsun
+real,intent(in) :: pvm
+real,intent(in) :: pvm_iplusun
+real,intent(in) :: sdy
+real,intent(in) :: rog
+real,intent(in) :: hmy_oppos
+real,dimension(-1:1,-1:1),intent(inout) :: Su
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,intent(out) :: opposy
+real :: beta
+   beta          =  frotmy*dx2           !  Terme en v(i,j)
+   Sv(0,0)   = -4.*pvi - 4.*pvi_jmoinsun - pvm_iplusun - pvm-beta
+   Sv(0,-1)  =  4.*pvi_jmoinsun             !  Terme en v(i,j-1)
+   Sv(0,1)   =  4.*pvi               !  Terme en v(i,j+1)
+   Sv(-1,0)  =  pvm                  !  Terme en v(i-1,j)
+   Sv(1,0)   =  pvm_iplusun                !  Terme en v(i+1,j)
+   Su(0,0)   = -2.*pvi - pvm      !  Terme en u(i,j)
+   Su(0,-1)  =  2.*pvi_jmoinsun + pvm    !  Terme en u(i,j-1)
+   Su(1,-1)  = -2.*pvi_jmoinsun - pvm_iplusun  !  Terme en u(i+1,j-1)
+   Su(1,0)   =  2.*pvi + pvm_iplusun    !  Terme en u(i+1,j)
+   opposy    =  rog*hmy_oppos*sdy*dx2 !  Terme en opposy(i,j)
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_West                       ! bord West non cisaillement
+  Sv(i,j,0,0)  =  1.
+  Sv(i,j,1,0)  = -1.
+  Su(i,j,1,0)  = -1.
+  Su(i,j,1,-1) =  1.
+  opposy(i,j)  =  0.
+subroutine vel_V_West(Sv,Su,opposy)     ! bord West non cisaillement
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,dimension(-1:1,-1:1),intent(inout) :: Su
+real,intent(out) :: opposy
+  Sv(0,0)  =  1.
+  Sv(1,0)  = -1.
+  Su(1,0)  = -1.
+  Su(1,-1) =  1.
+  opposy   =  0.
    return
 …
+subroutine vel_V_East                       ! bord Est   non cisaillement
+  Sv(i,j,0,0)  =  1.
+  Sv(i,j,-1,0) = -1.
+  Su(i,j,0,0)  =  1.
+  Su(i,j,0,-1) = -1.
+  opposy(i,j)  =  0.
+subroutine vel_V_East(Sv,Su,opposy)         ! bord Est   non cisaillement
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,dimension(-1:1,-1:1),intent(inout) :: Su
+real,intent(out) :: opposy
+  Sv(0,0)  =  1.
+  Sv(-1,0) = -1.
+  Su(0,0)  =  1.
+  Su(0,-1) = -1.
+  opposy   =  0.
    return
 …
 ! voir explications dans vel_U_West
+subroutine vel_V_North                       ! bord Nord   pression
+subroutine vel_V_North(pvi,pvi_jmoinsun,rog,H_imoinsun,rowg,slv_imoinsun,B_imoinsun,dx,Sv,Su,opposy) ! bord Nord   pression
+implicit none
+real,intent(in) :: pvi
+real,intent(in) :: pvi_jmoinsun
+real,intent(in) :: rog
+real,intent(in) :: H_imoinsun
+real,intent(in) :: rowg
+real,intent(in) :: slv_imoinsun
+real,intent(in) :: B_imoinsun
+real,intent(in) :: dx
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,dimension(-1:1,-1:1),intent(inout) :: Su
+real,intent(out) :: opposy
   Sv(i,j,0,0)  =  4.*pvi(i,j-1)
   Sv(i,j,0,-1) = -4.*pvi(i,j-1)
   Su(i,j,1,0)  =  2.*pvi(i,j)
   Su(i,j,0,0)  = -2.*pvi(i,j)
   opposy(i,j)  = 0.5*(rog*H(i-1,j)**2-rowg*(max(slv(i-1,j)-B(i-1,j),0.))**2)*dx
+  Sv(0,0)  =  4.*pvi_jmoinsun
+  Sv(0,-1) = -4.*pvi_jmoinsun
+  Su(1,0)  =  2.*pvi
+  Su(0,0)  = -2.*pvi
+  opposy   = 0.5*(rog*H_imoinsun**2-rowg*(max(slv_imoinsun-B_imoinsun,0.))**2)*dx
    return
 …
 ! voir explications dans vel_U_West
 subroutine vel_V_South                        ! bord sud  pression
+subroutine vel_V_South(pvi,pvi_jmoinsun,rog,H,rowg,slv,B,dx,Sv,Su,opposy) ! bord sud  pression
                                               ! tous les coef * -1
+  Sv(i,j,0,0)  = 4.*pvi(i,j)
+  Sv(i,j,0,1)  =-4.*pvi(i,j)
+  Su(i,j,0,-1) = 2.*pvi(i,j-1)
+  Su(i,j,1,-1) =-2.*pvi(i,j-1)
+  opposy(i,j)  = -0.5*(rog*H(i,j)**2-rowg*(max(slv(i,j)-B(i,j),0.))**2)*dx
+implicit none
+real,intent(in) :: pvi
+real,intent(in) :: pvi_jmoinsun
+real,intent(in) :: rog
+real,intent(in) :: H
+real,intent(in) :: rowg
+real,intent(in) :: slv
+real,intent(in) :: B
+real,intent(in) :: dx
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,dimension(-1:1,-1:1),intent(inout) :: Su
+real,intent(out) :: opposy
+  Sv(0,0)  = 4.*pvi
+  Sv(0,1)  =-4.*pvi
+  Su(0,-1) = 2.*pvi_jmoinsun
+  Su(1,-1) =-2.*pvi_jmoinsun
+  opposy   = -0.5*(rog*H**2-rowg*(max(slv-B,0.))**2)*dx
    return
 …
 !Coin SE
 !----------
+subroutine vel_U_SE
+  Tu(i,j,0,0) =  1.    !*pvi(i,j)
+  Tu(i,j,0,1) = -1.    !*pvi(i,j)
+  opposx(i,j) =  0.
+subroutine vel_U_SE(Tu,opposx)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,intent(out) :: opposx
+  Tu(0,0) =  1.    !*pvi(i,j)
+  Tu(0,1) = -1.    !*pvi(i,j)
+  opposx  =  0.
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_SE
+  Sv(i,j,0,0) =  1.   !*pvi(i,j)
+  Sv(i,j,-1,0)= -1.   !*pvi(i,j)
+  opposy(i,j) =  0.
+subroutine vel_V_SE(Sv,opposy)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,intent(out) :: opposy
+  Sv(0,0) =  1.   !*pvi(i,j)
+  Sv(-1,0)= -1.   !*pvi(i,j)
+  opposy  =  0.
    return
 …
 !Coin SW
 !----------
+subroutine vel_U_SW
+  Tu(i,j,0,0) =  1.   ! *pvi(i,j)
+  Tu(i,j,0,1) = -1.   ! *pvi(i,j)
+  opposx(i,j) =  0.
+subroutine vel_U_SW(Tu,opposx)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,intent(out) :: opposx
+  Tu(0,0) =  1.   ! *pvi(i,j)
+  Tu(0,1) = -1.   ! *pvi(i,j)
+  opposx  =  0.
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_SW
+  Sv(i,j,0,0) =  1.   !*pvi(i,j)
+  Sv(i,j,1,0) = -1.   !*pvi(i,j)
+  opposy(i,j) =  0.
+subroutine vel_V_SW(Sv,opposy)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,intent(out) :: opposy
+  Sv(0,0) =  1.   !*pvi(i,j)
+  Sv(1,0) = -1.   !*pvi(i,j)
+  opposy  =  0.
    return
 …
 !Coin NE
 !----------
+subroutine vel_U_NE
+  Tu(i,j,0,0)  =  1.  ! *pvi(i,j)
+  Tu(i,j,0,-1) = -1.  ! *pvi(i,j)
+  opposx(i,j)  =  0.
+subroutine vel_U_NE(Tu,opposx)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,intent(out) :: opposx
+  Tu(0,0)  =  1.  ! *pvi(i,j)
+  Tu(0,-1) = -1.  ! *pvi(i,j)
+  opposx   =  0.
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_NE
+  Sv(i,j,0,0)  =  1.  ! *pvi(i,j)
+  Sv(i,j,-1,0) = -1.  ! *pvi(i,j)
+  opposy(i,j)  =  0.
+subroutine vel_V_NE(Sv,opposy)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,intent(out) :: opposy
+  Sv(0,0)  =  1.  ! *pvi(i,j)
+  Sv(-1,0) = -1.  ! *pvi(i,j)
+  opposy   =  0.
    return
 …
 !Coin NW
 !----------
+subroutine vel_U_NW
+  Tu(i,j,0,0)  =  1.  ! *pvi(i,j)
+  Tu(i,j,0,-1) = -1.  ! *pvi(i,j)
+  opposx(i,j)  =  0.
+subroutine vel_U_NW(Tu,opposx)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Tu
+real,intent(out) :: opposx
+  Tu(0,0)  =  1.  ! *pvi(i,j)
+  Tu(0,-1) = -1.  ! *pvi(i,j)
+  opposx   =  0.
    return
 …
 !------------------------------------------------------------------
+subroutine vel_V_NW
+  Sv(i,j,0,0)  =  1.  !*pvi(i,j)
+  Sv(i,j,1,0)  = -1.  !*pvi(i,j)
+  opposy(i,j)  =  0.
+subroutine vel_V_NW(Sv,opposy)
+implicit none
+real,dimension(-1:1,-1:1),intent(inout) :: Sv
+real,intent(out) :: opposy
+  Sv(0,0)  =  1.  !*pvi(i,j)
+  Sv(1,0)  = -1.  !*pvi(i,j)
+  opposy   =  0.
    return
 …
 subroutine Mu_Mv
+!$ USE OMP_LIB
 !---------------------------------------------------------
 ! Pour déterminer  Mu, Mv, Nu, Nv les colonnes de L2
 …
 ! pourrait être dans un autre fichier
+implicit none
 if (itracebug.eq.1)  call tracebug(' Mu_Mv')
+!$OMP PARALLEL
+!$OMP DO PRIVATE(ilmin,ilmax,jlmin,jlmax)
 Col_U: do j=ny1,ny2   ! balaye tous les noeuds U
    do i=nx1+1,nx2
 …
    end do
 end do Col_U
+!$OMP END DO
+!$OMP DO PRIVATE(ilmin,ilmax,jlmin,jlmax)
 Col_V: do j=ny1+1,ny2   ! balaye tous les noeuds V
    do i=nx1,nx2
 …
    end do
 end do Col_V
+!$OMP END DO
+!$OMP END PARALLEL
 return
 …
 subroutine okmat0
+!$ USE OMP_LIB
 ! pourrais être dans un autre fichier avec un appel (nx1,nx2,ny1,ny2)
 …
 ! et qui ne dépendent d'aucun noeud (ligne Tu,Tv nulle sauf diagonale)
+implicit none
 ! tableaux de travail
 …
 pvi_ghost=40.*pvimin
 !pvi_ghost=10.*pvimin   ! condition trop faible  : pas de ghost
+!$OMP PARALLEL
+!$OMP WORKSHARE
 ok_umat(:,:) =.false.
 ok_vmat(:,:) =.false.
 ghost_x(:,:) =.false.
 ghost_y(:,:) =.false.
+!$OMP END WORKSHARE
+!$OMP DO PRIVATE(Mloc,Nloc,Tuloc,Tvloc,Suloc,Svloc)
 do j=ny1,ny2
    do i=nx1,nx2
 …
    end do
 end do
+!$OMP END DO
 ! on enleve les lignes 1 decalees
+!$OMP WORKSHARE
 ok_umat(1,:)=.false.
 ok_vmat(:,1)=.false.
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! sortie Netcdf pour verifier ok_umat
 where (ok_umat(:,:))
    debug_3D(:,:,39)=1
 elsewhere
    debug_3D(:,:,39)=0
 end where
 where (ok_vmat(:,:))
    debug_3D(:,:,40)=1
 elsewhere
    debug_3D(:,:,40)=0
 end where
 ! sortie Netcdf pour verifier ghost
 where (ghost_x(:,:))
    debug_3D(:,:,41)=1
 elsewhere
    debug_3D(:,:,41)=0
 end where
 where (ghost_y(:,:))
    debug_3D(:,:,42)=1
 elsewhere
    debug_3D(:,:,42)=0
 end where
+!~ where (ok_umat(:,:))
+!~    debug_3D(:,:,39)=1
+!~ elsewhere
+!~    debug_3D(:,:,39)=0
+!~ end where
+!~
+!~ where (ok_vmat(:,:))
+!~    debug_3D(:,:,40)=1
+!~ elsewhere
+!~    debug_3D(:,:,40)=0
+!~ end where
+!~
+!~ ! sortie Netcdf pour verifier ghost
+!~ where (ghost_x(:,:))
+!~    debug_3D(:,:,41)=1
+!~ elsewhere
+!~    debug_3D(:,:,41)=0
+!~
+!~ end where
+!~
+!~ where (ghost_y(:,:))
+!~    debug_3D(:,:,42)=1
+!~ elsewhere
+!~    debug_3D(:,:,42)=0
+!~ end where
 if (itracebug.eq.1)  call tracebug(' Sortie  Okmat')
 …
 !--------------------------------------------------------------------------------------
 subroutine ghost_identite                           ! mise a identite des noeuds fantomes
+!$ USE OMP_LIB
+implicit none
+!$OMP PARALLEL
+!$OMP DO
 do j=ny1,ny2
    do i=nx1,nx2
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 return
 …
 subroutine ghost_remove                   ! met a 0 les Tuij ... qui corresponde a des ghost
+!$ USE OMP_LIB
+implicit none
+!$OMP PARALLEL
+!$OMP DO PRIVATE(ilmin,ilmax,jlmin,jlmax)
 do j=ny1,ny2
    do i=nx1,nx2
+  do i=nx1,nx2
 !u_ghost:       if (ok_umat(i,j)) then
+               ilmin=max(-1,nx1+1-i)  ! pour avoir i+il entre nx1+1 et nx2
+               ilmax=min(1,nx2-i)
+               jlmin=max(-1,ny1-j)    ! pour avoir j+jl entre ny1 et ny2
+               jlmax=min(1,ny2-j)
+               do jl = jlmin , jlmax      ! balaye tous les coefficients d'un noeud U de -1 a 1
+                  do il = ilmin , ilmax   !                                           de -1 a 1
+                     if (ghost_x(i+il,j+jl)) then
+                        Tu(i,j,il,jl)=0.
+                        Su(i,j,il,jl)=0.
+                     end if
+                  end do
+               end do
+    ilmin=max(-1,nx1+1-i)  ! pour avoir i+il entre nx1+1 et nx2
+    ilmax=min(1,nx2-i)
+    jlmin=max(-1,ny1-j)    ! pour avoir j+jl entre ny1 et ny2
+    jlmax=min(1,ny2-j)
+    do jl = jlmin , jlmax      ! balaye tous les coefficients d'un noeud U de -1 a 1
+      do il = ilmin , ilmax   !                                           de -1 a 1
+        if (ghost_x(i+il,j+jl)) then
+          Tu(i,j,il,jl)=0.
+          Su(i,j,il,jl)=0.
+        end if
+    end do
+    end do
 !            end if u_ghost
 !v_ghost:   if (ok_vmat(i,j)) then
+               ilmin=max(-1,nx1-i)      ! pour avoir i+il entre nx1 et nx2
+               ilmax=min(1,nx2-i)
+               jlmin=max(-1,ny1+1-j)    ! pour avoir j+jl entre ny1+1 et ny2
+               jlmax=min(1,ny2-j)
+               do jl = jlmin , jlmax      ! balaye tous les coefficients d'un noeud U de -1 a 1
+                  do il = ilmin , ilmax   !                                           de -1 a 1
+                     if (ghost_y(i+il,j+jl)) then
+                        Tv(i,j,il,jl)=0.
+                        Sv(i,j,il,jl)=0.
+                     end if
+                  end do
+               end do
+    ilmin=max(-1,nx1-i)      ! pour avoir i+il entre nx1 et nx2
+    ilmax=min(1,nx2-i)
+    jlmin=max(-1,ny1+1-j)    ! pour avoir j+jl entre ny1+1 et ny2
+    jlmax=min(1,ny2-j)
+    do jl = jlmin , jlmax      ! balaye tous les coefficients d'un noeud U de -1 a 1
+      do il = ilmin , ilmax   !                                           de -1 a 1
+        if (ghost_y(i+il,j+jl)) then
+          Tv(i,j,il,jl)=0.
+          Sv(i,j,il,jl)=0.
+        end if
+      end do
+    end do
 !            end if v_ghost
+         end do
+      end do
+    end subroutine ghost_remove
+  end do
+end do
+!$OMP END DO
+!$OMP END PARALLEL
+end subroutine ghost_remove
 !----------------------------------------------------------------------------------------
 subroutine calc_beta(uxgiven,uygiven)         ! calcule betamx et betamy
                                               ! a partir du champ de vitesse
+!$USE OMP_LIB                                 ! a partir du champ de vitesse
                                               ! uxprec, uyprec
 implicit none
 …
 real                   :: betamin = 10.       ! minimum value on grounded point (in Pa an /m)
 debug_3D(:,:,69)=uxgiven(:,:)
 debug_3D(:,:,70)=uygiven(:,:)
+!debug_3D(:,:,69)=uxgiven(:,:)
+!debug_3D(:,:,70)=uygiven(:,:)
 if (itracebug.eq.1)  call tracebug(' Subroutine calc_beta')
+!$OMP PARALLEL
+!$OMP DO
 do j=ny1+1,ny2-1
    do i=nx1+1,nx2-1
 …
                                       +Tv(i,j,il,jl)*uygiven(i+il,j+jl))
             debug_3D(i,j,82)=debug_3D(i,j,82) + (Tu(i,j,il,jl)*uxgiven(i+il,j+jl) &
                                       +Tv(i,j,il,jl)*uygiven(i+il,j+jl))
+!            debug_3D(i,j,82)=debug_3D(i,j,82) + (Tu(i,j,il,jl)*uxgiven(i+il,j+jl) &
+!                                      +Tv(i,j,il,jl)*uygiven(i+il,j+jl))
          end do
       end do
       debug_3D(i,j,82)=debug_3D(i,j,82)/dx/dx   ! longitudinal stress computed from velocities
+!      debug_3D(i,j,82)=debug_3D(i,j,82)/dx/dx   ! longitudinal stress computed from velocities
 …
       betamy(i,j)=-opposy(i,j)
       debug_3D(i,j,36) = opposy(i,j)/dx/dx      ! driving stress ou pression hydrostatique (Pa)
+!      debug_3D(i,j,36) = opposy(i,j)/dx/dx      ! driving stress ou pression hydrostatique (Pa)
       do jl=-1,1
          do il=-1,1
 …
                                       +Sv(i,j,il,jl)*uygiven(i+il,j+jl))
             debug_3D(i,j,83)=debug_3D(i,j,83) + (Su(i,j,il,jl)*uxgiven(i+il,j+jl) &
                                       +Sv(i,j,il,jl)*uygiven(i+il,j+jl))
+!            debug_3D(i,j,83)=debug_3D(i,j,83) + (Su(i,j,il,jl)*uxgiven(i+il,j+jl) &
+!                                      +Sv(i,j,il,jl)*uygiven(i+il,j+jl))
 …
       end do
       debug_3D(i,j,83)=debug_3D(i,j,83) /dx/dx  ! longitudinal stress computed from velocities
+!      debug_3D(i,j,83)=debug_3D(i,j,83) /dx/dx  ! longitudinal stress computed from velocities
 !  fonctionne même quand frotmx n'est pas nul
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 ! loop to spread negative beta on the neighbours
 …
 ! average
+    beta_centre(:,:)=0.
+    do j=2,ny-1
+       do i=2,nx-1
+          beta_centre(i,j) = ((betamx(i,j)+betamx(i+1,j)) &
+               + (betamy(i,j)+betamy(i,j+1)))*0.25
+       end do
+    end do
+!$OMP PARALLEL
+!$OMP WORKSHARE
+beta_centre(:,:)=0.
+!$OMP END WORKSHARE
+!$OMP DO
+do j=2,ny-1
+  do i=2,nx-1
+    beta_centre(i,j) = ((betamx(i,j)+betamx(i+1,j)) &
+          + (betamy(i,j)+betamy(i,j+1)))*0.25
+  end do
+end do
+!$OMP END DO
+!$OMP END PARALLEL

branches/iLoveclim/SOURCES/Recul_force_grounding_line/toy_retreat_mod.f90

-                      r22
+                      r77
   use declar_toy_retreat
   implicit none
   integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
 …
   implicit none
   integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
   real                              :: Hf           !< Hf = 0 si socle > 0 sinon H_float
   real                              :: dyy         ! variable de travail  longueur de la maille en diagonale
 …
   implicit none
   integer                           :: som_voisins  !< pour des tests
+!  integer                           :: som_voisins  !< pour des tests
   ! les nouveaux points a traiter
 …
 integer    :: num_job           ! numero du job
 integer    :: lenrun            ! longueur du run name
 integer    :: lenb              ! longueur du nom de fichier
 integer    :: pos               ! position d'un sous_string
+!integer    :: lenb              ! longueur du nom de fichier
+!integer    :: pos               ! position d'un sous_string
 real*8, dimension(:,:),   pointer  :: tab         !< tableau 2d real ecrit dans le fichier
 character(len=4)                   :: char_num    ! pour la lecture
 character(len=80)                  :: file_B_test !< file name of the bedrock map to test topo instability
 character(len=80)                  :: file_voisin !< file name of the bedrock map min or max to test topo instability
+!character(len=80)                  :: file_voisin !< file name of the bedrock map min or max to test topo instability
 …
 integer,intent(in)                 :: ii,jj         ! indice du point considere
 real                               :: dH_x          ! variable de travail
 real                               :: dH_y          ! variable de travail
+!real                               :: dH_x          ! variable de travail
+!real                               :: dH_y          ! variable de travail
 DelHdt_sanity(ii,jj) = 5000.

branches/iLoveclim/SOURCES/Temperature-routines/Qprod_icetemp.f90

-                      r24
+                      r77
   use Icetemp_declar
+!$ USE OMP_LIB
   implicit none
 …
   real, dimension(Nx,Ny)      :: Tox           !< Contraintes Sur Maille Mx
   real, dimension(Nx,Ny)      :: Toy           !< Contraintes Sur Maille Mx
+  real      :: Chalk_1       !< Utilise Pour Le Calcul De Chalk : Glace PosÃ©e
+  real      :: Chalk_2       !< Utilise Pour Le Calcul De Chalk : Ice Streams Et Ice
 …
      ! Q_prod_demi(T_m%T,T_m%Tpmp,Deform_m%Tobmx,Deform_m%Tobmy,Geom_m%H,Geom_m%Hmx,Geom_m%Hmy,mask_flot_m%Flot,mask_flot_m%Flotmx,mask_flot_m%Flotmy,mask_flot_m%Flgzmx ,mask_flot_m%Flgzmy,Geom_m%Slop_x,Geom_m%Slop_y,Ice_flow_m%Ddx,Ice_flow_m%Ddy,&
      !      Ice_flow_m%Ddbx,Ice_flow_m%Ddby,Deform_m%Epsxx,Deform_m%Epsyy,Deform_m%Epsxy,mask_flot_m%Gzmx,mask_flot_m%Gzmy,Deform_m%Btt,Ice_flow_m%Uxbar,Ice_flow_m%Uybar,therm_var_m%Phid,Deform_m%Glen,Deform_m%Visc)
+     do K=2,Nz
+        do J=2,Ny-1
+           do I=2,Nx-1
+    !$OMP PARALLEL PRIVATE(chalk_1,chalk_2)
+    !$OMP DO COLLAPSE(2)
+    do K=2,Nz
+    do J=2,Ny-1
+            do I=2,Nx-1
               ! Calcul De La Chaleur De Deformation Selon Xx Yy Zz Et Xy
 …
            end do
         end do
+     end do
+!        !$ i_min=min(i_min,j)
+!        !$ i_max=max(i_max,j)
+     end do
+        !$OMP END DO NOWAIT
+!       !$ print*,'nb_taches = ', nb_taches
+!   !$ print*,"Rang : ",rang," i_min : ",i_min," i_max : ",i_max
      !  Partie Sia   Calcul De La Chaleur Produite Sur Chaque Demi Maille
+     do L=1,size(Btt,4) !N1poly,N2poly
+        do J=2,Ny
+                !$OMP DO COLLAPSE(2)
+                do L=1,size(Btt,4) !N1poly,N2poly
+      do J=2,Ny
            do I=2,Nx
               !          Ffx A 3 Dimensions !
 …
         end do
      end do
+     do L=1,size(Btt,4)!N1poly,N2poly
+        do K=2,Nz
+           do J=2,Ny
+              do I=2,Nx
+                 if ((.not.Flotmx(I,J)).and.(.not.Gzmx(I,J))) then
+                    Chalx(I,J,K,L)=(Btt(I-1,J,K,L)+Btt(I,J,K,L))*Ffx(I,J,L) !&
+     !$OMP END DO
+     !$OMP DO COLLAPSE(2)
+          do K=2,Nz
+       do J=2,Ny
+              do I=2,Nx
+                     do L=1,size(Btt,4)!N1poly,N2poly
+                    if ((.not.Flotmx(I,J)).and.(.not.fleuvemx(I,J))) then ! grounded et slowssa
+                        Chalx(I,J,K,L)=(Btt(I-1,J,K,L)+Btt(I,J,K,L))*Ffx(I,J,L) !&
                     !                      *Ro*G*Ee(K)**(Glen(L)+1)/Cp(I,J,K)
                  else if (Gzmx(I,J)) then ! Ice Streams
                     Chalx(I,J,K,L)=0.
                  else                     ! Ice Shelves
                     Chalx(I,J,K,L)=0.
                  endif
+                 if ((.not.Flotmy(I,J)).and.(.not.Gzmy(I,J))) then
                     Chaly(I,J,K,L)=(Btt(I,J-1,K,L)+Btt(I,J,K,L))*Ffy(I,J,L) !&
+                    else if (fleuvemx(I,J)) then ! Ice Streams
+                        Chalx(I,J,K,L)=0.
+                    else                     ! Ice Shelves
+                        Chalx(I,J,K,L)=0.
+                    endif
+                    if ((.not.Flotmy(I,J)).and.(.not.fleuvemy(I,J))) then ! grounded et slowssa
+                        Chaly(I,J,K,L)=(Btt(I,J-1,K,L)+Btt(I,J,K,L))*Ffy(I,J,L) !&
                     !                      *Ro*G*Ee(K)**(Glen(L)+1)/Cp(I,J,K)
+                 else if (Gzmy(I,J)) then  ! Ice Streams
+                    Chaly(I,J,K,L)=0.
+                 else                      ! Ice Shelves
+                    Chaly(I,J,K,L)=0.
+                 endif
+              end do
+           end do
+        end do
+     end do
+                    else if (fleuvemy(I,J)) then  ! Ice Streams
+                        Chaly(I,J,K,L)=0.
+                    else                      ! Ice Shelves
+                        Chaly(I,J,K,L)=0.
+                    endif
+                   end do
+            end do
+      end do
+     end do
+     !$OMP END DO
      !         Nouvelle Formulation De Chaldef_maj(I,J,K), Le 4 Vient Des Moyennes
 …
      !         Ancienne Formulation Chal=(Ro*G*H(I,J))**4*(Sx2+Sy2)*(Sx*Sx+Sy*Sy)
      do K=2,Nz
         do J=1,Ny-1
            do I=1,Nx-1
+    !$OMP DO COLLAPSE(2)
+    do K=2,Nz
+      do J=1,Ny-1
+            do I=1,Nx-1
               ! Modif Christophe Mars 2000 : Chalx Et Chaly Sont A 4 Dim
               Chaldef_maj(I,J,K)= 0.
 …
         end do
      end do
+     !$OMP END DO NOWAIT
      ! Chaleur Produite A La Base Par Le Glissement
+     !$OMP DO
      do J=2,Ny
         do I=2,Nx
 …
            endif
+        end do
+     end do
+        end do
+     end do
+     !$OMP END DO
      !  Boundary Condition Ice-Rock Interface
      K=Nz
+     !$OMP DO
      do J=2,Ny-1
         do I=2,Nx-1
 …
         end do
      end do
+     !$OMP END DO
+     !$OMP END PARALLEL
   case (2)             ! Q_prod_centre : Calcul Avec La Somme Des Carres
 …
            do J=2,Ny
               do I=2,Nx
                  if ((.not.Flotmx(I,J)).and.(.not.Gzmx(I,J))) then
+                 if ((.not.Flotmx(I,J)).and.(.not.fleuvemx(I,J))) then
                     Chalx(I,J,K,L)=(Btt(I-1,J,K,L)+Btt(I,J,K,L))*Ffx(I,J,L) !&
                     !                      *Ro*G*Ee(K)**(Glen(L)+1)/Cp(I,J,K)
                  else if (Gzmx(I,J)) then ! Ice Streams
+                 else if (fleuvemx(I,J)) then ! Ice Streams
                     Chalx(I,J,K,L)=0.
 …
                  endif
                  if ((.not.Flotmy(I,J)).and.(.not.Gzmy(I,J))) then
+                 if ((.not.Flotmy(I,J)).and.(.not.fleuvemy(I,J))) then
                     Chaly(I,J,K,L)=(Btt(I,J-1,K,L)+Btt(I,J,K,L))*Ffy(I,J,L) !&
                     !                      *Ro*G*Ee(K)**(Glen(L)+1)/Cp(I,J,K)
                  else if (Gzmy(I,J)) then  ! Ice Streams
+                 else if (fleuvemy(I,J)) then  ! Ice Streams
                     Chaly(I,J,K,L)=0.
 …
            do J=2,Ny
               do I=2,Nx
                  if ((.not.Flotmx(I,J)).and.(.not.Gzmx(I,J))) then
+                 if ((.not.Flotmx(I,J)).and.(.not.fleuvemx(I,J))) then
                     Chalx(I,J,K,L)=(Btt(I-1,J,K,L)+Btt(I,J,K,L))*ddx(I,J,L)
                  else if (Gzmx(I,J)) then ! Ice Streams
+                 else if (fleuvemx(I,J)) then ! Ice Streams
                     Chalx(I,J,K,L)=0.
 …
                  endif
                  if ((.not.Flotmy(I,J)).and.(.not.Gzmy(I,J))) then
+                 if ((.not.Flotmy(I,J)).and.(.not.fleuvemy(I,J))) then
                     Chaly(I,J,K,L)=(Btt(I,J-1,K,L)+Btt(I,J,K,L))*ddy(I,J,L)
                  else if (Gzmy(I,J)) then  ! Ice Streams
+                 else if (fleuvemy(I,J)) then  ! Ice Streams
                     Chaly(I,J,K,L)=0.
 …
   end select
 end subroutine Qprod_ice

branches/iLoveclim/SOURCES/Temperature-routines/advec_icetemp.f90

-                      r24
+                      r77
 !>
+Subroutine  Advec_icetemp(Ii,Jj,Prodq_m,Cro_m,Advecx_m,Advecy_m,Advec_m,Ct_m)
+Subroutine  Advec_icetemp(Nz,Nzm,Nn,Prodq_m,Cro_m,Advecx_m,Advecy_m,Advec_m,Ct_m,Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n, &
+        Uxij,Uxi_plus_un,Uyij,Uyj_plus_un,Tij,Ti_moins_un,Ti_plus_un,Tj_moins_un,Tj_plus_un,Hij,Tsij,Aa,Bb,Cc,Rr, &
+        Dx11,Dou,DTT,Dee,Uzrij,Dttdx)
   use icetemp_declar
+!  use icetemp_declar
   Implicit None
     !< Arguments
+  Integer,                     Intent(In)  ::  Ii,Jj          !< Indice Selon X Et Y
+  Real, Dimension(Nz),         Intent(In)   :: Prodq_m        !< Tableau 1d Vert. heat production
+  Real, Dimension(Nz),         Intent(In)   :: Cro_m          !< Tableau 1d Vert. heat capcity
+  Real, Dimension(Nz),         Intent(Inout):: Advecx_m       !< Advection selon x
+  Real, Dimension(Nz),         Intent(Inout):: Advecy_m       !< Advection selon y
+  Real, Dimension(Nz),         Intent(Inout):: Advec_m        !< Advection total
+  Real, Dimension(Nz),         Intent(In)   :: Ct_m           !< Tableau 1d Vert.  thermal cond.
+  Integer,                     intent(in)  ::  Nz,Nzm,Nn      !< Taille des tableaux
+  Real, Dimension(Nz),         intent(in)   :: Prodq_m        !< Tableau 1d Vert. heat production
+  Real, Dimension(Nz),         intent(in)   :: Cro_m          !< Tableau 1d Vert. heat capcity
+  Real, Dimension(Nz),         intent(inout):: Advecx_m       !< Advection selon x
+  Real, Dimension(Nz),         intent(inout):: Advecy_m       !< Advection selon y
+  Real, Dimension(Nz),         intent(inout):: Advec_m        !< Advection total
+  Real, Dimension(Nz),         intent(in)   :: Ct_m           !< Tableau 1d Vert.  thermal cond.
+  Integer, intent(in) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n
+  real, dimension(Nz), Intent(in) :: Uxij, Uxi_plus_un
+  real, dimension(Nz), Intent(in) :: Uyij, Uyj_plus_un
+  real, dimension(Nz+Nzm), Intent(inout) :: Tij
+  real, dimension(Nz+Nzm), Intent(in) :: Ti_moins_un,Ti_plus_un,Tj_moins_un,Tj_plus_un
+  real, intent(in) :: Hij
+  real,intent(in) :: Tsij
+  Real,Dimension(Nn),intent(inout) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
+  Real, intent(in) :: Dx11
+  Real, intent(inout) :: Dou
+  real, intent(in) :: DTT
+  real, intent(in) :: Dee
+  real, dimension(Nz) :: Uzrij
+  real :: Dttdx
+  ! variables locales
+  Integer :: K
+  Real :: Dzz,Dah,Ct_haut,Ct_bas
 …
      !         Avection Selon X  (advecx_m en general > 0)
      !         ----------------
      Advecx_m(K) = Iadvec_w(Ii,Jj) * Ux(Ii,Jj,K) *          & ! ux west if upwind
           (T(Ii,Jj,K) - T(Ii-1,Jj,K))  & ! west T gradient
+     Advecx_m(K) = Iadvec_w * Uxij(K) *          & ! ux west if upwind
+          (Tij(K) - Ti_moins_un(K))  & ! west T gradient
           + Iadvec_e(Ii+1,Jj)* Ux(Ii+1,Jj,K)*      & ! ux east if upwind
           (T(Ii+1,Jj,K)-T(Ii,Jj,K))     ! east T gradient
+          + Iadvec_e * Uxi_plus_un(K)*      & ! ux east if upwind
+          (Ti_plus_un(K)-Tij(K))     ! east T gradient
      Advecx_m(K) =  Advecx_m(K) * Dx11                                        !Dx11=1/Dx
 …
      !         Avection Selon Y
      !         ----------------
      Advecy_m(K) =   Iadvec_s(Ii,Jj) * Uy(Ii,Jj,K) *        & ! uy sud if upwind
           (T(Ii,Jj,K) - T(Ii,Jj-1,K))& ! south T gradient
+     Advecy_m(K) =   Iadvec_s * Uyij(K) *        & ! uy sud if upwind
+          (Tij(K) - Tj_moins_un(K))& ! south T gradient
           + Iadvec_n(Ii,Jj+1) * Uy(Ii,Jj+1,K) *   & ! uy nord is upwind
           (T(Ii,Jj+1,K)-T(Ii,Jj,K))    ! north T gradient
+          + Iadvec_n * Uyj_plus_un(K) *   & ! uy nord is upwind
+          (Tj_plus_un(K)-Tij(K))    ! north T gradient
      Advecy_m(K) =  Advecy_m(K) * Dx11
 …
   !      -----------------------------Cas General (H>10m)
   thick_ice:  If (H(Ii,Jj).Gt.10.) Then
+  thick_ice:  If (Hij.Gt.10.) Then
      !        Variables De Calcul Dans La Glace
      ! dou = dtt/dz^2
      Dou=Dtt/Dee/Dee/ H(Ii,Jj) / H(Ii,Jj)
+     Dou=Dtt/Dee/Dee/ Hij / Hij
      ! Dah = dtt/dz
      Dah=Dtt /Dee /H(Ii,Jj)
+     Dah=Dtt /Dee /Hij
      ! thermal conductivity at mid point just below the surface
 …
      ! surface temperature : cannot go above 0 celsius
      T(Ii,Jj,1)=Min(0.,Ts(Ii,Jj))
+     Tij(1)=Min(0.,Tsij)
      ! surface boundary condition
 …
      Bb(1)=1.
      Cc(1)=0.
      Rr(1)=T(Ii,Jj,1)
+     Rr(1)=Tij(1)
      Do K=2,Nz-1
 …
         ! Advection Verticale Centree
         Aa(K) = -Dzz * Ct_haut - Uzr(Ii,Jj,K) * Dah / 2.  ! lower diag
         Cc(K) = -Dzz * Ct_bas  + Uzr(Ii,Jj,K) * Dah / 2.  ! upper diag
+        Aa(K) = -Dzz * Ct_haut - Uzrij(K) * Dah / 2.  ! lower diag
+        Cc(K) = -Dzz * Ct_bas  + Uzrij(K) * Dah / 2.  ! upper diag
         Bb(K) =  1.+ Dzz * (Ct_haut+Ct_bas)                                ! diag
         Rr(K) =  T(Ii,Jj,K) + Prodq_m(K) * Dtt   ! vector
+        Rr(K) =  Tij(K) + Prodq_m(K) * Dtt   ! vector
         Rr(K) =  Rr(K)- Dttdx * (Advec_m(K))

branches/iLoveclim/SOURCES/Temperature-routines/icetemp_declar_mod.f90

-                      r31
+                      r77
   Integer :: Nfracq   !< Exposant Fracq
   Integer :: Iq       !< Choix Du Type De Routine Chaleur
   Real :: Sx,Sy,Sx2,Sy2,Deh22,Tss
   Real ::  Dou,Dah,Duu,Dzz,Dzi,Chalbed,Ct_bas,Ct_haut
+  Real :: Sx,Sy,Sx2,Sy2,Deh22 ! ,Tss
+  Real ::  Dou,Duu,Chalbed ! ,Dah,Dzz,Dzi,Ct_bas,Ct_haut
   Real,Parameter :: Acof1=-0.0575  !< Pour La Temperature De L'Eau De Mer
 …
   ! a la Base De L'Ice Shelf
   Integer :: Ifail1             !< Permet De Detecter Les Erreurs
-  Real :: Chalk_1               !< Utilise Pour Le Calcul De Chalk : Glace PosÃ©e
-  Real :: Chalk_2               !< Utilise Pour Le Calcul De Chalk : Ice Streams Et Ice Shelves
   Real :: Chalbed_1             !< Utilise Pour Le Calcul De Chalbed
   Real :: Coefadv               !< Pour Limiter Le Flux De Chaleur Horiz.
 …
   ! _______________
   Real,allocatable,Dimension(:) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
   Real,allocatable,Dimension(:) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
   Real,allocatable,Dimension(:) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
   Real,allocatable,Dimension(:) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
   Real,allocatable,Dimension(:) :: Hh    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn) :: Hh    !< Work Arrays For Tridiag  !Dim Nn
   Real,allocatable,Dimension(:) :: Tdot   !< Temperature Time Derivative*Dtt
   Real,allocatable,Dimension(:) :: Abis,Bbis,Cbis,Rbis,Hbis
   Real,allocatable,Dimension(:) :: Ee        !< Vertical Coordinate In Ice, Scaled To H Zeta
+  Real,Dimension(Nz+Nzm) :: Tdot   !< Temperature Time Derivative*Dtt
+!  Real,allocatable,Dimension(:) :: Abis,Bbis,Cbis,Rbis,Hbis
+  Real,Dimension(Nz) :: Ee        !< Vertical Coordinate In Ice, Scaled To H Zeta
   ! Tableaux De Travail 2d
   ! ___________________________
   Real,allocatable,Dimension(:,:):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf
   Real,allocatable,Dimension(:,:) :: Chalglissx,Chalglissy !< Chaleur De Glissement
   Integer,allocatable,Dimension(:,:) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n
+  Real,Dimension(Nx,Ny):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf
+  Real,Dimension(Nx,Ny) :: Chalglissx,Chalglissy !< Chaleur De Glissement
+  Integer,Dimension(Nx,Ny) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n
   ! Pour L'Advection
   ! Tableaux De Travail 3d
   ! __________________________
   Real,allocatable,Dimension(:,:,:,:) :: Chalx, Chaly         !Dim Nx,Ny,Nz,N1poly:N2poly
+  Real,Dimension(Nx,Ny,Nz,size(Btt,4)) :: Chalx, Chaly         !Dim Nx,Ny,Nz,N1poly:N2poly
   ! Utilise Pour Calculer La Chaleur De Deformation Selon Xx Yy Zz Et Xy
   Real,allocatable,Dimension(:,:,:) :: Ffx,Ffy
   Real,allocatable,Dimension(:,:,:) :: T3d_new
   Real,allocatable,Dimension(:,:,:) :: Chal2_x, Chal2_y, Chal2_z, Chal2_xy
   Real,allocatable,Dimension(:,:,:) :: Chaldef_maj   !< Chaleur De Deformation
   Real,allocatable,Dimension(:,:,:) :: Advecx,Advecy,Advec
+  Real,Dimension(Nx,Ny,size(Btt,4)) :: Ffx,Ffy
+  Real,Dimension(Nx,Ny,Nz+Nzm) :: T3d_new
+  Real,Dimension(Nx,Ny,Nz) :: Chal2_x, Chal2_y, Chal2_z, Chal2_xy
+  Real,Dimension(Nx,Ny,Nz) :: Chaldef_maj   !< Chaleur De Deformation
+  Real,Dimension(Nx,Ny,Nz) :: Advecx,Advecy,Advec
   Real,Dimension(Nx,Ny,Nz) :: Cp            !< Specific Heat Capacity (J/(M-3)/K)=Ro Cp
   Real,Dimension(Nx,Ny,Nz) :: Ct            !< Thermal Conductivity (J/M/K/A)

branches/iLoveclim/SOURCES/Temperature-routines/icetemp_mod.f90

-                      r31
+                      r77
   subroutine icetemp
+    !$ use OMP_LIB
     use Icetemp_declar
     Implicit None
+    ! Allocation de la memoire pour les tableaux dans icetemp_declar
+    If (.Not. Allocated(Aa)) then
+       ! tab Nn
+       Allocate (Aa(Nn),Bb(Nn),Cc(Nn),Rr(Nn),Hh(Nn))
+       ! tab NzNzm_m
+       Allocate(Tdot(Nz+Nzm))
+       ! tab Nzm+1
+       Allocate(Abis(Nzm+1),Bbis(Nzm+1),Cbis(Nzm+1),Rbis(Nzm+1),Hbis(Nzm+1))
+       ! tab nz_m
+       Allocate(Ee(Nz))
+       !Tab Nx,Ny
+       Allocate(Tbmer(Nx,Ny),&
+            Chalglissx(Nx,Ny),&
+            Chalglissy(Nx,Ny),&
+            Iadvec_w(Nx,Ny),&
+            Iadvec_e(Nx,Ny),&
+            Iadvec_s(Nx,Ny),&
+            Iadvec_n(Nx,Ny) )
+       ! Tab Nx,Ny,Nz
+       Allocate(Chal2_x(Nx,Ny,Nz),&
+            Chal2_y(Nx,Ny,Nz),&
+            Chal2_z(Nx,Ny,Nz),&
+            Chal2_xy(Nx,Ny,Nz),&
+            Chaldef_maj(Nx,Ny,Nz),&
+            Advecx(Nx,Ny,Nz),&
+            Advecy(Nx,Ny,Nz),&
+            Advec(Nx,Ny,Nz))
+       ! Tab Nx,Ny,Nz,N1poly:N2poly
+       Allocate(Chalx(Nx,Ny,Nz,size(Btt,4)),&
+            Chaly(Nx,Ny,Nz,size(Btt,4)))
+       ! Tab Nx,Ny,N1poly:N2poly
+       Allocate(Ffx( Nx,Ny,size(Btt,4)),&
+            Ffy( Nx,Ny,size(Btt,4)))
+       ! Tab Nx,Ny,NzNzm
+       Allocate( T3d_new (Nx,Ny,Nz+Nzm))
+    end If
+!~   integer :: t1,t2,ir
+!~   real                           :: temps, t_cpu_0, t_cpu_1, t_cpu, norme
+!~
+!~    ! Temps CPU de calcul initial.
+!~    call cpu_time(t_cpu_0)
+!~    ! Temps elapsed de reference.
+!~    call system_clock(count=t1, count_rate=ir)
+         !$OMP PARALLEL
+         !$OMP WORKSHARE
     ! init
     Aa=0.
 …
     Chalglissx=0.
     Chalglissy=0.
     !Instruction
     Dee=1./(Nz-1)
 …
     Ee(1)=0.
     Ee(Nz)=1.
+    !$OMP END WORKSHARE
+    !$OMP DO
     Do K=1,Nz
        If ((K.Ne.1).And.(K.Ne.Nz)) Ee(K)=(K-1.)/(Nz-1.)
     End Do
+    !$OMP END DO
+    !$OMP END PARALLEL
     !   Variables Dependant Du Pas De Temps Dtt
 …
     Call Qprod_ice(Iq)
     ! Dans Le Socle : Les elements de La Matrice Tridiag Sont Invariants Dans L'Espace
+    !$OMP PARALLEL
+    !$OMP DO
     Do K=Nz+1,nz+nzm-1
        Aa(K)=-Ctm
 …
        Cc(K)=-Ctm
     End Do
+         !$OMP END DO
     ! Conditions Aux Limites Pour Le Socle
 …
     !         Advection Selon X
     !         -----------------
+    !$OMP WORKSHARE
     Iadvec_w(:,:)=Nint(Max(Sign(1.0,Uxbar(:,:)),0.0))
     Iadvec_e(:,:)=Nint(Abs(Min(Sign(1.0,Uxbar(:,:)),0.0)))
 …
     Iadvec_s(:,:)=Nint(Max(Sign(1.0,Uybar(:,:)),0.0))
     Iadvec_n(:,:)=Nint(Abs(Min(Sign(1.0,Uybar(:,:)),0.0)))
+    !$OMP END WORKSHARE
     ! Boucle De Resolution Des Temperatures Colonne Par Colonne
+         !$OMP SINGLE
     If (Itracebug.Eq.1) Write(num_tracebug,*)' avant appel  boucle Advec_icetemp'
+    !$OMP END SINGLE
+         !$OMP DO PRIVATE(Deh22,Duu,Aa,Bb,Cc,Rr,Hh,Dou)
     Do J=2,Ny-1
        Do I=2,Nx-1
  !  If (Itracebug.Eq.1) Write(num_tracebug,*)' avant appel  Advect_icetemp  i,j', i,j
+          call Advec_icetemp(I,J,Chaldef_maj(I,J,:),Cp(I,J,:),&
+               Advecx(I,J,:),Advecy(I,J,:),Advec(I,J,:),Ct(I,J,:))
+          call Advec_icetemp(Nz,Nzm,Nn,Chaldef_maj(I,J,:),Cp(I,J,:),&
+               Advecx(I,J,:),Advecy(I,J,:),Advec(I,J,:),Ct(I,J,:),Iadvec_w(I,J),Iadvec_e(I+1,J),Iadvec_s(I,J),Iadvec_n(I,J+1), &
+                                        Ux(i,j,:),Ux(i+1,j,:),Uy(i,j,:),Uy(i,j+1,:),T(i,j,:),T(i-1,j,:),T(i+1,j,:),T(i,j-1,:),T(i,j+1,:), &
+                                        H(i,j),Ts(i,j),Aa,Bb,Cc,Rr,Dx11,Dou,DTT,Dee,Uzr(i,j,:),Dttdx)
           ! variables de calcul dans la glace
 …
 !   If (Itracebug.Eq.1) Write(num_tracebug,*)' avant appel  temp_col  i,j', i,j
+          Call temp_col(I,J,T3d_new,Ct(I,J,:),&
+               flot(I,J),H(I,J),Tbmer(I,J))
+          Call temp_col(Nz,Nzm,Nn,T3d_new(i,j,:),Ct(i,j,:),&
+               flot(i,j),H(i,j),Tbmer(i,j),Ibase(i,j),T(i,j,:),Tpmp(i,j,:),Aa,Bb,Cc,Rr,Hh,Ncond,Dee,Cm,&
+               Dzm,Phid(i,j),Ghf(i,j),Ifail1,Tbdot(i,j),DTT,Dou,Ts(i,j),Bmelt(i,j))
           ! Test Permettant D'Ecrire Les Variables Quand Il Y A Une Erreur
 …
        End Do
     End Do
+         !$OMP END DO
+         !$OMP DO
     Do J=1,Ny
        Do I=1,Nx
 …
        End Do
     End Do
+    !$OMP END DO
     ! Attribution Finale De La Temperature
     ! Limitation a 3 deg De Variation Par Dtt Et Pas Plus Froid Que -70
+         !$OMP DO COLLAPSE(2) PRIVATE(Tdot)
     Do K=1,nz+nzm
        Do J=1,Ny
 …
        End Do
     End Do
+    !$OMP END DO
+         !$OMP DO COLLAPSE(2)
     Do K=2,Nz
        Do J=1,Ny
 …
        End Do
     End Do
+    !$OMP END DO
     !     Temperature Sur Les Bords :
     !     -------------------------
+    !$OMP DO COLLAPSE(2)
     Do K=1,Nz
        Do J=1,Ny
 …
        End Do
     End Do
+    !$OMP END DO
+    !$OMP DO COLLAPSE(2)
     Do K=1,Nz
        Do J=1,Ny
 …
        End Do
     End Do
+    Deallocate (Aa,Bb,Cc,Rr,Hh,Tdot,Abis,Bbis,Cbis,Rbis,Hbis,Ee,Tbmer,            &
+                Chalglissx,Chalglissy,Iadvec_w,Iadvec_e,                          &
+                Iadvec_s,Iadvec_n,Chal2_x,Chal2_y,Chal2_z,Chal2_xy,Chaldef_maj,   &
+                Advecx,Advecy,Advec,Chalx,Chaly,Ffx,Ffy,T3d_new)
+    !$OMP END DO
+    !$OMP END PARALLEL
+!~   ! Temps elapsed final
+!~   call system_clock(count=t2, count_rate=ir)
+!~   temps=real(t2 - t1,kind=4)/real(ir,kind=4)
+!~   ! Temps CPU de calcul final
+!~   call cpu_time(t_cpu_1)
+!~   t_cpu = t_cpu_1 - t_cpu_0
+!~   ! Impression du resultat.
+!~   print '(//,3X,"Valeurs de nx et ny : ",I5,I5/,              &
+!~            & 3X,"Temps elapsed       : ",1PE10.3," sec.",/, &
+!~            & 3X,"Temps CPU           : ",1PE10.3," sec.",/, &
+!~            & 3X,"Norme (PB si /= 0)  : ",1PE10.3,//)', &
+!~            nx,ny,temps,t_cpu,norme
     If (Itracebug.Eq.1) Write(num_tracebug,*)' fin routine icetemp'

branches/iLoveclim/SOURCES/Temperature-routines/prop_th_icetemp.f90

-                      r24
+                      r77
 Subroutine Thermal_prop_icetemp
+!$ USE OMP_LIB
   Use Icetemp_declar
 …
   If (Itracebug.Eq.1) Write(Num_tracebug,*)' Entree Dans Routine Thermal_prop_icetemp'
+!$OMP PARALLEL
+!$OMP DO COLLAPSE(2)
   Do K=1,Nz
      Do J=1,Ny
 …
            !  Attention Pour La Conductivite C'Est La Formule De Yin-Chao Yen
            Ct(I,J,K)=6.62E7
            Cp(I,J,K)=2009.
+!           Ct(I,J,K)=6.62E7
+!           Cp(I,J,K)=2009.
            Tpmp(I,J,K)=-0.00087*(K-1)*1./(Nz-1)*H(I,J)!De=1/(Nz_m-1)
            Cp(I,J,K)=(2115.3+7.79293*T(I,J,K))
 …
      End Do
   End Do
+!$OMP END DO
+!$OMP END PARALLEL
 End Subroutine Thermal_prop_icetemp

branches/iLoveclim/SOURCES/Temperature-routines/temp_col.f90

-                      r24
+                      r77
 !>
+Subroutine  Temp_col(Ii,Jj,Newtempcol_m,Ct_m,Flot_m,H_m,Tbmer_m)
+  Use Icetemp_declar
+Subroutine  Temp_col(Nz,Nzm,Nn,Newtempcol,Ctij,Flotij,Hij,Tbmerij,Ibase,Tij,Tpmpij,Aa,Bb,Cc,Rr,Hh,Ncond,Dee,Cm, &
+                                Dzm,Phidij,Ghfij,Ifail1,Tbdotij,DTT,Dou,Tsij,Bmeltij)
+!  Use Icetemp_declar
   Use Tridiagmod
   Implicit None
+  integer :: Ii,Jj
+  Real,Dimension(Nx,Ny,Nz+Nzm),Intent(Out)  :: Newtempcol_m        !< Tableau 1d Vert. Des Temperatures En Sortie
+  Real,Dimension(Nz),Intent(In)             :: Ct_m                !< Tableau 1d Vert. Conductivite Thermique
+  Logical,Intent(In)                        :: Flot_m              !< Vrai Si Flot_mtant (Test D'Archimede) 'O'
+  Real,Intent(In)                           :: H_m                 !< Ice Thickness  'O'
+  Real,Intent(In)                           :: Tbmer_m             !< Temperature De La Mer A La Base De L'Ice Shelf
+  If (H_m.Gt.10.) Then
+  integer,intent(in) :: Nz,Nzm,Nn
+  Real,Dimension(Nz+Nzm),Intent(Out)  :: Newtempcol        !< Tableau 1d Vert. Des Temperatures En Sortie
+  Real,Dimension(Nz),Intent(In)       :: Ctij                !< Tableau 1d Vert. Conductivite Thermique
+  Logical,Intent(In)                  :: Flotij              !< Vrai Si Flotijtant (Test D'Archimede) 'O'
+  Real,Intent(In)                     :: Hij                 !< Ice Thickness  'O'
+  Real,Intent(In)                     :: Tbmerij             !< Temperature De La Mer A La Base De L'Ice Shelf
+  integer,intent(inout)               :: Ibase
+  real,dimension(Nz+Nzm),intent(inout) :: Tij             !< Temperature sur la colonne
+  real,dimension(Nz),intent(in)       :: Tpmpij               !< pressure melting point temperature in ice sheet 'o'
+  Real,Dimension(Nn),intent(inout) :: Aa    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Bb    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Cc    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Rr    !< Work Arrays For Tridiag  !Dim Nn
+  Real,Dimension(Nn),intent(inout) :: Hh    !< Work Arrays For Tridiag  !Dim Nn
+  Integer,intent(in)               :: Ncond !< Switch : Ncond=1 Thermal Conductivity In Mantle
+  real, intent(in) :: Dee
+  real,intent(in) :: Cm
+  real,intent(in) :: Dzm
+  real,intent(inout) :: Phidij     !< flux de chaleur lie a la deformation et glissement basal
+  real,intent(in) :: Ghfij      !< flux geothermique
+  integer,intent(out) :: Ifail1 !< Diagnostique erreur dans Tridiag
+  real, intent(out) :: Tbdotij  !< variation in time of basal temperature
+  real, intent(in) :: DTT
+  Real, intent(inout) :: Dou
+  real, intent(in) :: Tsij        !< surface ice temperature  'o'
+  real, intent(out) :: Bmeltij    !< fonte basale
+  ! variables locales
+  integer :: K
+  Real :: Dzi,Tss
+  Real,Dimension(Nzm+1) :: Abis,Bbis,Cbis,Rbis,Hbis
+  If (Hij.Gt.10.) Then
      ! Conditions Aux Limites a La Base De La Glace
 …
      ! Base Froide
      If ( ((Ibase(Ii,Jj).Eq.1).Or.(Ibase(Ii,Jj).Eq.4) &
           .Or. ((Ibase(Ii,Jj).Eq.5).And.(T(Ii,Jj,Nz).Lt.Tpmp(Ii,Jj,Nz)))) &
           .And..Not.Flot_m) Then
         Ibase(Ii,Jj)=1
+     If ( ((Ibase.Eq.1).Or.(Ibase.Eq.4) &
+          .Or. ((Ibase.Eq.5).And.(Tij(Nz).Lt.Tpmpij(Nz)))) &
+          .And..Not.Flotij) Then
+        Ibase=1
         Bb(Nz)=1.
         If (Ncond.Eq.1) Then ! Avec Socle
            Dzi=H_m*Dee*Cm/Ct_m(Nz)
+           Dzi=Hij*Dee*Cm/Ctij(Nz)
            Aa(Nz)=-Dzm/(Dzm+Dzi)
            Cc(Nz)=-Dzi/(Dzm+Dzi)
            Rr(Nz)=H_m*Dee*Phid(Ii,Jj)*Dzm/Ct_m(Nz)/(Dzm+Dzi)
+           Rr(Nz)=Hij*Dee*Phidij*Dzm/Ctij(Nz)/(Dzm+Dzi)
         Else                 ! Sans Socle
            Aa(Nz)=-1.
            Cc(Nz)=0.
            Rr(Nz)=-(Ghf(Ii,Jj)-Phid(Ii,Jj))/Ct_m(Nz)*H_m*Dee
+           Rr(Nz)=-(Ghfij-Phidij)/Ctij(Nz)*Hij*Dee
         Endif
 …
         ! Base Temperee Ou Shelf
         ! ----------------------
         If (Ibase(Ii,Jj).Eq.5)  Ibase(Ii,Jj)=2
         Ibase(Ii,Jj)=Max(Ibase(Ii,Jj),2)
+        If (Ibase.Eq.5)  Ibase=2
+        Ibase=Max(Ibase,2)
         Aa(Nz)=0.
         Bb(Nz)=1.
         Cc(Nz)=0.
         If (.Not.Flot_m) Then
            Rr(Nz)=Tpmp(Ii,Jj,Nz)
         Else
            Rr(Nz)=Tbmer_m
+        If (.Not.Flotij) Then
+           Rr(Nz)=Tpmpij(Nz)
+        Else
+           Rr(Nz)=Tbmerij
         End If
 …
      If (Ncond.Eq.1) Then ! Avec Socle
         Do K=Nz+1,nz+nzm-1
            Rr(K)=T(Ii,Jj,K)
+           Rr(K)=Tij(K)
         End Do
         Call Tridiag (Aa,Bb,Cc,Rr,Hh,nz+nzm,Ifail1)
 …
      If (Ncond.Eq.0) Then
         Do K=Nz+1,nz+nzm
            Hh(K)=Hh(Nz)-Dzm*(K-Nz)*Ghf(Ii,Jj)/Cm
+           Hh(K)=Hh(Nz)-Dzm*(K-Nz)*Ghfij/Cm
         End Do
      Endif
      Do K=1,nz+nzm
         Newtempcol_m(Ii,Jj,K)=Hh(K)
+        Newtempcol(K)=Hh(K)
      End Do
      Tbdot(Ii,Jj)=(Newtempcol_m(Ii,Jj,Nz)-T(Ii,Jj,Nz))/Dtt
+     Tbdotij=(Newtempcol(Nz)-Tij(Nz))/Dtt
      !      ------------------------------------------------- Glace Tres Fine (H<10m Ou H=0)
   Else If (H_m.Le.10.) Then
+  Else If (Hij.Le.10.) Then
      !       Pour Eviter Des Problemes Lorsque H Est Inferieur A 10 M
 …
      ! ........................................ Avec Calcul Dans Le Socle
      If (Ncond.Eq.1.And..Not.Flot_m) Then
         If (H_m.Gt.0.) Then
+     If (Ncond.Eq.1.And..Not.Flotij) Then
+        If (Hij.Gt.0.) Then
            ! Gradient Dans Le Socle
            Dou=(T(Ii,Jj,Nz+1)-T(Ii,Jj,Nz))/Dzm*Cm
            Dou=Dou/Ct_m(Nz)*Dee*H_m
            Tss=Min(0.,Ts(Ii,Jj))
            Do K=1,Nz
               Newtempcol_m(Ii,Jj,K)=Tss+Dou*(K-1.)
+           Dou=(Tij(Nz+1)-Tij(Nz))/Dzm*Cm
+           Dou=Dou/Ctij(Nz)*Dee*Hij
+           Tss=Min(0.,Tsij)
+           Do K=1,Nz
+              Newtempcol(K)=Tss+Dou*(K-1.)
            End Do
         Else
            ! Pas De Glace
            Tss=Ts(Ii,Jj)
            Do K=1,Nz
               Newtempcol_m(Ii,Jj,K)=Tss
+           Tss=Tsij
+           Do K=1,Nz
+              Newtempcol(K)=Tss
            End Do
         End If
         ! Calcul Dans Le Socle Meme S'Il N'Y A Pas De Glace
         Rr(Nz)=Newtempcol_m(Ii,Jj,Nz)
+        Rr(Nz)=Newtempcol(Nz)
         Aa(Nz)=0
         Bb(Nz)=1
 …
         Do K=Nz+1,nz+nzm-1
            Rr(K)=T(Ii,Jj,K)
+           Rr(K)=Tij(K)
         End Do
 …
      Else
         ! Calotte Posee
         If ((H_m.Gt.0.).And..Not.Flot_m) Then
            Dou=-Ghf(Ii,Jj)/Ct_m(Nz)*Dee*H_m
            Tss=Min(0.,Ts(Ii,Jj))
            Do K=1,Nz
               Newtempcol_m(Ii,Jj,K)=Tss+Dou*(K-1.)
+        If ((Hij.Gt.0.).And..Not.Flotij) Then
+           Dou=-Ghfij/Ctij(Nz)*Dee*Hij
+           Tss=Min(0.,Tsij)
+           Do K=1,Nz
+              Newtempcol(K)=Tss+Dou*(K-1.)
            End Do
            !  Shelf
         Else If ((H_m.Gt.0.).And.Flot_m) Then
            Tss=Min(0.,Ts(Ii,Jj))
            Dou=(Tbmer_m-Tss)*Dee
            Do K=1,Nz
               Newtempcol_m(Ii,Jj,K)=Tss+Dou*(K-1.)
+        Else If ((Hij.Gt.0.).And.Flotij) Then
+           Tss=Min(0.,Tsij)
+           Dou=(Tbmerij-Tss)*Dee
+           Do K=1,Nz
+              Newtempcol(K)=Tss+Dou*(K-1.)
            End Do
            ! Pas De Glace
         Else
            Tss=Ts(Ii,Jj)
            Do K=1,Nz
               Newtempcol_m(Ii,Jj,K)=Tss
+           Tss=Tsij
+           Do K=1,Nz
+              Newtempcol(K)=Tss
            End Do
         End If
         ! Temperature Dans Le Socle, Lineaire Avec Le Gradient Ghf
         If (.Not.Flot_m) Then
+        If (.Not.Flotij) Then
            Do K=Nz+1,nz+nzm
               Hh(K)=Newtempcol_m(Ii,Jj,Nz)-Dzm*(K-Nz)*Ghf(Ii,Jj)/Cm
+              Hh(K)=Newtempcol(Nz)-Dzm*(K-Nz)*Ghfij/Cm
            End Do
         Else
            Do K=Nz+1,nz+nzm
               Hh(K)=Tbmer_m-Dzm*(K-Nz)*Ghf(Ii,Jj)/Cm
+              Hh(K)=Tbmerij-Dzm*(K-Nz)*Ghfij/Cm
            End Do
         End If
 …
      Do K=Nz+1,nz+nzm
         Newtempcol_m(Ii,Jj,K)=Hh(K)
+        Newtempcol(K)=Hh(K)
      End Do
      Tbdot(Ii,Jj)=(Newtempcol_m(Ii,Jj,Nz)-T(Ii,Jj,Nz))/Dtt
      Bmelt(Ii,Jj)=0.
      Ibase(Ii,Jj)=5
      Phid(Ii,Jj)=0.
+     Tbdotij=(Newtempcol(Nz)-Tij(Nz))/Dtt
+     Bmeltij=0.
+     Ibase=5
+     Phidij=0.

branches/iLoveclim/SOURCES/bmelt-seuil-profondeur_mod.f90

-                      r4
+                      r77
 talus_nochange : if (Bsoc0(i,j).lt.depth_talus) then
+           coef_talus = 1         ! pas de changement au dessus de l'ocecan profond
+        else
            coef_talus = coefbmshelf
-        else
-           coef_talus = 1         ! pas de changement au dessus de l'ocecan profond
         endif talus_nochange

branches/iLoveclim/SOURCES/branche-Cat-spinup-dec2011/dragging_prescr_beta_mod.f90

r4	r77
99	99	betamy_file = trim(dirnameinp)//trim(betamy_file)
100	100	betamax = beta_limgz
	101	betamax_2d(:,:) = betamax
101	102
102	103	! read the beta value on centered and staggered grids

branches/iLoveclim/SOURCES/climat-forcage-insolation_mod.f90

-                      r21
+                      r77
   implicit none
+  integer :: mo,ti,tj
+  character(len=8) :: control   ! label to check clim. forc. file (filin) is usable
+  integer :: l                  ! In snapshot files:the first column is the mask, read but not used
+  real :: T_surf_ref            ! variable de travail calcul temp a l'instant t a la surface S
   integer :: intr
   integer :: igtr
   integer :: ictr
   integer :: k,d1,d2
+  integer :: d1,d2
   integer :: i,j
   character(len=100) :: file_ncdf      !< fichier netcdf
+!  character(len=100) :: file_ncdf      !< fichier netcdf
   real*8, dimension(:,:,:), pointer :: data_3D => null() ! donnees lues dans le netcdf
   real*8, dimension(:,:),pointer :: data_2D => null()    ! donnees lues dans le netcdf
 …
   write(num_rep_42,'(A,2(f7.1,","))')   'palier_ice = ', palier_ice(:,:)
   write(num_rep_42,'(A,A)')   'surf_ice = ', surf_ice
   write(num_rep_42,'(A,2(f3.1,","))')   'palier_CO2 = ', palier_CO2(:)
+  write(num_rep_42,'(A,2(f6.1,","))')   'palier_CO2 = ', palier_CO2(:)
   write(num_rep_42,'(A,A)')   'orb_file = ', orb_file
   write(num_rep_42,'(A,A)')   'co2_file = ', co2_file
 …
 implicit none
-real COEFT,COEFP       !
 !integer l              ! dumm index for loops on snapshots files  l=ITR,NTR-1
 !cdc integer itr            ! index of the current snapshot file (change with time)
 …
 !real,dimension(nx,ny) :: coeff1,coeff2
 real,dimension(nx,ny) :: coeff2
 integer :: k1,k2,m1,m2
+integer :: m1,m2
 integer,dimension(nx,ny) :: Mask,Mask2
 integer :: update_H
 …
 !Definition des variables pour le calcul de la fonction de CO2
 double precision :: coefCO2
+!double precision :: coefCO2
 !*****************************************************************************

branches/iLoveclim/SOURCES/climat-forcage-insolation_mod_oneway.f90

-                      r18
+                      r77
   implicit none
+  integer :: mo,ti,tj
+  character(len=8) :: control   ! label to check clim. forc. file (filin) is usable
+  integer :: l                  ! In snapshot files:the first column is the mask, read but not used
+  real :: T_surf_ref            ! variable de travail calcul temp a l'instant t a la surface S
   integer :: intr
   integer :: igtr
   integer :: ictr
+  integer :: i,j
+  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat
+!  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat
   real*8, dimension(:,:,:), pointer :: data_3D => null() ! donnees lues dans le netcdf
   real*8, dimension(:,:),pointer :: data_2D => null()    ! donnees lues dans le netcdf
 …
 implicit none
-real COEFT,COEFP       !
 !integer l              ! dumm index for loops on snapshots files  l=ITR,NTR-1
 !cdc integer itr            ! index of the current snapshot file (change with time)
 integer mo
-integer :: ictr
-integer :: igtr
 integer :: i,j

branches/iLoveclim/SOURCES/climat-perturb_mod-0.4.f90

r27	r77
197	197	! use module3d_phy
198	198	implicit none
199		integer :: i,j,ift
	199	integer :: i,ift
200	200
201	201	! time en dehors des limites du fichier forcage

branches/iLoveclim/SOURCES/climat_forcage_mois_mod.f90

-                      r27
+                      r77
   implicit none
+  integer :: i,j,mo,ti,tj
+  character(len=8) :: control   ! label to check clim. forc. file (filin) is usable
+  integer :: l                  ! In snapshot files:the first column is the mask, read but not used
+  real :: T_surf_ref            ! variable de travail calcul temp a l'instant t a la surface S
+  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat
+!  integer :: i,j,mo,ti,tj
+!  integer :: l                         ! In snapshot files:the first column is the mask, read but not used
+!  real :: T_surf_ref            ! variable de travail calcul temp a l'instant t a la surface S
+!  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat
   real*8, dimension(:,:,:), pointer :: data_3D => null() ! donnees lues dans le netcdf

branches/iLoveclim/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

-                      r4
+                      r77
 subroutine icethick3
+!$ USE OMP_LIB
 implicit none
 real,dimension(nx,ny) :: Dminx,Dminy
 real,dimension(nx,ny) :: Uxdiff,Uydiff           ! vitesse due a la diffusion
-integer :: it1,it2,it3
 real aux                                         ! pour le calcul du critere
 real maxdia                                      ! sur le pas de temps
 …
 ! Copie de H sur vieuxH
 ! --------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 where (mk0(:,:).eq.0)
    vieuxH(:,:)=0.
 …
    vieuxH(:,:)=H(:,:)
 end where
+!$OMP END WORKSHARE
 ! mk0 est le masque à ne jamais dépasser
 …
 jmaxdia=0
+! attention limitation !
+! attention limitation !
+!$OMP WORKSHARE
 uxbar(:,:)=max(uxbar(:,:),-V_limit)
 uxbar(:,:)=min(uxbar(:,:),V_limit)
 uybar(:,:)=max(uybar(:,:),-V_limit)
 uybar(:,:)=min(uybar(:,:),V_limit)
+!$OMP END WORKSHARE
 ! le pas de temps est choisi pour rendre la matrice advective diagonale dominante
+do i=2,nx-1
+   do j=2,ny-1
+!$OMP END PARALLEL
+!$OMP PARALLEL
+!$OMP DO PRIVATE(aux)
+!do i=2,nx-1
+!   do j=2,ny-1
+do j=2,ny-1
+  do i=2,nx-1
       aux = (abs(uxbar(i,j)) + abs(uxbar(i+1,j))) &
            + (abs(uybar(i,j)) + abs(uybar(i,j+1)))
       aux=aux*dx1*0.5
+      !$OMP CRITICAL
       if (aux.gt.maxdia) then
          maxdia=aux
          imaxdia=i
          jmaxdia=j
+!         imaxdia=i
+!         jmaxdia=j
       endif
+      !$OMP END CRITICAL
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 if (maxdia.ge.(testdiag/dtmax)) then
 …
 ! avec le pas de temps long (dtt)
  call next_time(time,dt,dtt,dtmax,dtmin,isynchro,itracebug,num_tracebug)
+call next_time(time,dt,dtt,dtmax,dtmin,isynchro,itracebug,num_tracebug)
 ! calcul diffusivite - vitesse
 !-----------------------------------------------------------------
+!$OMP PARALLEL
+!$OMP WORKSHARE
 Uxdiff(:,:)=diffmx(:,:)*(-sdx(:,:))   ! vitesse qui peut s'exprimer en terme diffusif
 Uydiff(:,:)=diffmy(:,:)*(-sdy(:,:))   ! dans les where qui suivent elle est limitee a uxbar
 …
   uydiff(:,:)=max(uydiff(:,:),uybar(:,:))       ! pour tenir compte limitation utot
 end where
+!$OMP END WORKSHARE
 …
 if (adv_frac.gt.1.) then ! advection seulement
+   !$OMP WORKSHARE
    advmx(:,:)=Uxbar(:,:)
    advmy(:,:)=Uybar(:,:)
    Dmx(:,:)=0.
    Dmy(:,:)=0.
+   !$OMP END WORKSHARE
 else if (abs(adv_frac).lt.1.e-8) then   ! diffusion seulement
+   !$OMP WORKSHARE
    advmx(:,:)=0.
    advmy(:,:)=0.
+   !$OMP END WORKSHARE
    ! D reste la valeur au dessus)
 …
 ! diffusion = ce qui peut être exprime en diffusion
 !             + une partie (1-adv_frac) de l'advection
+   !$OMP WORKSHARE
    where ((abs(sdx(:,:)).gt.1.e-8).and.(Hmx(:,:).gt.2.))      ! cas general
        advmx(:,:)=(Uxbar(:,:)-Uxdiff(:,:))                   ! tout ce qui n'est pas diffusion
 …
           dmy(:,:)=dminy(:,:)*H(:,:)
        end where
    elsewhere   ! zones trop plates ou trop fines
       Dmy(:,:)=0.
       advmy(:,:)=Uybar(:,:)
    end where
+   !$OMP END WORKSHARE
 else if (adv_frac.lt.0) then                  ! diffusif dans zones SIA, advectif ailleurs
+   !$OMP WORKSHARE
    zonemx(:,:)=flgzmx(:,:)
    zonemy(:,:)=flgzmy(:,:)
 …
     advmy(:,:)=0.
    end where
+   !$OMP END WORKSHARE
 end if
+!$OMP WORKSHARE
 where (flot(:,:) )
    tabtest(:,:)=1.
 …
    tabtest(:,:)=0.
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 !------------------------------------------------------------------detect
 !!$ tabtest(:,:)=dmx(:,:)
 …
+debug_3D(:,:,45)=dmx(:,:)
+debug_3D(:,:,46)=dmy(:,:)
+debug_3D(:,:,47)=advmx(:,:)
+debug_3D(:,:,48)=advmy(:,:)
+!debug_3D(:,:,45)=dmx(:,:)
+!debug_3D(:,:,46)=dmy(:,:)
+!debug_3D(:,:,47)=advmx(:,:)
+!debug_3D(:,:,48)=advmy(:,:)
+!$OMP PARALLEL
+!$OMP WORKSHARE
 bilmass(:,:)=bm(:,:)-bmelt(:,:)                       ! surface and bottom mass balance
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! diverses precription de l'epaisseur en fonction de l'objectif
 …
+  call prescribe_fixed_points            ! ceux qui sont fixes pour tout le run (bords de grille, regions)
+call prescribe_fixed_points            ! ceux qui sont fixes pour tout le run (bords de grille, regions)
 …
 !!$end if
 debug_3D(:,:,87)=S(:,:)-debug_3D(:,:,88)
 debug_3D(:,:,86)=Hp(:,:)
 debug_3D(:,:,85)=i_Hp(:,:)
+!debug_3D(:,:,87)=S(:,:)-debug_3D(:,:,88)
+!debug_3D(:,:,86)=Hp(:,:)
+!debug_3D(:,:,85)=i_Hp(:,:)
 !!$where (i_hp(:,:).eq.1)
 …
 call resol_adv_diff_2D_vect (Dmx,Dmy,advmx,advmy,Hp,i_Hp,bilmass,vieuxH,H)
+! remise à 0 des epaisseurs negatives, on garde la difference dans ablbord
+! remise à 0 des epaisseurs negatives, on garde la difference dans ablbord
+!$OMP PARALLEL
+!$OMP WORKSHARE
 where (H(:,:).lt.0.)
    ablbord(:,:)=H(:,:)/dt
 …
 endwhere
 ! eventuellement retirer apres spinup ou avoir un cas serac
 Hdot(:,:)=(H(:,:)-vieuxH(:,:))/dt
+!$OMP END WORKSHARE
 if (igrdline.ne.3) then
+   !$OMP WORKSHARE
    Hdot(:,:)=min(Hdot(:,:),10.)
    Hdot(:,:)=max(Hdot(:,:),-10.)
+   !$OMP END WORKSHARE
 endif
+!$OMP WORKSHARE
 where (i_hp(:,:).ne.1)
    H(:,:)=vieuxH(:,:)+Hdot(:,:)*dt
 …
    Hdot(:,:)=0.
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 !calul de l'ablation sur les bords (pourrait n'être appelé que pour les sorties courtes)

branches/iLoveclim/SOURCES/deformation_mod_2lois.f90

-                      r4
+                      r77
 subroutine flow_general
+  !$ USE OMP_LIB
   implicit none
+  !$OMP PARALLEL
+  !$OMP WORKSHARE
   teta(:,:,:) = t(:,:,1:nz)-tpmp(:,:,:)
+  !$OMP END WORKSHARE
+  !$OMP DO COLLAPSE(2)
   do k=nz-1,1,-1
      do i=2,nx-1
 …
      end do
   end do
+  !$OMP END DO
+  !$OMP END PARALLEL
 end subroutine flow_general
 …
 subroutine flowlaw (iiglen)
+  !$ USE OMP_LIB
   implicit none
 …
 !  real,dimension(nz) :: e          ! vertical coordinate in ice, scaled to h zeta
   real :: de= 1./(nz-1)
+! variables openmp :
+  !$  integer :: rang
+  !$ integer, dimension(:), allocatable :: tab_sync
+  !$ integer :: nb_taches
   e(1)=0.
   e(nz)=1.
+  !$OMP PARALLEL PRIVATE(bat,q,aat,ssec,zetat)
+  !$ nb_taches = OMP_GET_NUM_THREADS()
+  !$OMP DO
   do k=1,nz
      if ((k.ne.1).and.(k.ne.nz)) e(k)=(k-1.)/(nz-1.)
   end do
+  !$OMP END DO NOWAIT
   ! exposant de la loi de deformation utilisee : glen(iiglen)
 …
   !    boucle pour btt a k=1
   ti1=273.15*273.15
+  !$OMP DO
   do j=2,ny-1
      do i=2,nx-1
 …
      end do
   end do
+  !$OMP END DO
   ! boucle pour tous les autres btt
+  !$OMP DO COLLAPSE(2)
   do k=nz-1,1,-1
+     do j=2,ny-1
+        do j=2,ny-1
         do i=2,nx-1
            if (h(i,j).gt.1.) then
 …
      end do
   end do
+  !$OMP END DO NOWAIT
   !     integration de sa et s2a
+  !$OMP DO
   do j=1,ny
      do i=1,nx
 …
      end do
   end do
+  !$OMP END DO
+  !$OMP END PARALLEL
+  ! Allocation et initialisation du tableau tab_sync
+  ! qui gere la synchronisation entre les differents threads
+  !$ allocate(tab_sync(0:nb_taches-1))
+  !$ tab_sync(0:nb_taches-1) = 1
+  !$OMP PARALLEL private(i,j,k,rang) shared(tab_sync)
+  !$ rang = OMP_GET_THREAD_NUM()
   do k=nz-1,1,-1
+       ! Synchronisation des threads
+     !$     if (rang /= 0) then
+     !$        do
+     !$OMP FLUSH(tab_sync)
+     !$           if (tab_sync(rang-1)>=tab_sync(rang)+1) exit
+     !$        enddo
+     !$OMP FLUSH(sa)
+     !$OMP FLUSH(s2a)
+     !$     endif
+     !$OMP DO SCHEDULE(STATIC)
      do j=1,ny
         do i=1,nx
 …
         end do
      end do
+  end do
+     !$OMP END DO NOWAIT
+!     ! Mis a jour du tableau tab_sync
+     !$     tab_sync(rang) = tab_sync(rang) + 1
+     !$OMP FLUSH(tab_sync,sa,s2a)
+  end do
+  !$OMP WORKSHARE
   !     cas particulier des bords
   sa(:,1,:,iiglen)=sa(:,2,:,iiglen)
 …
   s2a(nx,:,:,iiglen)=s2a(nx-1,:,:,iiglen)
   btt(nx,:,:,iiglen)=btt(nx-1,:,:,iiglen)
+  !$OMP END WORKSHARE
+  !$OMP END PARALLEL
   ! calcul des moyennes sur les mailles staggered
   do k=1,nz
      tab2d=sa(:,:,k,iiglen)
 …
      s2a_my(:,:,k,iglen)=tab_my
   end do
 ! attribution de debug_3d pour les sorties s2a
 ! loi 1 -> 190 dans description variable -> 90 dans debug_3d
 debug_3d(:,:,90+iiglen-1) = s2a(:,:,1,iiglen)
+!debug_3d(:,:,90+iiglen-1) = s2a(:,:,1,iiglen)
 end subroutine flowlaw

branches/iLoveclim/SOURCES/diffusiv-polyn-0.6.f90

-                      r4
+                      r77
 !     ===============================================================
+!$ USE OMP_LIB
 USE module3D_phy
 …
 REAL :: INV_4DX ! inverse de dx pour eviter les divisions =1/(4*dx)
 REAL :: INV_4DY ! inverse de dy pour eviter les divisions =1/(4*dy)
-INTEGER :: ii
-integer :: ll
 if (itracebug.eq.1)  call tracebug(' Entree dans routine diffusiv')
 …
 ! initialisation de la diffusion
+!$OMP PARALLEL
+!$OMP WORKSHARE
 diffmx(:,:)=0.
 diffmy(:,:)=0.
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 ! calcul de SDX, SDY et de la pente au carre en mx et en my :
 …
 ! Calcul de la vitesse de glissement, qu'elle soit calculee par diagno ou par sliding
 !------------------------------------------------------------------------------------
+!
+!$OMP PARALLEL
+!$OMP WORKSHARE
 where (flgzmx(:,:))
     ubx(:,:) = uxflgz(:,:)
 …
     uby(:,:) = ddby(:,:)* (-sdy(:,:))
 endwhere
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 if (itracebug.eq.1) call tracebug(' diffusiv  apres calcul glissement')
 …
 ! Deformation SIA : Calcul de ddy  et ddx pour chaque valeur de iglen
 !------------------------------------------------------------------
 do iglen=n1poly,n2poly
    glenexp=max(0.,(glen(iglen)-1.)/2.)
+  !$OMP PARALLEL
+  !$OMP DO
    do j=1,ny
       do i=1,nx
          if (.not.flotmy(i,j)) then !  On calcule quand la deformation même pour les ice streams
             ddy(i,j,iglen)=((slope2my(i,j)**  &  ! slope2my calcule en debut de routine
                  glenexp)*(rog)**glen(iglen)) &
                  *hmy(i,j)**(glen(iglen)+1)
          endif
       end do
    end do
+   !$OMP END DO
+   !$OMP END PARALLEL
 end do
 do iglen=n1poly,n2poly
    glenexp=max(0.,(glen(iglen)-1.)/2.)
+   !$OMP PARALLEL
+   !$OMP DO
    do j=1,ny
       do i=1,nx
          if (.not.flotmx(i,j)) then      ! bug y->x corrige le 5 avril 2008 (
             ddx(i,j,iglen)=((slope2mx(i,j)**  & ! slope2mx calcule en debut de routine
                  glenexp)*(rog)**glen(iglen)) &
 …
       end do
    end do
+   !$OMP END DO
+   !$OMP END PARALLEL
 end do
 ! vitesse due a la déformation-----------------------------------------------
+!$OMP PARALLEL
+!$OMP DO
 ydef: do j=2,ny
        do i=1,nx
 …
     end do
    end do ydef
+!$OMP END DO
+!$OMP DO
 xdef: do j=1,ny
        do i=2,nx
 …
     end do
    end do xdef
+!$OMP END DO
 if (itracebug.eq.1) call tracebug(' diffusiv  avant limit')
 …
 ! la limitation selon x
+!$OMP WORKSHARE
 where(.not.flgzmx(:,:))
    uxbar(:,:)=min(uxbar(:,:),ultot)
 …
    uybar(:,:)=max(uybar(:,:),-ultot)
 end where
+!$OMP END WORKSHARE
 !    cas particulier des sommets ou il ne reste plus de neige.
+!$OMP DO
 do j=2,ny-1
    do i=2,nx-1
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 if (itracebug.eq.1)  call tracebug(' fin diffusiv ')

branches/iLoveclim/SOURCES/dragging_hwat-contigu_mod.f90

-                      r4
+                      r77
 implicit none
 logical,dimension(nx,ny) :: fleuvemx
 logical,dimension(nx,ny) :: fleuvemy
+!logical,dimension(nx,ny) :: fleuvemx
+!logical,dimension(nx,ny) :: fleuvemy
 real,dimension(nx,ny) :: hwatmx
 real,dimension(nx,ny) :: hwatmY

branches/iLoveclim/SOURCES/dragging_hwat_contmaj_mod.f90

-                      r9
+                      r77
 implicit none
 logical,dimension(nx,ny) :: fleuvemx
 logical,dimension(nx,ny) :: fleuvemy
+!logical,dimension(nx,ny) :: fleuvemx
+!logical,dimension(nx,ny) :: fleuvemy
 logical,dimension(nx,ny) :: fleuve
 logical,dimension(nx,ny) :: cote
 …
 tob_ile=betamax/2.
 moteurmax=toblim
+betamax_2d(:,:)=betamax
 !-------------------------------------------------------------------

branches/iLoveclim/SOURCES/dragging_hwat_sedim_mod.f90

-                      r45
+                      r77
 implicit none
 logical,dimension(nx,ny) :: fleuvemx
 logical,dimension(nx,ny) :: fleuvemy
+!logical,dimension(nx,ny) :: fleuvemx
+!logical,dimension(nx,ny) :: fleuvemy
 logical,dimension(nx,ny) :: fleuve
 logical,dimension(nx,ny) :: fleuve_sedim

branches/iLoveclim/SOURCES/dragging_hwatermax_0.2_mod.f90

-                      r4
+                      r77
                (((hwater(i,j)+hwater(i-1,j))*0.5.gt.hwatstream) &
                .and..not.flotmx(i,j))
+                  fleuvemx(i,j)=gzmx(i,j)
           ! calcul du frottement basal (ce bloc etait avant dans neffect)
 …
                (((hwater(i,j)+hwater(i,j-1))*0.5.gt.hwatstream) &
                .and..not.flotmy(i,j))
+          fleuvemy(i,j)=gzmx(i,j)
           ! calcul du frottement basal (ce bloc etait avant dans neffect)

branches/iLoveclim/SOURCES/eaubasale-0.5_mod.f90

-                      r4
+                      r77
 subroutine eaubasale !(pwater)   version correspondant à la thèse de Vincent
   ! A terme, il faudrait en faire un module
+!$ USE OMP_LIB
+!~   integer :: t1,t2,ir
+!~   real                           :: temps, t_cpu_0, t_cpu_1, t_cpu, norme
+!~
+!~    ! Temps CPU de calcul initial.
+!~    call cpu_time(t_cpu_0)
+!~    ! Temps elapsed de reference.
+!~    call system_clock(count=t1, count_rate=ir)
 …
   if (itracebug.eq.1)  call tracebug(' Entree dans routine eau basale')
+!$OMP PARALLEL
+!$OMP WORKSHARE
   vieuxhwater(:,:) = hwater(:,:)
   kond(:,:) = kond0*SECYEAR
 …
   klimit(:,:)=0
   limit_hw(:,:)=-9999.
+!$OMP END WORKSHARE
+!$OMP DO
   do j=1,ny
      do i=1,nx
 …
      end do
   end do
+  do i=1,nx
+     do j=2,ny-1
+!$OMP END DO
+!$OMP DO
+!  do j=2,ny-1
+  do j=1,ny
+     do i=1,nx
         bmelt_w(i,j)=bmelt(i,j)*rofresh/ro
         hwater(i,j)=max(hwater(i,j),0.)
         hw(i,j)=min(hwater(i,j),hmax_wat)
      enddo
   enddo
+!$OMP END DO
+!$OMP END PARALLEL
   ecoul:  if (ecoulement_eau) then
      !  print*,'===dans eaubasale t, dt',time,dt,'kond 1.0e-5'
      !   write(6,*) 'entree ecoulement_eau'
+     do J=1,NY
+        do I=1,NX
+     !$OMP PARALLEL
+     !$OMP DO
+     do j=1,ny
+        do i=1,nx
            tetar(i,j)=(xlong(i,j))*PI/180. ! pourrait etre fait une fois pour toute
            PGX(I,J)=101*sin(tetar(i,j))*1.e-2
 …
         enddo
      enddo
+!$OMP END DO
      ! sorties debug 17 juillet 2007
      debug_3D(:,:,5)=pot_w(:,:)
      debug_3D(:,:,6)=pot_f(:,:)
      debug_3D(:,:,7)=pot_w(:,:)+rofreshg*hwater(:,:)
      debug_3D(:,:,8)=hwater(:,:)
+!     debug_3D(:,:,5)=pot_w(:,:)
+!     debug_3D(:,:,6)=pot_f(:,:)
+!     debug_3D(:,:,7)=pot_w(:,:)+rofreshg*hwater(:,:)
+!     debug_3D(:,:,8)=hwater(:,:)
+!$OMP DO
      do j=2,ny
         do i=2,nx
            if (H(i,j).gt.25.) then
               !           calcul du gradient de pression
-              ! _______________________________________
               if (flotmx(i,j)) then
                  pgx(i,j)=(pot_f(i-1,j)-pot_f(i,j))/dx
 …
                  pgy(i,j)=(pot_w(i,j-1)-pot_w(i,j))/dy
               endif
            endif
            pgx(i,j)=pgx(i,j)/rofreshg   ! pour passer pgx sans unité
            pgy(i,j)=pgy(i,j)/rofreshg
         end do
      end do
+!$OMP END DO
+!$OMP END PARALLEL
      if (nt.gt.0) then
         if (dt.gt.0.)  then !!!!!!!!!!!!!!!!!!!!!!relax_water si dt>0
            !-------------------------------------------------------------------------
            ! les points de la grounding line ont une conductivité hydraulique élevée
            ! même si la base est froide.  modif catritz 18 janvier 2005
            !open(166,file='erreur_eau')
+           do J=2,NY-1
               do I=2,NX-1
+!$OMP PARALLEL
+!$OMP DO
+           do j=2,Ny-1
+              do i=2,Nx-1
                  ! cond=0 si glace froide et pas sur la grounding line
+                 if ((IBASE(I,J).eq.1).and.   &
+                 if ((IBASE(i,j).eq.1).and.   &
                       (.not.flot(i,j-1)).and.(.not.flot(i,j+1)).and.  &
                       (.not.flot(i-1,j)).and.(.not.flot(i+1,j)))  KOND(I,J)=0.! 1.0e-5
+                      (.not.flot(i-1,j)).and.(.not.flot(i+1,j)))  KOND(i,j)=0.! 1.0e-5
                  ! cond infinie quand epaisseur faible et glace flottante
 …
                  ! conductivite effective (conductivité * taille du tuyau en m2/an)
                  keff(i,j)=kond(i,j)*hw(i,j)
               end do
            end do
+!$OMP END DO
            ! condition sur les bords de la grille
+!$OMP WORKSHARE
            kond(1,:)=kondmax
            kond(nx,:)=kondmax
            kond(:,1)=kondmax
            kond(:,ny)=kondmax
-           ! fin de la modif 18 janvier 2005---------------------------------------
            vieuxhwater(:,:) = hwater(:,:)
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
+!!$OMP SINGLE
            call relaxation_waterdif(nxlocal,nylocal,dt,dx,vieuxhwater,limit_hw,klimit,bmelt_w,infiltr,pgx,pgy,keff,keffmax,hwater)
+!!$OMP END SINGLE
         else
            !         print*,'dt=',dt,'pas de relax_water'
 …
      ! on le fait avant les butoirs pour justement pouvoir les estimer
+!$OMP PARALLEL
      if (dt.gt.0.) then
         !         print*,'dt=',dt,'pas de relax_water'
+        !$OMP DO
         do j=1,ny
            do i=1,nx
 …
            end do
         end do
+        !$OMP END DO
      endif
+!$OMP DO PRIVATE(Zflot)
      do i=1,nx
         do j=1,ny
 …
               !          Hwater(i,j)=hw(i,j)
               !          pwater(i,j)=rog*H(I,J)*(hw(I,J)/hmax_wat)**(3.5)
            endif
            ! bloc qui pourrait servir pour mettre l'eau encore plus sous pression
 …
            !             pwater(i,j)=pwater(i,j)+(HWATER(i,j)-poro_till*hmax_till)/(compress_w*hmax_till)
            !            endif
         end do
      end do
+!$OMP END DO
      !   ************ valeurs de HWATER pour les coins ********
 …
      ! pour les sorties de flux d'eau
+     !$OMP DO
      do j=2,ny
         do i=2,nx
 …
               phiwx(i,j)=phiwx(i,j)*2*(keff(i,j)*keff(i-1,j))/(keff(i,j)+keff(i-1,j))
            endif
            ! ligne pour sortir les pgx
            pgx(i,j)=(pgx(i,j)+(hwater(i-1,j)-hwater(i,j))/dx)
         end do
      end do
+     !$OMP END DO
+     !$OMP DO
      do j=2,ny
         do i=2,nx
 …
            endif
            pgy(i,j)=(pgy(i,j)+(hwater(i,j-1)-hwater(i,j))/dx)
         enddo
      enddo
+     !$OMP END DO
+     !$OMP END PARALLEL
   else  ! partie originellement dans icetemp à mettre dans un autre module
 …
      if (ISYNCHRO.eq.1) then
+        !$OMP PARALLEL
+        !$OMP DO
         do j=1,ny
            do i=1,nx
 …
            end do
         end do
+        !$OMP END DO
+        !$OMP END PARALLEL
      end if
   endif ecoul
+!~   ! Temps elapsed final
+!~   call system_clock(count=t2, count_rate=ir)
+!~   temps=real(t2 - t1,kind=4)/real(ir,kind=4)
+!~   ! Temps CPU de calcul final
+!~   call cpu_time(t_cpu_1)
+!~   t_cpu = t_cpu_1 - t_cpu_0
+!~   ! Impression du resultat.
+!~   print '(//,3X,"Valeurs de nx et ny : ",I5,I5/,              &
+!~            & 3X,"Temps elapsed       : ",1PE10.3," sec.",/, &
+!~            & 3X,"Temps CPU           : ",1PE10.3," sec.",/, &
+!~            & 3X,"Norme (PB si /= 0)  : ",1PE10.3,//)', &
+!~            nx,ny,temps,t_cpu,norme
   return

branches/iLoveclim/SOURCES/flottab2-0.7.f90

-                      r4
+                      r77
 module flottab_mod
+  !$ USE OMP_LIB
 USE module3D_phy
 use module_choix
 …
 ! cas particulier des runs paleo ou on impose un masque grounded
+!$OMP PARALLEL PRIVATE(archim,surnet)
  if (igrdline.eq.2) then
+    !$OMP WORKSHARE
     where ( mk_init(:,:).eq.1)                 ! pose
        flot(:,:) = .False.
 …
        flot(:,:) = .True.
     end where
+    !$OMP END WORKSHARE
  end if
 …
        appel_new_flot=.false.
+       !$OMP DO
        do j=1,ny
           do i=1,nx
 …
           enddo
        enddo
+       !$OMP END DO
 ! ICE(:,:)=(H(:,:).gt.1) ! ice=.true. si epaisseur > 1m
+      !$OMP WORKSHARE
       ICE(:,:)=0
       front(:,:)=0
 …
       cotemy(:,:)=.false.
       boost=.false.
+      !$OMP END WORKSHARE
 ! fin de l'initialisation
 …
 ! -------------------------------------
+ !$OMP DO
  do j=1,ny
    do i=1,nx
 …
     end do
  end do
+ !$OMP END DO
 !!$ do i=1,nx
 …
 !-----------------------------------------------------------------------
+ !$OMP DO
 domain_x: do j=1,ny
          do i=2,nx
 …
           end do
        end do domain_x
 if (itracebug.eq.1)  call tracebug('  routine flottab apres domain_x')
+ !$OMP END DO
+!if (itracebug.eq.1)  call tracebug('  routine flottab apres domain_x')
 !     3_y    B- NOUVELLE DEFINITION DE FLOTMY
 !         --------------------------------
+ !$OMP DO
 domain_y: do j=2,ny
          do i=1,nx
 …
           end do
        end do domain_y
+ !$OMP END DO
 …
 !      4- determination des iles
 !      -------------------------
+          !$OMP WORKSHARE
           ilemx(:,:)=.false.
           ilemy(:,:)=.false.
+!       selon x
+          !$OMP END WORKSHARE
+!       selon x
+  !$OMP DO
 ilesx:  do j=2,ny-1
            do i=3,nx-2
 …
          end do
       end do ilesx
+!       selon y
+   !$OMP END DO
+!       selon y
+   !$OMP DO
 ilesy: do j=3,ny-2
            do i=2,nx-1
 …
          end do
       end do ilesy
+    !$OMP END DO
+    !$OMP END PARALLEL
 ! fin des iles
 …
 !   6- calcule les vitesses des points qui sont devenus gzm
+!$OMP PARALLEL
+!$OMP DO
 do j=1,ny
    do i=2,nx-1
 …
    end do
 end do
+!$OMP END DO
+!$OMP DO
 do j=2,ny-1
    do i=1,nx
 …
     end do
 end do
+!$OMP END DO
 …
 if (nt.ge.2) then   ! pour ne pas faire ce calcul lors du premier passage
+   !$OMP WORKSHARE
    uxbar(:,:)=uxs1(:,:)
+   uybar(:,:)=uys1(:,:)
+   uybar(:,:)=uys1(:,:)
+   !$OMP END WORKSHARE
 endif
+!$OMP WORKSHARE
 flgzmx(:,:)=(marine.and.(flotmx(:,:).or.gzmx(:,:).or.ilemx(:,:)))   &
      .or.(.not.marine.and.flotmx(:,:))
 flgzmy(:,:)=(marine.and.(flotmy(:,:).or.gzmy(:,:).or.ilemy(:,:)))   &
      .or.(.not.marine.and.flotmy(:,:))
+!$OMP END WORKSHARE
 …
 !       fbm est vrai si le point est flottant mais un des voisins est pose
 !_________________________________________________________________________
+!$OMP DO
 do j=2,ny-1
   do i=2,nx-1
 …
   end do
 end do
+!$OMP END DO
 …
 !!$end do
+!$OMP WORKSHARE
 where (flot(:,:))
    where (H(:,:).gt.(1.1))
 …
    end where
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 call DETERMIN_TACHE
 …
 !----------------------------------------------!
 !On determine les differents ice strean/shelf  !
       call DETERMIN_TACHE                      !
+!      call DETERMIN_TACHE                      !
 !----------------------------------------------!
 …
 !!$end if
-! / test aurel
-debug_3d(:,:,43)=table_out(:,:)
-iceberg(:)=.true.
-do j=1,ny
-   do i=1,nx
-      if(.not.flot(i,j)) then
-         iceberg(table_out(i,j))=.false.
-      end if
-   end do
-end do
-do j=1,ny
-   do i=1,nx
-      debug_3d(i,j,56)=nb_pts_tache(table_out(i,j))
-      if (iceberg(table_out(i,j))) then
-         debug_3d(i,j,57)=1
-      else
-         debug_3d(i,j,57)=0
-      end if
-   end do
-end do
-! fin test aurel /
 !ice(:,:)=0   Attention, voir si ca marche toujours pour l'Antarctique et heminord !
 !On compte comme englacé uniquement les calottes dont une partie est posée
+do i=3,nx-2
+   do j=3,ny-2
+!$OMP PARALLEL PRIVATE(smax_,smax_coord,smax_i,smax_j,mask_tache_ij)
+!$OMP DO
+do j=3,ny-2
+   do i=3,nx-2
 test1:  if (.not.iceberg(table_out(i,j))) then ! on est pas sur un iceberg
          if (nb_pts_tache(table_out(i,j)).ge.1) then
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 !----------------------------------------------
 …
 !print*, 'front',front(50,30),ice(50,30),flotmx(i,j),uxbar(i,j)
 end subroutine flottab
 !--------------------------------------------------------------------
 …
 !>
 subroutine determin_tache
+!$ USE OMP_LIB
 implicit none
 …
 enddo
 !      table_in  = .false.
+!$OMP PARALLEL
+!$OMP WORKSHARE
 table_out(:,:) = 0
 iceberg(:)  = .true.
 icetrim (:) = .true.
 nb_pts_tache(:) = 0
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 !    open(unit=100,file="tache.data",status='replace')
 ! 2-reperage des taches
 !----------------------
+do i=2,nx-1
+  do j=2,ny-1
+do j=2,ny-1
+  do i=2,nx-1
      IF (ice(i,j).ge.1) THEN ! on est sur la glace-----------------------------!
         if ((ice(i-1,j).ge.1).or.(ice(i,j-1).ge.1)) then   !masque de 2 cases adjacentes
            !      un des voisins est deja en glace
 …
               if (mask(indice).gt.0) label=min(label,mask(indice))
            enddo
+!cdc       label=min(label,minval(mask(:), mask=mask > 0))
            !on fixe la valeur de la tache voisine minimun au point etudie (via label)
 …
 ! On reorganise compt en ecrivant le numero de la tache fondamentale
 ! i.e. du plus petit numero present sur la tache (Sans utiliser de recursivité)
+! On indique aussi le nb de point que contient chaque taches (nb_pts_tache)
+! On indique aussi le nb de point que contient chaque taches (nb_pts_tache)
 do indice=1,label_max
    vartemp = compt(indice)
 …
 enddo
+do i=1,nx
+   do j=1,ny
+!$OMP PARALLEL
+!$OMP DO REDUCTION(+:nb_pts_tache)
+do j=1,ny
+   do i=1,nx
       if (table_out(i,j).ne.0) then
          table_out(i,j)=compt(table_out(i,j))
 …
    enddo
 enddo
+!$OMP END DO
+!$OMP END PARALLEL
 …
 !>
 subroutine determin_front
+!!$ USE OMP_LIB
 integer :: i_moins1,i_plus1,i_plus2
 integer :: j_moins1,j_plus1,j_plus2
+      do i=3,nx-2
+       do j=3,ny-2
+      !$OMP PARALLEL
+      !$OMP DO
+      do j=3,ny-2
+        do i=3,nx-2
  surice:if  (ice(i,j).eq.0) then
 …
        end do
       end do
+      !$OMP END DO
+      !$OMP ENd PARALLEL
 !!$call detect_assym(nx,ny,0,41,1,0,1,0,H,itestf)
 …
 !     print*,'dans remplissage baies',time
 baies: do k=1,2
+!$OMP PARALLEL
+!$OMP DO PRIVATE(i_moins1,j_moins1,i_plus1,j_plus1,i_plus2,j_plus2)
 do j=1,ny
    do i=1,nx
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 end do baies
 …
 !!$end if
+do i=2,nx-1
+   do j=2,ny-1
+!$OMP PARALLEL
+!$OMP DO
+do j=2,ny-1
+   do i=2,nx-1
       if (ice(i,j).eq.1) then     !         test si ice=1
 …
    end do
 end do
+!$OMP END DO
 ! traitement des bords. On considere que l'exterieur n'a pas de glace
 ! attention ce n'est vrai que sur la grande grille
+!$OMP DO PRIVATE(i)
 do j=2,ny-1
    i=1
 …
    front(i,j)=(ice(i-1,j)+ice(i,j+1)+ice(i,j-1))
 end do
+!$OMP END DO
+!$OMP DO PRIVATE(j)
 do i=2,nx-1
    j=1
 …
    front(i,j)=(ice(i-1,j)+ice(i+1,j)+ice(i,j-1))
 end do
+!$OMP END DO
 ! traitement des coins
 …
 !   si ces deux taches sont posées (ou une des deux), il n'y a pas assez de conditions aux limites
+!$OMP DO
 do j=1,ny
    do i=1,nx-1
 …
    end do
 end do
+!$OMP END DO
+!$OMP DO
 do j=1,ny-1
    do i=1,nx
 …
    end do
 end do
+!$OMP END DO
 !isolx signifie pas de voisins en x
 …
 ! calcul de frontfacex et isolx
+!$OMP DO
 do j=1,ny
    do i=2,nx-1
 …
    end do
 end do
+!$OMP END DO
 ! calcul de frontfacey et isoly
+!$OMP DO
 do j=2,ny-1
    do i=1,nx
 …
    end do
 end do
+!$OMP END DO
 …
 ! attention ce n'est vrai que sur la grande grille
+!$OMP DO PRIVATE(i)
 do j=2,ny-1
    i=1
 …
    end if
 end do
+!$OMP END DO
+!$OMP DO PRIVATE(j)
 do i=2,nx-1
    j=1
 …
    end if
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 return

branches/iLoveclim/SOURCES/initial-0.3.f90

r35	r77
30	30	use sorties_ncdf_grisli
31	31	use util_recovery
32		~~character(len=80) :: filinit~~
33	32
34	33	!-------------------------------------------------------------------------------------

branches/iLoveclim/SOURCES/litho-0.4.f90

-                      r4
+                      r77
+      subroutine litho
+subroutine litho
+  !$ USE OMP_LIB
+  USE module3D_phy
+  USE param_phy_mod
+  USE ISO_DECLAR ! module de declaration des variables specifiques a l'isostasie
+      USE module3D_phy
+      USE param_phy_mod
+      USE ISO_DECLAR ! module de declaration des variables specifiques a l'isostasie
+  implicit none
+      implicit none
+      INTEGER :: IP,JP,LPX,LPY,II,SOM1,SOM2
+      REAL, dimension(:,:), allocatable :: WLOC
+  INTEGER :: II,SOM1,SOM2
+  REAL, dimension(:,:), allocatable :: WLOC
 !----- allocation de WLOC  et de croix -----------
+  !----- allocation de WLOC  et de croix -----------
       if (.not.allocated(WLOC)) THEN
          allocate(WLOC(-LBLOC:LBLOC,-LBLOC:LBLOC),stat=err)
          if (err/=0) then
             print *,"Erreur a l'allocation du tableau WLOC",err
             stop 4
          end if
       end if
+  if (.not.allocated(WLOC)) THEN
+     allocate(WLOC(-LBLOC:LBLOC,-LBLOC:LBLOC),stat=err)
+     if (err/=0) then
+        print *,"Erreur a l'allocation du tableau WLOC",err
+        stop 4
+     end if
+  end if
 !----- fin de l'allocation --------------
+  !----- fin de l'allocation --------------
 !     calcul de la deflexion par sommation des voisins appartenant
 !     au bloc de taille 2*LBLOC
        som1=0.
        som2=0.
+  !     calcul de la deflexion par sommation des voisins appartenant
+  !     au bloc de taille 2*LBLOC
+  som1=0.
+  som2=0.
+!      On somme aussi les contributions des points exterieurs au domaine
+!      lorsque la charge est due a l'ocean. On suppose alors  que
+!      ces points ont la meme charge que les limites
+boucleij : do J=1,NY
+           do I=1,NX
+  !      On somme aussi les contributions des points exterieurs au domaine
+  !      lorsque la charge est due a l'ocean. On suppose alors  que
+  !      ces points ont la meme charge que les limites
+  !$OMP PARALLEL
+  !$OMP DO PRIVATE(Wloc)
+  boucleij : do J=1,NY
+     do I=1,NX
               W1(I,J)=0.
               ii=0
+        W1(I,J)=0.
+ !   ii=0
 ! Wloc : enfoncement centre sur ij du a chaque charges autour
       Wloc(:,:) = We(:,:) * charge(i-lbloc:i+lbloc,j-lbloc:j+lbloc)
+ ! Wloc : enfoncement centre sur ij du a chaque charges autour
+        Wloc(:,:) = We(:,:) * charge(i-lbloc:i+lbloc,j-lbloc:j+lbloc)
       W1(i,j) = sum (Wloc(:,:))   ! effet en ij de toutes les charges autour (distance < lbloc)
+        W1(i,j) = sum (Wloc(:,:))   ! effet en ij de toutes les charges autour (distance < lbloc)
 !    ------------------------ FIN DE L'INTEGRATION SUR LE PAVE LBLOC
               som1=som1+W1(I,J)
               som2=som2-charge(I,J)/ROMG
+ !    ------------------------ FIN DE L'INTEGRATION SUR LE PAVE LBLOC
+ !   som1=som1+W1(I,J)
+ !   som2=som2-charge(I,J)/ROMG
+      end do
+      end do  boucleij
+!     write(6,*)'enfoncement total avec rigidite de la lithosphere:',
+!    &  som1
+!     write(6,*)'enfoncement total avec isostasie locale :',
+!    &  som2
+     end do
+  end do  boucleij
+  !$OMP END DO
+  !$OMP END PARALLEL
+  !     write(6,*)'enfoncement total avec rigidite de la lithosphere:',
+  !    &  som1
+  !     write(6,*)'enfoncement total avec isostasie locale :',
+  !    &  som2
     end subroutine litho
+end subroutine litho

branches/iLoveclim/SOURCES/mix-SIA-L1_mod.f90

-                      r4
+                      r77
 subroutine mix_SIA_L1
+!$ USE OMP_LIB
+! variables parallelisation openMP
+!!$  integer :: rang ,nb_taches
 ! subroutine qui associe SIA et L1
 …
 ! use module_choix
     if (itracebug.eq.1)  call tracebug(' routine mix_SIA_L1')
+if (itracebug.eq.1)  call tracebug(' routine mix_SIA_L1')
 debug_3D(:,:,9)=0.
 …
    ! que celles du L1. On garde le L1 comme vitesse basale.
    ! version utilisee pour les runs MIS11 de Cairns
+        !$OMP PARALLEL
+   !$OMP DO
    do j=2,ny
       do i=2,nx
 …
       end do
    end do
+   !$OMP END DO
+        !$OMP END PARALLEL
 else if (i_resolmeca.eq.2) then
 ! addition systematique
+!       !$OMP PARALLEL PRIVATE(rang,nb_taches)
+!       !$ rang=OMP_GET_THREAD_NUM()
+!       !$ nb_taches=OMP_GET_NUM_THREADS()
+!       !$OMP DO SCHEDULE(STATIC,NY/nb_taches)
+        !$OMP PARALLEL
+   !$OMP DO
    do j=2,ny
       do i=2,nx
+! test sur tout le tableau :
          if (flgzmx(i,j)) then
             debug_3D(i,j,11)=uxflgz(i,j)
+!            debug_3D(i,j,11)=uxflgz(i,j)
             uxbar(i,j)=uxflgz(i,j)+uxdef(i,j)                       ! on ajoute la deform. SIA
             ubx(i,j) = uxflgz(i,j)
+            do k=1,nz
+!            do k=1,nz
+!               ux(i,j,k)=ux(i,j,k)-ux(i,j,nz)+uxflgz(i,j)           ! remplace le glissement par uxflgz
+!            end do
+!            debug_3D(i,j,9)=uxdef(i,j)
+         endif
+         if (flgzmy(i,j)) then
+!            debug_3D(i,j,12)=uyflgz(i,j)
+            uybar(i,j)=uyflgz(i,j)+uydef(i,j)                       ! on ajoute la deform. SIA
+            uby(i,j) = uyflgz(i,j)
+!            do k=1,nz
+!               uy(i,j,k)=uy(i,j,k)-uy(i,j,nz)+uyflgz(i,j)           ! remplace le glissement par uyflgz
+!            end do
+!            debug_3D(i,j,10)=uydef(i,j)
+         endif
+      end do
+   end do
+        !$OMP END DO
+        !$OMP END PARALLEL
+! on ne recalcul ux que lorsque uxflgz est modifié soit tous les dtt
+        if (isynchro.eq.1) then
+!       !$OMP PARALLEL PRIVATE(rang,nb_taches)
+!       !$ rang=OMP_GET_THREAD_NUM()
+!       !$ nb_taches=OMP_GET_NUM_THREADS()
+!       !$OMP DO SCHEDULE(STATIC,NY/nb_taches)
+        !$OMP PARALLEL
+   !$OMP DO
+        do j=2,ny
+                do i=2,nx
+        if (flgzmx(i,j)) then
+                        do k=1,nz
                ux(i,j,k)=ux(i,j,k)-ux(i,j,nz)+uxflgz(i,j)           ! remplace le glissement par uxflgz
             end do
+            debug_3D(i,j,9)=uxdef(i,j)
+         end if
+         endif
          if (flgzmy(i,j)) then
+            debug_3D(i,j,12)=uyflgz(i,j)
+            uybar(i,j)=uyflgz(i,j)+uydef(i,j)                       ! on ajoute la deform. SIA
+            uby(i,j) = uyflgz(i,j)
+            do k=1,nz
+                        do k=1,nz
                uy(i,j,k)=uy(i,j,k)-uy(i,j,nz)+uyflgz(i,j)           ! remplace le glissement par uyflgz
             end do
+            debug_3D(i,j,10)=uydef(i,j)
+         end if
+      end do
+   end do
+         endif
+       enddo
+   enddo
+        !$OMP END DO
+        !$OMP END PARALLEL
+endif
 else ! SIA et L1 en 2 zones separe : pas d'action (uxbar est deja remis a uxflgz dans diffusiv)

branches/iLoveclim/SOURCES/moy_mxmy.f90

-                      r4
+                      r77
 subroutine moy_mxmy(n1,n2,X2D,X_mx,X_my)
 ! fait la moyenne ponderee d'un tableau X2D sur les mailles staggered
+ !$ USE OMP_LIB
 implicit none
 integer, intent(in) :: n1,n2   !< dimension des tableaux
 …
+  !$OMP PARALLEL PRIVATE(i_moins1,j_moins1,i_plus1,j_plus1)
+  !$OMP DO
+        do j=1,n2
+                do i=1,n1
+                        i_moins1=max(1,i-1)
+                        j_moins1=max(1,j-1)
+                        i_plus1=min(n1,i+1)
+                        j_plus1=min(n2,j+1)
+do j=1,n2
+   do i=1,n1
+      i_moins1=max(1,i-1)
+      j_moins1=max(1,j-1)
+      i_plus1=min(n1,i+1)
+      j_plus1=min(n2,j+1)
+      X_mx(i,j)=0.25*(X2D(i,j)+X2D(i_moins1,j)) &
+                        X_mx(i,j)=0.25*(X2D(i,j)+X2D(i_moins1,j)) &
            + 0.125*((X2D(i_moins1,j_plus1)+X2D(i,j_plus1))   &
            +       (X2D(i_moins1,j_moins1)+X2D(i,j_moins1)))
       X_my(i,j)=0.25*(X2D(i,j)+X2D(i,j_moins1)) &
+                        X_my(i,j)=0.25*(X2D(i,j)+X2D(i,j_moins1)) &
            + 0.125*((X2D(i_plus1,j_moins1)+X2D(i_plus1,j))   &
            +       (X2D(i_moins1,j_moins1)+X2D(i_moins1,j)))
    end do
+end do
+                end do
+        end do
+  !$OMP END DO
+  !$OMP END PARALLEL
 return

branches/iLoveclim/SOURCES/neffect-0.4.f90

-                      r4
+                      r77
       implicit none
+!!!!  real pwater,N1,N2,XFRAC,SLOPEM,uxmy,uymx
+      real XFRAC,SLOPEM,uxmy,uymx
+!     real,dimension(nx,ny) :: pwater !!! global var
+      real pentem,toslid,topente,neffoto,fonction_N
+      real,dimension(nx,ny) :: table_interm
+!      real,dimension(nx,ny) :: table_interm
       real :: Nefmin=1.e5                  ! Pression effective minimum (~ 10 m de glace)

branches/iLoveclim/SOURCES/next-time.f90

r4	r77
21	21	real (kind=kind(0.d0)) :: time
22	22	real (kind=kind(0.d0)) :: time_loc
23		~~real (kind=kind(0.d0)) :: test_time~~
24	23	real (kind=kind(0.d0)) :: time2_loc
25	24	real (kind=kind(0.d0)) :: timesup

branches/iLoveclim/SOURCES/no_spinup_mod.f90

-                      r4
+                      r77
 module no_spinup
+use module3d_phy
 contains
 …
 subroutine init_spinup
-use module3d_phy
 implicit none

branches/iLoveclim/SOURCES/out_cptr_mod.f90

-                      r32
+                      r77
   character(len=20),dimension(4)    :: dimnames3d      !< pour 3d troisieme dim est nz
   character(len=20),dimension(4)    :: dimnames3dT     !< pour 3d troisieme dim est nz+nzm
   integer                           :: nrecs=1         !< compteur pour les enregistrements temps des variables
   integer                           :: idef=0          !< pour savoir si la variable a ete definie ou non
+!  integer                           :: nrecs=1         !< compteur pour les enregistrements temps des variables
+!  integer                           :: idef=0          !< pour savoir si la variable a ete definie ou non
   integer                           :: isortie         !< pour le choix de type de fichier en sortie

branches/iLoveclim/SOURCES/out_horiz_mod.f90

-                      r32
+                      r77
     integer :: i2
     integer :: i3
     integer  :: i,j,k !< indices de travail
+    integer  :: k !< indices de travail
     integer :: num_dat = 21
 …
 integer   :: ifin
 integer   :: npr
 integer  :: i,j,k ! indices de travail
+integer  :: i ! indices de travail
 …
 real :: maxcol
 real :: coef
- integer  :: i,j,k ! indices de travail
 npos=npos+1

branches/iLoveclim/SOURCES/out_profile_mod.f90

r4	r77
146	146	integer :: numtime
147	147	!integer :: nmax
148		integer :: n,l
	148	integer :: n
149	149	integer, dimension(:), allocatable :: nbr_ligne_prof
150	150	integer :: nbr_ligne_total

branches/iLoveclim/SOURCES/relaxation_water_diffusion.f90

-                      r45
+                      r77
 CONTAINS
 subroutine relaxation_waterdif(NXX,NYY,DT,DX,vieuxHWATER,limit_hw,klimit,BMELT,INFILTR,PGMX,PGMY,KOND,KONDMAX,HWATER)
+    implicit none
+  !$ USE OMP_LIB
+  implicit none
 …
     REAL :: RESTE,DELH,VH
     INTEGER :: ntour
-    INTEGER :: mbord
     REAL  :: DTSRGDX,dtwdx2
     LOGICAL :: STOPP
 …
 ! write(166,*)' entree  relaxation waterdif'
+!$OMP PARALLEL
+!$OMP WORKSHARE
     HWATER(:,:)= vieuxHWATER(:,:)
+!$OMP END WORKSHARE
     !   calcul de kmx et kmx a partir de KOND
     !   conductivite hyrdraulique sur les noeuds mineurs
     !   moyenne harmonique
     !   ----------------------------------------
+!$OMP DO
     do j=2,nyy
        do i=2,nxx
 …
        end do
     end do
+!$OMP END DO
+!$OMP DO
     do j=2,nyy
        do i=2,nxx
 …
        enddo
     enddo
+!$OMP END DO
     !   attribution des coefficients  arelax ....
 …
     dtwdx2=dt/dx/dx
+arelax(:,:)=0.
+brelax(:,:)=0.
+crelax(:,:)=1.
+drelax(:,:)=0.
+erelax(:,:)=0.
+frelax(:,:)=limit_hw(:,:)
+!$OMP WORKSHARE
+  arelax(:,:)=0.
+  brelax(:,:)=0.
+  crelax(:,:)=1.
+  drelax(:,:)=0.
+  erelax(:,:)=0.
+  frelax(:,:)=limit_hw(:,:)
+!$OMP END WORKSHARE
+!$OMP DO
     do J=2,NYY-1
        do I=2,NXX-1
           if (klimit(i,j).eq.0) then
 ! calcul du vecteur
           FRELAX(I,J)= VIEUXHWATER(I,J)+(BMELT(I,J)-INFILTR)*DT
           frelax(i,j)=frelax(i,j)+(kmx(i,j)*pgmx(i,j)-kmx(i+1,j)*pgmx(i+1,j))*dtsrgdx
           frelax(i,j)=frelax(i,j)+(kmy(i,j)*pgmy(i,j)-kmy(i,j+1)*pgmy(i,j+1))*dtsrgdx
 ! calcul des diagonales
           arelax(i,j)=-kmx(i,j)*dtwdx2        ! arelax : diagonale i-1,j
 …
           crelax(i,j)=1.+((kmx(i,j)+kmx(i+1,j))+(kmy(i,j)+kmy(i,j+1)))*dtwdx2
                                               !crelax : diagonale i,j
           else if (klimit(i,j).eq.1) then
              hwater(i,j)=limit_hw(i,j)
 !             write(6,*) i,j,hwater(i,j),crelax(i,j),frelax(i,j),arelax(i,j)
           endif
        end do
     end do
+!$OMP END DO
+!$OMP END PARALLEL
     ! Boucle de relaxation :
 …
        ntour=ntour+1
 !       write(6,*) 'boucle de relaxation numero',ntour
+       !$OMP PARALLEL
+       !$OMP DO PRIVATE(reste)
        do j=2,NYY-1
           do i=2,NXX-1
 …
              DELTAH(I,J) = RESTE/CRELAX(I,J)
           end do
        end do
+deltah(:,:)=min(deltah(:,:),10.)
+deltah(:,:)=max(deltah(:,:),-10.)
+       !$OMP END DO
+       !$OMP WORKSHARE
+       deltah(:,:)=min(deltah(:,:),10.)
+       deltah(:,:)=max(deltah(:,:),-10.)
+       !$OMP END WORKSHARE
        ! il faut faire le calcul suivant dans une autre boucle car RESTE est fonction
        ! de hwater sur les points voisins.
+       !$OMP DO
        do j=2,NYY-1
           do i=2,NXX-1
              HWATER(I,J) = HWATER(I,J) - DELTAH(I,J)
           end do
        end do
+       !$OMP END DO
        ! critere d'arret:
        Delh=0
        Vh=0
+       !$OMP DO REDUCTION(+:Delh)
        DO j=2,NYY-1
           DO i=2,NXX-1
              !   write(166,*) I,J,delh,deltah(i,j)
                          Delh=Delh+deltah(i,j)**2
+             Delh=Delh+deltah(i,j)**2
              !            Vh=Vh+h(i,j)**2.
           END DO
        END DO
+       !$OMP END DO
+       !$OMP END PARALLEL
 !       write(6,*) delh,maxval(deltah),minval(deltah)
        !      testh=SQRT(Delh/Vh)

branches/iLoveclim/SOURCES/resol_adv_diff_2D-sept2009.f90

-                      r4
+                      r77
 subroutine resol_adv_diff_2D_vect(Dfx,Dfy,advx,advy,H_presc,i_Hpresc,bil,vieuxH,newH)
+!$ USE OMP_LIB
 implicit none
 …
-integer :: it1,it2,jt1,jt2           ! pour des tests d'asymétrie
 if (itracebug.eq.1)  call tracebug(' Entree dans routine resolution_diffusion')
+!$OMP PARALLEL
+!$OMP WORKSHARE
 ! calcul de bdx et hdx
 hdx(:,:)=dx1*(vieuxH(:,:)-eoshift(vieuxH(:,:),shift=-1,boundary=0.,dim=1))
 …
 Frelax(:,:)=0.
 DeltaH(:,:)=0.
+!$OMP END WORKSHARE
 ! schema spatial
 if (upwind.eq.1.) then                 !schema amont
+!$OMP WORKSHARE
    where (Advx(:,:).ge.0.)
       c_west(:,:)=1.
 …
       c_north(:,:)=1.
    end where
+!$OMP END WORKSHARE
 else if (upwind.lt.1.) then             ! schema centre
+!$OMP WORKSHARE
       c_west(:,:)=0.5
       c_east(:,:)=0.5
       c_south(:,:)=0.5
       c_north(:,:)=0.5
+!$OMP END WORKSHARE
 end if
 ! attribution des elements des diagonales
+!$OMP DO PRIVATE(frdx,frdy,fraxw,fraxe,frays,frayn)
 do j=2,ny-1
   do i=2,nx-1
 …
      end do
   end do
+!$OMP END DO
+!$OMP WORKSHARE
 where (i_hpresc(:,:) .eq.1)          ! thickness prescribed
    frelax(:,:) = H_presc(:,:)
 …
    erelax(:,:) = 0.
 end where
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 stopp = .false.
 ntour=0
 relax_loop: do while(.not.stopp)
 ntour=ntour+1
+!$OMP PARALLEL
+!$OMP DO PRIVATE(reste)
 do j=2,ny-1
    do i=2,nx-1
 …
            + crelax(i,j)*newH(i,j))- frelax(i,j)
 if (ntour.eq.1)  debug_3D(i,j,49)=(((arelax(i,j)*newH(i-1,j) +drelax(i,j)*newH(i,j-1)) &
            + (brelax(i,j)*newH(i+1,j) + erelax(i,j)*newH(i,j+1))) &
            + crelax(i,j)*newH(i,j))
+!if (ntour.eq.1)  debug_3D(i,j,49)=(((arelax(i,j)*newH(i-1,j) +drelax(i,j)*newH(i,j-1)) &
+!           + (brelax(i,j)*newH(i+1,j) + erelax(i,j)*newH(i,j+1))) &
+!           + crelax(i,j)*newH(i,j))
 …
    end do
 end do
+debug_3D(:,:,50)=arelax(:,:)
+debug_3D(:,:,51)=brelax(:,:)
+debug_3D(:,:,52)=crelax(:,:)
+debug_3D(:,:,53)=drelax(:,:)
+debug_3D(:,:,54)=erelax(:,:)
+debug_3D(:,:,55)=frelax(:,:)
+!$OMP END DO
+!debug_3D(:,:,50)=arelax(:,:)
+!debug_3D(:,:,51)=brelax(:,:)
+!debug_3D(:,:,52)=crelax(:,:)
+!debug_3D(:,:,53)=drelax(:,:)
+!debug_3D(:,:,54)=erelax(:,:)
+!debug_3D(:,:,55)=frelax(:,:)
+!$OMP WORKSHARE
 newH(:,:)=newH(:,:)-deltaH(:,:)
+!$OMP END WORKSHARE
+!$OMP END PARALLEL
 …
 delh=0
+!$OMP PARALLEL
+!$OMP DO REDUCTION(+:delh)
 do j=2,ny-1
    do i=2,nx-1
 …
    end do
 end do
+!$OMP END DO
+!$OMP END PARALLEL
 if (delh.gt.0.) then
 …
 ! thickness at the upwind node
+do j = 1, ny
+   do i = 2, nx
+      debug_3D(i,j,92) = c_west(i,j) * newH(i-1,j) + c_east(i,j) * newH(i,j)
+   end do
+end do
+do j = 2, ny
+   do i = 1, nx
+      debug_3D(i,j,93) = c_south(i,j) * newH(i,j-1) + c_north(i,j) * newH(i,j)
+   end do
+end do
+ if (itracebug.eq.1)  call tracebug(' fin routine resolution_diffusion')
+!do j = 1, ny
+!   do i = 2, nx
+!      debug_3D(i,j,92) = c_west(i,j) * newH(i-1,j) + c_east(i,j) * newH(i,j)
+!   end do
+!end do
+!do j = 2, ny
+!   do i = 1, nx
+!      debug_3D(i,j,93) = c_south(i,j) * newH(i,j-1) + c_north(i,j) * newH(i,j)
+!   end do
+!end do
+if (itracebug.eq.1)  call tracebug(' fin routine resolution_diffusion')
 return

branches/iLoveclim/SOURCES/snaptime.f90

r4	r77
24	24	double precision :: tunit
25	25	integer :: ipuissance
26		integer :: itime,m
	26	integer :: itime
27	27	character(len=1) :: signe,unit,mm
28	28	character(len=1),dimension (4) :: unittab

branches/iLoveclim/SOURCES/spinup_mod.f90

r31	r77
516	516
517	517	implicit none
518		~~real,dimension(nx,ny) :: corr_ghf !< correction du gflux geothermique~~
519	518	real,dimension(nx,ny) :: coefdef_maj !< coefficient deformation
520	519	real :: increment_ghf

branches/iLoveclim/SOURCES/steps_time_loop.f90

-                      r52
+                      r77
         if (itracebug.eq.1)  call tracebug(' Dans spinup_3_bed')
+        if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1) then
+           call bedrock()                                            !  bedrock adjustment
+!        if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1) then
+         if ((nbed.eq.1).and.nt.ne.1.and.isynchro.eq.1.and.(mod(abs(TIME),50.).lt.dtmin)) then
+           call bedrock                                              !  bedrock adjustment
         endif

branches/iLoveclim/SOURCES/tab-litho-0.3.f90

r10	r77
47	47	open(num_kelvin,file=trim(dirnameinp)//'../kelvin.res')
48	48	read(num_kelvin,*)
49		do K=1,NK
	49	do K=0,NK
50	50	read(num_kelvin,*) XL,kei(K)
51	51	end do

branches/iLoveclim/SOURCES/taubed-0.3.f90

-                      r4
+                      r77
 subroutine taubed()
+  !$USE OMP_LIB
   USE module3D_phy
   USE param_phy_mod
 …
   ! NLITH est defini dans isostasie et permet le choix du modele d'isostasie
   if (NLITH.eq.1) then
      !       avec rigidite de la lithosphere
+     !$OMP PARALLEL
+     !$OMP DO
      do J=1,NY
         do I=1,NX
 …
         end do
      end do
+     !$OMP END DO
      ! il faut remplir CHARGE dans les parties a l'exterieur de la grille :
      ! a l'exterieur de la grille CHARGE est egale a la valeur sur le bord
+     !$OMP DO
      do J=1,NY
         CHARGE(1-LBLOC:0,J)=CHARGE(1,J)      ! bord W
         CHARGE(NX+1:NX+LBLOC,J)=CHARGE(NX,J) ! bord E
      end do
+     !$OMP END DO
+     !$OMP DO
      do I=1,NX
         CHARGE(I,1-LBLOC:0)=CHARGE(I,1)      ! bord S
         CHARGE(I,NY+1:NY+LBLOC)=CHARGE(I,NY) ! bord N
      end do
+     !$OMP END DO
      ! valeur dans les quatres coins exterieurs au domaine
+          !$OMP WORKSHARE
      CHARGE(1-LBLOC:0,1-LBLOC:0)=CHARGE(1,1)           ! coin SW
      CHARGE(1-LBLOC:0,NY+1:NY+LBLOC)=CHARGE(1,NY)      ! coin NW
      CHARGE(NX+1:NX+LBLOC,1-LBLOC:0)=CHARGE(NX,1)      ! coin SE
      CHARGE(NX+1:NX+LBLOC,NY+1:NY+LBLOC)=CHARGE(NX,NY) ! coin NE
+     !$OMP END WORKSHARE
+     !$OMP END PARALLEL
      call litho
   else
      !     enfoncement local
+     !$OMP PARALLEL
+     !$OMP DO
      do J=1,NY
         do I=1,NX
 …
         end do
      end do
+     !$OMP END DO
+     !$OMP END PARALLEL
   endif
   !     decroissance exponentielle de l'enfoncement
+  !$OMP PARALLEL
+  !$OMP DO
   do J=1,NY
      do I=1,NX
 …
      end do
   end do
+  !$OMP END DO
+  !$OMP END PARALLEL
 end subroutine taubed

branches/iLoveclim/SOURCES/tracer_mod.f90

-                      r11
+                      r77
 !--------------------------------------------------------------
 ! Position des forages dans la grille grisli.
+! Groenland grille GreeneemXX
+!
 ! Ordre GMT :
 …
   use tracer_vars             ! module de declaration de variables pour les traceurs
 !cdc  use climat_perturb_mois_mod ! on en a besoin, notamment pour NFT
+! afq, new version of tracer, does not require climat_perturb
   implicit none
 …
   integer :: time_tra    ! temps traceur
-  integer :: nft         ! declaration locale de NFT : a corriger plus tard pour recuperer la valeur du module climat
-  real    :: rappact     ! pour le calcul du rapport 'accumulation : a corriger plus tard pour recuperer la valeur du module climat
-  real,dimension(:),allocatable :: tpert ! temperature for climate forcing : a corriger plus tard pour recuperer la valeur du module climat
-  real,dimension(:),allocatable :: TDATE ! time for climate forcing : a corriger plus tard pour recuperer la valeur du module climat
 !===============================================================
 …
   real :: lambdab  ! fusion basale 'artificielle' pour age des couches
   real :: agemax   ! age maximum de la glace (pour init_tracer)
+  integer :: pert_type ! 0 we give tpert/coeft/rappact,1 we give acc_pert only / afq
+  character(len=200) :: filforc    ! nom du fichier forcage
+  character(len=200) :: filin      ! variable intermediaire
+  character(len=8) :: control      ! label to check clim. forc. file (filin) is usable
+  integer ::  err                  ! pour l'allocation des tableaux
+  real :: bidon                    ! to skip sealevel change in fileforc
   integer :: kk   ! indice vertical pour definition de E, mais on veut conserver la valeur de k
 !  real,dimension(nz) :: E   ! vertical coordinate in ice, scaled to H zeta
+  ! on lit les parametres par namelist dorenavant
+  namelist/tracer/file_tr_dat,file_tr_out,file_tr_dep,lambdab,agemax,coefT_tra,rappact_tra,filforc,pert_type
 …
   deltracer = dtt           ! sorte de pas de temps du tracer -  multiple de dtt !
-! on lit les parametres par namelist dorenavant
-  namelist/tracer/file_tr_dat,file_tr_out,file_tr_dep,lambdab,agemax !aurel : a ne pas oublier paramlist
   rewind(num_param)        ! pour revenir au debut du fichier param_list.dat
 …
   write(num_rep_42,'(A,A)')   'tracer .out file : ', file_tr_out
   write(num_rep_42,'(A,A)')   'tracer dep. file : ', file_tr_dep
+  write(num_rep_42,'(A,A)')   'lambdab : ', lambdab
+  write(num_rep_42,'(A,A)')   'agemax : ', agemax
+  write(num_rep_42,'(A,A)')   'coefT_tra : ', coefT_tra
+  write(num_rep_42,'(A,A)')   'rappact_tra : ', rappact_tra
+  write(num_rep_42,'(A,A)')   'fileforc : ', filforc
+  write(num_rep_42,'(A,A)')   'pert_type : ', pert_type
   write(num_rep_42,*)'/'
   write(num_rep_42,428) 'declaration des repertoires *traceurs*'
 …
+  ! afq marion dufresne:
+  ! to build accucumul, we read all what is in climat_perturb here now
+  ! meaning: nft, tpert, tdate
+  ! OR if pert_type = 1 we read nft, acc_pert, tdate
+  ! acc_pert should be the ratio acc_palaeo / acc_present
+    filin=trim(dirforcage)//trim(filforc)
+    open(num_forc,file=filin,status='old')
+    read(num_forc,*) control,nft_tra
+    ! Determination of file size (line nb), allocation of perturbation array
+    if (control.ne.'nb_lines') then
+       write(6,*) filin,'indiquer le nb de ligne en debut de fichier:'
+       write(6,*) 'le nb de lignes et le label de control nb_lines'
+       stop
+    endif
+    if (.not.allocated(tdate_tra)) then
+       allocate(tdate_tra(nft_tra),stat=err)
+       if (err/=0) then
+          print *,"erreur a l'allocation du tableau Tdate",err
+          stop 4
+       end if
+    end if
+    if (.not.allocated(tpert_tra)) then
+       allocate(tpert_tra(nft_tra),stat=err)
+       if (err/=0) then
+          print *,"erreur a l'allocation du tableau Tpert",err
+          stop 4
+       end if
+    end if
+    do i=1,nft_tra
+       read(num_forc,*) tdate_tra(i),bidon,tpert_tra(i)
+    end do
+    close(num_forc)
 format(21(f12.1))
 …
   ! chaque indice d'accucumul vaut 100 ans.
   ! 0 pour le present, 10 pour 1000 ans
    allocate(accucumul(0:nft-1)); accucumul = 0.0
+   allocate(accucumul(0:nft_tra-1)); accucumul = 0.0
    ! watch out its size !!!
    ! note: tpert(1) = tpert at -422700yr
 …
    ! a la rigueur je pourrais modifier le fichier d'interpolation pour
    ! l'adapter a tdate
+   accucumul(nft-1) =  0.
+! todo0710 : marge d'amelioration en tenant compte des accum de depot ?
+   do k=2,nft
+      accucumul(nft-k) = accucumul(nft-k+1) + (exp(rappact  * tpert(k) ))
+   end do
+   time_max_accu = tdate(1)
+   !print*, tdate(1), nft , nftnl, rappact
+   !print*, tdate(1), nft , rappact!, nftnl, rappact
+   accucumul(nft_tra-1) =  0.
+   ! todo0710 : marge d'amelioration en tenant compte des accum de depot ?
+   if (type_accum.eq.0) then   !Tpert is given, needs to be converted in accumulation ratio
+      tpert_tra(:)=tpert_tra(:)*coefT_tra
+      do k=2,nft_tra
+         accucumul(nft_tra-k) = accucumul(nft_tra-k+1) + (exp(rappact_tra  * tpert_tra(k) ))
+      end do
+   else if (type_accum.eq.1) then ! accum ration is given, nothing to do
+      do k=2,nft_tra
+         accucumul(nft_tra-k) = accucumul(nft_tra-k+1) + tpert_tra(k)
+      end do
+   else
+      write (*,*) "Problem in tracer, do you provide tpert or accpert???"
+      STOP
+   end if
+   time_max_accu = tdate_tra(1)
    uxsave(:,:,:) = 0.0
    uysave(:,:,:) = 0.0
 …
    ydep(:,:,:)=ydepk(:,:,:)
    tdep(:,:,:)=tdepk(:,:,:)
+   freezeon(:,:) = 0.   ! variable added on 19/03/03
+!   print*, 'tpert ',tpert(:)
+!   print*, 'accucumul ', accucumul(:)
+   freezeon(:,:) = 0.     ! variable added on 19/03/03
    print*, 'tbegin, tend : ',tbegin, tend
 …
         do i=1,nx
            ! added on 16/12/03: somehow worked before too
            if (h(i,j)>1.5) &
                 uzrsave(i,j,:) = uzrsave(i,j,:) + uzr(i,j,:) *real(dtt) / h(i,j)
+           if (h(i,j)>1.5) &
+             uzrsave(i,j,:) = uzrsave(i,j,:) + uzr(i,j,:) *real(dtt) / h(i,j)
         end do
      end do
 …
      do j=2,ny-1
         i_jj = j-1
         xdep(:,1,i_jj) = xgrid(2)
+        xdep(:,1,i_jj) = xgrid(2)
         xdep(:,nx-2,i_jj) = xgrid(nx-1)
         ydep(:,1,i_jj) = ygrid(j)
+        ydep(:,1,i_jj) = ygrid(j)
         ydep(:,nx-2,i_jj) = ygrid(j)
 !        tdep(:,1,i_jj) = time_
 …
      do i=2,nx-1
         i_ij = i-1
         xdep(:,i_ij,1) = xgrid(i)
+        xdep(:,i_ij,1) = xgrid(i)
         xdep(:,i_ij,ny-2) = xgrid(i)
         ydep(:,i_ij,1) = ygrid(2)
         ydep(:,i_ij,ny-2) = ygrid(ny-1)
+        ydep(:,i_ij,1) = ygrid(2)
+        ydep(:,i_ij,ny-2) = ygrid(ny-1)
 !       tdep(:,i_ij,1) =  time_
 !       tdep(:,i_ij,ny-2) =  time_
         tdep(:,i_ij,1) =  time
         tdep(:,i_ij,ny-2) =  time
+        tdep(:,i_ij,1) =  time
+        tdep(:,i_ij,ny-2) =  time
      end do
 …
 ! nl 11/03/04
           if (h(i,j)<=1.5) then
+          if (h(i,j)<=1.5) then
             xdep(:,i_ij,i_jj) = xgrid(i)
             ydep(:,i_ij,i_jj) = ygrid(j)
             tdep(:,i_ij,i_jj) =  time
             cycle
           end if
+            cycle
+          end if
           freezeon(i_ij,i_jj) = max(0.0, freezeon(i_ij,i_jj)-bmelt(i,j) )
           ip = i+1
           jp = j+1
 …
             v_zij       = uzrsave(i,j,k)
             x_tra       = xgrid(i) - v_xij      !* real(deltracer)
             y_tra       = ygrid(j) - v_yij      !* real(deltracer)
             e_tra       = e(k) - v_zij          !* real(deltracer)
+            x_tra       = xgrid(i) - v_xij      !* real(deltracer)
+            y_tra       = ygrid(j) - v_yij      !* real(deltracer)
+            e_tra       = e(k) - v_zij          !* real(deltracer)
             if ((k==nz).and.(bmelt(i,j)<-1.e-4)) then   ! bottom freezeon
                xdep(k,i_ij,i_jj) = xgrid(i)
                ydep(k,i_ij,i_jj) = ygrid(j)
                if (h(i,j)>100.) then
+               if (h(i,j)>100.) then
                  tdep(k,i_ij,i_jj) =  tdepk(k,i_ij,i_jj) - &
                         min( abs( (tdepk(k-1,i_ij,i_jj)-tdepk(k,i_ij,i_jj)) *  &
                           bmelt(i,j)  / ( ( e(k)-e(k-1) )*h(i,j) ) ), 2.) * deltracer
                   ! this added 26/03/04 so that not more 2.*deltracer new years of refreezing
                else
                  tdep(k,i_ij,i_jj) =  tdepk(k,i_ij,i_jj)
+                        min( abs( (tdepk(k-1,i_ij,i_jj)-tdepk(k,i_ij,i_jj)) *  &
+                          bmelt(i,j)  / ( ( e(k)-e(k-1) )*h(i,j) ) ), 2.) * deltracer
+                  ! this added 26/03/04 so that not more 2.*deltracer new years of refreezing
+               else
+                 tdep(k,i_ij,i_jj) =  tdepk(k,i_ij,i_jj)
                end if
+               end if
                 !fix:    need to track where freeze-on happens
                 ! *1.001        proven to be dumb
 …
                 !print*,'i,j,k avt interp',i,j,k
                 call interpolate(i_ij, i_jj, k, im-1, jm-1, km, fx,fy,fz, e_tra, nft)
+                call interpolate(i_ij, i_jj, k, im-1, jm-1, km, fx,fy,fz, e_tra, nft_tra)
                 if((tdep(k,i_ij,i_jj)<=time  -  1500000.) .or. (tdep(k,i_ij,i_jj)> time   )) then
 …
 !========================================================================
 !========================================================================

branches/iLoveclim/SOURCES/tracer_vars_mod.f90

-                      r4
+                      r77
   integer :: nspectimes
   real :: time_max_accu
+  ! afq marion dufresne: tracer with no climat perturb
+  ! i.e. we read the Forcage Tpert to compute past accumulation via
+  ! rappact
+  ! OR we read directly past accum (choice in namelist)
+  ! if past accum is given it will still be read with the name Tpert
+  ! the past accum given should be the ratio acc_palaeo / acc_present
+  integer :: nft_tra                         ! number of snapshot Tpert
+  integer :: type_accum                      ! Tpert is given (=0) or accpert (1)
+  real    :: rappact_tra                     ! accumulation ratio to convert Tpert
+  real    :: coeft_tra                       ! coeft to convert Tpert
+  real,dimension(:),allocatable :: tpert_tra ! temperature perturbation
+  real,dimension(:),allocatable :: tdate_tra ! time for Tpert
   integer, dimension(maxspectimes) :: trout

branches/iLoveclim/SOURCES/velocities-polyn-0.3.f90

-                      r4
+                      r77
 !     Attention la vitesse verticale est "super reduite"
 ! ==========================================================================
+!$ USE OMP_LIB
 use module3d_phy
 !use deform_declar
 …
 if (itracebug.eq.1)  call tracebug(' Entree dans routine SIA_velocity')
+!$OMP PARALLEL
+!$OMP DO COLLAPSE(2)
 do k=1,nz
    do j=2,ny-1
 …
    end do
 end do
+!$OMP END DO
 !       *************************** Z VELOCITIES ******************
+!$OMP DO
 do j=2,ny-1
    do i=2,nx-1
 …
      end do
  end do
+!$OMP END DO
+!$OMP DO
   do j=2,ny-1
      do i=2,nx-1
 …
      end do
   end do
+!$OMP END DO
+!$OMP END PARALLEL
 end subroutine SIA_velocities

branches/iLoveclim/SOURCES/write_datfile.f90

-                      r4
+                      r77
 integer  :: i,j                ! working integers
-integer  :: lx,ly              ! nxx, nyy read in the file
 open(22,file=trim(filename))
 …
 integer  :: i,j                ! working integers
-integer  :: lx,ly              ! nxx, nyy read in the file
 open(22,file=trim(filename))

Context Navigation

Legend:

Download in other formats: