Changeset 25


Ignore:
Timestamp:
12/09/15 16:17:10 (8 years ago)
Author:
dumas
Message:

Suppression du module inutilise prop-thermiques_mod.f90

Location:
trunk/SOURCES
Files:
1 deleted
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/Ant40_files/module_choix-antar40-0.4.f90

    r4 r25  
    6464use deformation_mod_2lois   ! module concernant les lois de deformation 
    6565 
    66 !--------------Module propriete thermique de la glace 
    67 use  prop_thermiques_ice 
    68 ! use prop_therm_ice_heino 
    69  
    7066! eau basale 
    7167use eau_basale 

  • trunk/SOURCES/GrIce2sea_files/module_choix_GrIce2sea.f90

    r21 r25  
    8787 
    8888!--------------Module propriete thermique de la glace 
    89 use  prop_thermiques_ice 
    9089! use prop_therm_ice_heino 
    9190 

  • trunk/SOURCES/Greeneem_files/module_choix-greeneem.f90

    r19 r25  
    5656!--------------Module Physique--------------------- 
    5757use deformation_mod_2lois   ! module concernant les lois de deformation 
    58  
    59 !--------------Module propriete thermique de la glace 
    60 use  prop_thermiques_ice 
    6158 
    6259! eau basale 

  • trunk/SOURCES/Hemin15_files/module_choix-hemin15.f90

    r14 r25  
    7878 
    7979!--------------Module propritete thermique de la glace 
    80 use prop_thermiques_ice 
    8180! use prop_therm_ice_heino 
    8281 

  • trunk/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90

    r14 r25  
    7777use deformation_mod_2lois   ! module concernant les lois de deformation 
    7878 
    79 !--------------Module propritete thermique de la glace 
    80 use prop_thermiques_ice 
    81 ! use prop_therm_ice_heino 
    82  
    8379! eau basale 
    8480use eau_basale 

  • trunk/SOURCES/Makefile.grisli.inc

    r24 r25  
    7171        dragging_hwatermax_0.2_mod.o dragging_calc_beta_mod.o  \ 
    7272        dragging_hwat-contigu_mod.o dragging_hwat_contmaj_mod.o \ 
    73         dragging_hwat_sedim_mod.o  prop-thermiques_mod.o  \ 
     73        dragging_hwat_sedim_mod.o \ 
    7474        calving_frange.o no_calving.o no_lakes.o \ 
    7575        out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \ 
    … …  
    8181        tridiag_mod-0.3.o out_horiz_mod.o bmelt-seuil-profondeur_mod.o  
    8282 
    83         #    geom_type.o temperature_type.o ice_flow_type.o mask_flgz_type.o \ 
    84         #deformation_type.o autre_pr_temp_type.o  \ 
    85          
    8683mod_communs_RGL =   util_recovery.o \ 
    8784        interface_input.o \ 
    … …  
    10097        eaubasale-0.5_mod.o spinup_mod.o no_spinup_mod.o \ 
    10198        tridiag_mod-0.3.o out_horiz_mod.o bmelt-seuil-profondeur_mod.o 
    102  
    103 #        geom_type.o temperature_type.o ice_flow_type.o mask_flgz_type.o deformation_type.o autre_pr_temp_type.o \ 
    104  
    10599 
    106100#       prescribe-H_mod.o ou prescribe-H-i2s_mod.o sont dans modules_dim \ 
    … …  
    150144        vtoutput-0.2.o  courbures.o 
    151145 
    152 # allocate_types.o \ 
    153146#       vtoutput-0.2.o steps_time_loop.o courbures.o  
    154147 
    … …  
    740733prop-therm-Heino_mod.o : Heino_files/prop-therm-Heino_mod.f90 
    741734        $(FT) Heino_files/prop-therm-Heino_mod.f90 
    742  
    743 prop-thermiques_mod.o : prop-thermiques_mod.f90 
    744         $(FT) prop-thermiques_mod.f90 
    745735 
    746736calving_frange.o : calving_frange.f90 

  • trunk/SOURCES/Temperature-routines/icetemp_declar_mod.f90

    r24 r25  
    5555  ! ___________________________ 
    5656  Real,allocatable,Dimension(:,:):: Tbmer    !< Temperature De La Mer A La Base De L'Ice Shelf   
    57   Real,allocatable,Dimension(:,:) :: Alpha   !< Pente Locale Sur Noeud Majeur                     
    58   Real,allocatable,Dimension(:,:) :: Ubar    !< Vitesse Sur Noeud Majeur                        
     57!  Real,allocatable,Dimension(:,:) :: Alpha   !< Pente Locale Sur Noeud Majeur                     
     58!  Real,allocatable,Dimension(:,:) :: Ubar    !< Vitesse Sur Noeud Majeur                        
    5959  Real,allocatable,Dimension(:,:) :: Chalglissx,Chalglissy !< Chaleur De Glissement              
    6060  Integer,allocatable,Dimension(:,:) :: Iadvec_w,Iadvec_e,Iadvec_s,Iadvec_n    

  • trunk/SOURCES/Temperature-routines/icetemp_mod.f90

    r24 r25  
    8585       !Tab Nx,Ny 
    8686       Allocate(Tbmer(Nx,Ny),&    
    87             Alpha(Nx,Ny),&                    
    88             Ubar(Nx,Ny),&                     
     87!            Alpha(Nx,Ny),&                    
     88!            Ubar(Nx,Ny),&                     
    8989            Chalglissx(Nx,Ny),& 
    9090            Chalglissy(Nx,Ny),& 
    … …  
    118118    Rr=0.               
    119119    Hh=0.               
    120     Tdot=0   
     120    Tdot=0  
     121    Chal2_x=0. 
     122    Chal2_y=0. 
     123    Chal2_z=0. 
     124    Chal2_xy=0. 
     125    Chaldef_maj=0. 
     126    Chalglissx=0. 
     127    Chalglissy=0. 
    121128    !Instruction  
    122129    Dee=1./(Nz-1)  
    … …  
    291298 
    292299    Deallocate (Aa,Bb,Cc,Rr,Hh,Tdot,Abis,Bbis,Cbis,Rbis,Hbis,Ee,Tbmer,            &  
    293                 Alpha,Ubar,Chalglissx,Chalglissy,Iadvec_w,Iadvec_e,               &  
     300                Chalglissx,Chalglissy,Iadvec_w,Iadvec_e,                          & !Alpha,Ubar 
    294301                Iadvec_s,Iadvec_n,Chal2_x,Chal2_y,Chal2_z,Chal2_xy,Chaldef_maj,   & 
    295302                Advecx,Advecy,Advec,Chalx,Chaly,Ffx,Ffy,T3d_new)         

  • trunk/SOURCES/steps_time_loop.f90

    r24 r25  
    137137  !------------------------------------------------------------------ 
    138138 
    139   if ((NT.eq.1) &    !   .or.(NT.eq.2) 
    140        .or.(mod(abs(dble(TIME)),dble(DTPROFILE)).lt.dble(dtmin)) & 
    141        .or.(abs(TIME-TEND).lt.dtmin)) then 
     139  !if ((NT.eq.1) &    !   .or.(NT.eq.2) 
     140  !     .or.(mod(abs(dble(TIME)),dble(DTPROFILE)).lt.dble(dtmin)) & 
     141  !     .or.(abs(TIME-TEND).lt.dtmin)) then 
    142142 
    143143     !        call sortieprofile() 
    144144 
    145   endif 
     145  !endif 
    146146 
    147147  !  sorties netcdf Hassine (aout 2010)  (2D and 3D) 
Note: See TracChangeset for help on using the changeset viewer.