Changeset 430 for branches/GRISLIv3


Ignore:
Timestamp:
04/26/23 16:31:25 (15 months ago)
Author:
dumas
Message:

Cleaning branch: SOURCES/Recul_force_grounding_line printtable_mod.f90 and steps_time_loop_avec_iterbeta.f90 moved in TRASH-SOURCES and deleted in Makefile.grisli.inc

Location:
branches/GRISLIv3/SOURCES
Files:
3 deleted
17 edited
1 copied

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/Alps_files/module_choix-alps.f90

    r356 r430  
    144144! use output_antarcti_mod 
    145145! use output_heino 
    146 !-----debugage... 
    147 use printtable 
    148  
    149146 
    150147end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Ant16_files/module_choix-ant16km.f90

    r272 r430  
    134134use output_antarcti_mod 
    135135! use output_heino 
    136 !-----debugage... 
    137 use printtable 
    138  
    139136 
    140137end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Ant40_files/module_choix-antar40-0.4.f90

    r239 r430  
    139139 use output_antarcti_mod 
    140140! use output_heino 
    141 !-----debugage... 
    142 use printtable 
    143  
    144141 
    145142end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Eurasie40_files/module_choix-eurasie-0.4.f90

    r4 r430  
    112112use output_eurasie40_mod 
    113113 
    114 !-----debugage... 
    115 use printtable 
    116  
    117  
    118114END MODULE MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/GrIce2sea_files/module_choix_GrIce2sea.f90

    r238 r430  
    154154use output_grice2sea_mod 
    155155! use output_heino 
    156 !-----debugage... 
    157 use printtable 
    158  
    159  
    160156 
    161157end module module_choix 

  • branches/GRISLIv3/SOURCES/Greeneem_files/module_choix-greeneem.f90

    r238 r430  
    110110 use output_greeneem_mod 
    111111 
    112 !-----debugage... 
    113 use printtable 
    114  
    115  
    116112end module module_choix 

  • branches/GRISLIv3/SOURCES/Grismip6_files/module_choix-grismip6.f90

    r262 r430  
    135135use output_antarcti_mod 
    136136! use output_heino 
    137 !-----debugage... 
    138 use printtable 
    139  
    140137 
    141138end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Hemin15_files/module_choix-hemin15.f90

    r238 r430  
    130130! use output_antarcti_mod 
    131131! use output_heino 
    132 !-----debugage... 
    133 use printtable 
    134  
    135132 
    136133end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Hemin40_files/module_choix-hemin40-0.4.f90

    r325 r430  
    140140! use output_antarcti_mod 
    141141! use output_heino 
    142 !-----debugage... 
    143 use printtable 
    144  
    145142 
    146143end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/Laure16_files/module_choix-laurentide.f90

    r318 r430  
    144144! use output_antarcti_mod 
    145145! use output_heino 
    146 !-----debugage... 
    147 use printtable 
    148  
    149146 
    150147end module MODULE_CHOIX 

  • branches/GRISLIv3/SOURCES/MISMIP3D_files/module_choix_mismip3d.f90

    r238 r430  
    157157 use output_antarcti_mod 
    158158! use output_heino 
    159 !-----debugage... 
    160 use printtable 
    161  
    162  
    163159 
    164160end module module_choix 

  • branches/GRISLIv3/SOURCES/Makefile.grisli.inc

    r413 r430  
    7070        calving_frange_ISMIP_glaciers.o calving_frange_ISMIP_fracture.o \ 
    7171        no_calving.o no_rsl.o imposed_regions_rsl.o lake_rsl_mod.o \ 
    72         out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \ 
     72        out_profile_mod.o mix-SIA-L1_mod.o \ 
    7373        furst_schoof_mod.o bilan_flux_output_mod.o \ 
    7474        relaxation_water_diffusion.o \ 
    … …  
    8989        calving_frange.o calving_frange_abuk.o calving_frange_ISMIP_fracture.o \ 
    9090        no_calving.o no_rsl.o imposed_regions_rsl.o lake_rsl_mod.o \ 
    91         out_profile_mod.o printtable_mod.o mix-SIA-L1_mod.o \ 
     91        out_profile_mod.o mix-SIA-L1_mod.o \ 
    9292        furst_schoof_mod.o bilan_flux_output_mod.o \ 
    9393        relaxation_water_diffusion.o \ 
    … …  
    106106mod_no_tracers = tracer_vars_mod.o notracer_mod.o 
    107107 
    108 # Toy est la version juin 2012 avec Schooffing 
    109  
    110 toy_recul = toy_declar_3D_grisli_mod.o \ 
    111         declar_io_ncdf_toy_mod_fake.o\ 
    112         declar_toy_retreat.o \ 
    113         toy_retreat_mod.o 
    114108 
    115109# liste de routines communes 
    … …  
    133127        tab-litho-0.3.o taubed-0.3.o \ 
    134128        velocities-polyn-0.3.o \ 
    135         courbures.o 
     129        courbures.o steps_time_loop.o 
    136130 
    137131 
    … …  
    407401        $(FT) $(NCDF_INC) -c Netcdf-routines/$*.f90 
    408402 
    409 #toy_recul : 
    410 %.o: Recul_force_grounding_line/%.f90 
    411         $(FT) $(NCDF_INC) -c Recul_force_grounding_line/$*.f90 
    412  
    413403#Temperature : 
    414404%.o : Temperature-routines/%.f90 
    … …  
    428418 
    429419Ant-16 : $(Dim_ANT16) $(mod_dim_communs) \ 
    430         $(toy_recul)  \ 
    431420        $(mod_communs) \ 
    432421        $(mod_clim_tof)  \ 
    … …  
    435424        $(diagnoshelf) \ 
    436425        $(Liste_Netcdf) \ 
    437         $(routines_communes) steps_time_loop.o \ 
     426        $(routines_communes) \ 
    438427        $(routine_elliptiques) \ 
    439428        $(Liste_BLAS) 
    … …  
    441430        $(LK) -o ../bin/Ant-16 \ 
    442431        $(Dim_ANT16) $(mod_dim_communs) \ 
    443         $(toy_recul)  \ 
    444432        $(mod_communs) \ 
    445433        $(mod_clim_tof)  \ 
    … …  
    448436        $(diagnoshelf) \ 
    449437        $(Liste_Netcdf) \ 
    450         $(routines_communes) steps_time_loop.o \ 
    451         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    452  
    453 Ant-16_iterbeta : $(Dim_ANT16) $(mod_dim_communs) \ 
    454         $(toy_recul)  \ 
    455         $(mod_communs) \ 
    456         $(mod_clim_tof)  \ 
    457         $(mod_no_tracers) \ 
    458         $(mod_ell) $(Liste_ANT16) \ 
    459         $(diagnoshelf) \ 
    460         $(Liste_Netcdf) \ 
    461         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    462         $(routine_elliptiques) \ 
    463         $(Liste_BLAS) 
    464  
    465         $(LK) -o ../bin/Ant-16_iterbeta \ 
    466         $(Dim_ANT16) $(mod_dim_communs) \ 
    467         $(toy_recul)  \ 
    468         $(mod_communs) \ 
    469         $(mod_clim_tof)  \ 
    470         $(mod_no_tracers) \ 
    471         $(mod_ell) $(Liste_ANT16) \ 
    472         $(diagnoshelf) \ 
    473         $(Liste_Netcdf) \ 
    474         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
     438        $(routines_communes) \ 
    475439        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    476440 
    … …  
    479443        $(Liste_Netcdf) $(Liste_mismip_post_ncdf) \ 
    480444        $(diagnoshelf) \ 
    481         $(routines_communes) steps_time_loop.o $(routine_elliptiques)  
     445        $(routines_communes) \ 
     446        $(routine_elliptiques)  
    482447 
    483448        $(LK) -o ../bin/mismip3D  $(Dim_Mismip_3D_5)  \ 
    … …  
    485450        $(mod_ell)  $(Liste_mismip_3D_5) \ 
    486451        $(Liste_Netcdf) $(Liste_mismip_post_ncdf) $(diagnoshelf) \ 
    487         $(routines_communes) steps_time_loop.o $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) 
     452        $(routines_communes) \ 
     453        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) 
    488454 
    489455Grice2sea : $(Dim_GrIce2sea) $(mod_dim_communs)   \ 
    490         $(toy_recul)  \ 
    491456        $(mod_communs) \ 
    492457        $(mod_clim_tof)  \ 
    … …  
    495460        $(diagnoshelf) \ 
    496461        $(Liste_Netcdf) \ 
    497         $(routines_communes) steps_time_loop.o \ 
     462        $(routines_communes) \ 
    498463        $(routine_elliptiques) \ 
    499464        $(Liste_BLAS) 
    … …  
    501466        $(LK) -o ../bin/Grice2sea \ 
    502467        $(Dim_GrIce2sea) $(mod_dim_communs)  \ 
    503         $(toy_recul)  \ 
    504468        $(mod_communs) \ 
    505469        $(mod_clim_tof)  \ 
    … …  
    508472        $(diagnoshelf) \ 
    509473        $(Liste_Netcdf) \ 
    510         $(routines_communes) steps_time_loop.o \ 
    511         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    512  
    513 Grice2sea_iterbeta : $(Dim_GrIce2sea) $(mod_dim_communs)   \ 
    514         $(toy_recul)  \ 
     474        $(routines_communes) \ 
     475        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
     476 
     477Grismip6 : $(Dim_grismip6) $(mod_dim_communs) \ 
    515478        $(mod_communs) \ 
    516479        $(mod_clim_tof)  \ 
    517         $(mod_tracers) \ 
    518         $(mod_ell) $(Liste_GrIce2sea) \ 
    519         $(diagnoshelf) \ 
    520         $(Liste_Netcdf) \ 
    521         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    522         $(routine_elliptiques) \ 
    523         $(Liste_BLAS) 
    524  
    525         $(LK) -o ../bin/Grice2sea_iterbeta \ 
    526         $(Dim_GrIce2sea) $(mod_dim_communs)  \ 
    527         $(toy_recul)  \ 
    528         $(mod_communs) \ 
    529         $(mod_clim_tof)  \ 
    530         $(mod_tracers) \ 
    531         $(mod_ell) $(Liste_GrIce2sea) \ 
    532         $(diagnoshelf) \ 
    533         $(Liste_Netcdf) \ 
    534         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    535         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    536  
    537 Grismip6 : $(Dim_grismip6) $(mod_dim_communs) \ 
    538         $(toy_recul)  \ 
    539         $(mod_communs) \ 
    540         $(mod_clim_tof)  \ 
    541480        $(mod_no_tracers) \ 
    542481        $(mod_ell) $(Liste_grismip6) \ 
    543482        $(diagnoshelf) \ 
    544483        $(Liste_Netcdf) \ 
    545         $(routines_communes) steps_time_loop.o \ 
     484        $(routines_communes) \ 
    546485        $(routine_elliptiques) \ 
    547486        $(Liste_BLAS) 
    … …  
    549488        $(LK) -o ../bin/Grismip6 \ 
    550489        $(Dim_grismip6) $(mod_dim_communs) \ 
    551         $(toy_recul)  \ 
    552490        $(mod_communs) \ 
    553491        $(mod_clim_tof)  \ 
    … …  
    556494        $(diagnoshelf) \ 
    557495        $(Liste_Netcdf) \ 
    558         $(routines_communes) steps_time_loop.o \ 
     496        $(routines_communes) \ 
    559497        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    560498 
    561499Hemin-40 : $(Dim_hemin40) $(mod_dim_communs) \ 
    562         $(toy_recul)  \ 
    563500        $(mod_communs) \ 
    564501        $(mod_clim_tof) \ 
    … …  
    567504        $(diagnoshelf) \ 
    568505        $(Liste_Netcdf) \ 
    569         $(routines_communes) steps_time_loop.o \ 
     506        $(routines_communes) \ 
    570507        $(routine_elliptiques) \ 
    571508        $(Liste_BLAS) 
    … …  
    573510        $(LK) -o  ../bin/Hemin-40 \ 
    574511        $(Dim_hemin40) $(mod_dim_communs) \ 
    575         $(toy_recul)  \ 
    576512        $(mod_communs) \ 
    577513        $(mod_clim_tof) \ 
    … …  
    580516        $(diagnoshelf) \ 
    581517        $(Liste_Netcdf) \ 
    582         $(routines_communes) steps_time_loop.o \ 
    583         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    584  
    585 Hemin-40_iterbeta : $(Dim_hemin40) $(mod_dim_communs) \ 
    586         $(toy_recul)  \ 
    587         $(mod_communs_RGL) \ 
    588         $(mod_clim_tof) \ 
    589         $(mod_tracers) \ 
    590         $(mod_ell) $(Liste_hemin40) \ 
    591         $(diagnoshelf) \ 
    592         $(Liste_Netcdf) \ 
    593         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    594         $(routine_elliptiques) \ 
    595         $(Liste_BLAS) 
    596  
    597         $(LK) -o  ../bin/Hemin-40_iterbeta \ 
    598         $(Dim_hemin40) $(mod_dim_communs) \ 
    599         $(toy_recul)  \ 
    600         $(mod_communs_RGL) \ 
    601         $(mod_clim_tof) \ 
    602         $(mod_tracers) \ 
    603         $(mod_ell) $(Liste_hemin40) \ 
    604         $(diagnoshelf) \ 
    605         $(Liste_Netcdf) \ 
    606         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
     518        $(routines_communes) \ 
    607519        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    608520 
    609521Hemin-15 : $(Dim_hemin15) $(mod_dim_communs) \ 
    610         $(toy_recul)  \ 
    611522        $(mod_communs) \ 
    612523        $(mod_clim_tof) \ 
    … …  
    615526        $(diagnoshelf) \ 
    616527        $(Liste_Netcdf) \ 
    617         $(routines_communes) steps_time_loop.o \ 
     528        $(routines_communes) \ 
    618529        $(routine_elliptiques) \ 
    619530        $(Liste_BLAS) 
    … …  
    621532        $(LK) -o  ../bin/Hemin-15 \ 
    622533        $(Dim_hemin15) $(mod_dim_communs) \ 
    623         $(toy_recul)  \ 
    624534        $(mod_communs) \ 
    625535        $(mod_clim_tof) \ 
    … …  
    628538        $(diagnoshelf) \ 
    629539        $(Liste_Netcdf) \ 
    630         $(routines_communes) steps_time_loop.o \ 
     540        $(routines_communes) \ 
    631541        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    632542 
    633543Euras-40 : $(Dim_euras40) $(mod_dim_communs) \ 
    634         $(toy_recul)  \ 
    635544        $(mod_communs) \ 
    636545        $(mod_clim_tof) \ 
    … …  
    639548        $(diagnoshelf) \ 
    640549        $(Liste_Netcdf) \ 
    641         $(routines_communes) steps_time_loop.o \ 
     550        $(routines_communes) \ 
    642551        $(routine_elliptiques) \ 
    643552        $(Liste_BLAS) 
    … …  
    645554        $(LK) -o  ../bin/Euras-40 \ 
    646555        $(Dim_euras40) $(mod_dim_communs) \ 
    647         $(toy_recul)  \ 
    648556        $(mod_communs) \ 
    649557        $(mod_clim_tof) \ 
    … …  
    652560        $(diagnoshelf) \ 
    653561        $(Liste_Netcdf) \ 
    654         $(routines_communes) steps_time_loop.o \ 
     562        $(routines_communes) \ 
    655563        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    656564 
    657565Euras-20 : $(Dim_euras20) $(mod_dim_communs) \ 
    658         $(toy_recul)  \ 
    659566        $(mod_communs) \ 
    660567        $(mod_clim_tof) \ 
    … …  
    663570        $(diagnoshelf) \ 
    664571        $(Liste_Netcdf) \ 
    665         $(routines_communes) steps_time_loop.o \ 
     572        $(routines_communes) \ 
    666573        $(routine_elliptiques) \ 
    667574        $(Liste_BLAS) 
    … …  
    669576        $(LK) -o  ../bin/Euras-20 \ 
    670577        $(Dim_euras20) $(mod_dim_communs) \ 
    671         $(toy_recul)  \ 
    672578        $(mod_communs) \ 
    673579        $(mod_clim_tof) \ 
    … …  
    676582        $(diagnoshelf) \ 
    677583        $(Liste_Netcdf) \ 
    678         $(routines_communes) steps_time_loop.o \ 
     584        $(routines_communes) \ 
    679585        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    680586         
    681587Euras-10 : $(Dim_euras10) $(mod_dim_communs) \ 
    682         $(toy_recul)  \ 
    683588        $(mod_communs) \ 
    684589        $(mod_clim_tof) \ 
    … …  
    687592        $(diagnoshelf) \ 
    688593        $(Liste_Netcdf) \ 
    689         $(routines_communes) steps_time_loop.o \ 
     594        $(routines_communes) \ 
    690595        $(routine_elliptiques) \ 
    691596        $(Liste_BLAS) 
    … …  
    693598        $(LK) -o  ../bin/Euras-10 \ 
    694599        $(Dim_euras10) $(mod_dim_communs) \ 
    695         $(toy_recul)  \ 
    696600        $(mod_communs) \ 
    697601        $(mod_clim_tof) \ 
    … …  
    700604        $(diagnoshelf) \ 
    701605        $(Liste_Netcdf) \ 
    702         $(routines_communes) steps_time_loop.o \ 
     606        $(routines_communes) \ 
    703607        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)      
    704608 
    705609Laure-16 : $(Dim_laure16) $(mod_dim_communs) \ 
    706         $(toy_recul)  \ 
    707610        $(mod_communs) \ 
    708611        $(mod_clim_tof) \ 
    … …  
    711614        $(diagnoshelf) \ 
    712615        $(Liste_Netcdf) \ 
    713         $(routines_communes) steps_time_loop.o \ 
     616        $(routines_communes) \ 
    714617        $(routine_elliptiques) \ 
    715618        $(Liste_BLAS) 
    … …  
    717620        $(LK) -o  ../bin/Laure-16 \ 
    718621        $(Dim_laure16) $(mod_dim_communs) \ 
    719         $(toy_recul)  \ 
    720622        $(mod_communs) \ 
    721623        $(mod_clim_tof) \ 
    … …  
    724626        $(diagnoshelf) \ 
    725627        $(Liste_Netcdf) \ 
    726         $(routines_communes) steps_time_loop.o \ 
     628        $(routines_communes) \ 
    727629        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)      
    728630 
    729631Alps-2 : $(Dim_alps2) $(mod_dim_communs) \ 
    730         $(toy_recul)  \ 
    731632        $(mod_communs) \ 
    732633        $(mod_clim_tof) \ 
    … …  
    735636        $(diagnoshelf) \ 
    736637        $(Liste_Netcdf) \ 
    737         $(routines_communes) steps_time_loop.o \ 
     638        $(routines_communes) \ 
    738639        $(routine_elliptiques) \ 
    739640        $(Liste_BLAS) 
    … …  
    741642        $(LK) -o  ../bin/Alps-2 \ 
    742643        $(Dim_alps2) $(mod_dim_communs) \ 
    743         $(toy_recul)  \ 
    744644        $(mod_communs) \ 
    745645        $(mod_clim_tof) \ 
    … …  
    748648        $(diagnoshelf) \ 
    749649        $(Liste_Netcdf) \ 
    750         $(routines_communes) steps_time_loop.o \ 
     650        $(routines_communes) \ 
    751651        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)      
    752652 
    753653Alps-1 : $(Dim_alps1) $(mod_dim_communs) \ 
    754         $(toy_recul)  \ 
    755654        $(mod_communs) \ 
    756655        $(mod_clim_tof) \ 
    … …  
    759658        $(diagnoshelf) \ 
    760659        $(Liste_Netcdf) \ 
    761         $(routines_communes) steps_time_loop.o \ 
     660        $(routines_communes) \ 
    762661        $(routine_elliptiques) \ 
    763662        $(Liste_BLAS) 
    … …  
    765664        $(LK) -o  ../bin/Alps-1 \ 
    766665        $(Dim_alps1) $(mod_dim_communs) \ 
    767         $(toy_recul)  \ 
    768666        $(mod_communs) \ 
    769667        $(mod_clim_tof) \ 
    … …  
    772670        $(diagnoshelf) \ 
    773671        $(Liste_Netcdf) \ 
    774         $(routines_communes) steps_time_loop.o \ 
     672        $(routines_communes) \ 
    775673        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)      
    776674 
    777675Greeneem15 : $(Dim_greeneem15) $(mod_dim_communs) \ 
    778         $(toy_recul)  \ 
    779676        $(mod_communs) \ 
    780677        $(mod_clim_tof) \ 
    … …  
    783680        $(diagnoshelf) \ 
    784681        $(Liste_Netcdf) \ 
    785         $(routines_communes) steps_time_loop.o \ 
     682        $(routines_communes) \ 
    786683        $(routine_elliptiques) \ 
    787684        $(Liste_BLAS) 
    … …  
    789686        $(LK) -o ../bin/Greeneem15 \ 
    790687        $(Dim_greeneem15) $(mod_dim_communs) \ 
    791         $(toy_recul)  \ 
    792688        $(mod_communs) \ 
    793689        $(mod_clim_tof) \ 
    … …  
    796692        $(diagnoshelf) \ 
    797693        $(Liste_Netcdf) \ 
    798         $(routines_communes) steps_time_loop.o \ 
    799         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    800          
    801 Greeneem15_iterbeta : $(Dim_greeneem15) $(mod_dim_communs) \ 
    802         $(toy_recul)  \ 
    803         $(mod_communs_RGL) \ 
    804         $(mod_clim_tof) \ 
    805         $(mod_tracers) \ 
    806         $(mod_ell) $(Liste_greeneem15) \ 
    807         $(diagnoshelf) \ 
    808         $(Liste_Netcdf) \ 
    809         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    810         $(routine_elliptiques) \ 
    811         $(Liste_BLAS) 
    812  
    813         $(LK) -o ../bin/Greeneem15_iterbeta \ 
    814         $(Dim_greeneem15) $(mod_dim_communs) \ 
    815         $(toy_recul)  \ 
    816         $(mod_communs_RGL) \ 
    817         $(mod_clim_tof) \ 
    818         $(mod_tracers) \ 
    819         $(mod_ell) $(Liste_greeneem15) \ 
    820         $(diagnoshelf) \ 
    821         $(Liste_Netcdf) \ 
    822         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
     694        $(routines_communes) \ 
    823695        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    824696 
    825697Ant-40 : $(Dim_Ant40) $(mod_dim_communs) \ 
    826         $(toy_recul)  \ 
    827698        $(mod_communs) \ 
    828699        $(mod_clim_tof) \ 
    … …  
    831702        $(diagnoshelf) \ 
    832703        $(Liste_Netcdf) \ 
    833         $(routines_communes) steps_time_loop.o \ 
     704        $(routines_communes) \ 
    834705        $(routine_elliptiques) \ 
    835706        $(Liste_BLAS) 
    … …  
    837708        $(LK) -o  ../bin/Ant-40 \ 
    838709        $(Dim_Ant40) $(mod_dim_communs) \ 
    839         $(toy_recul)  \ 
    840710        $(mod_communs) \ 
    841711        $(mod_clim_tof) \ 
    … …  
    844714        $(diagnoshelf) \ 
    845715        $(Liste_Netcdf) \ 
    846         $(routines_communes) steps_time_loop.o \ 
    847         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    848          
    849 Ant-40_iterbeta : $(Dim_Ant40) $(mod_dim_communs) \ 
    850         $(toy_recul)  \ 
    851         $(mod_communs) \ 
    852         $(mod_clim_tof) \ 
    853         $(mod_no_tracers) \ 
    854         $(mod_ell) $(Liste_Ant40) \ 
    855         $(diagnoshelf) \ 
    856         $(Liste_Netcdf) \ 
    857         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    858         $(routine_elliptiques) \ 
    859         $(Liste_BLAS) 
    860  
    861         $(LK) -o  ../bin/Ant-40_iterbeta \ 
    862         $(Dim_Ant40) $(mod_dim_communs) \ 
    863         $(toy_recul)  \ 
    864         $(mod_communs) \ 
    865         $(mod_clim_tof) \ 
    866         $(mod_no_tracers) \ 
    867         $(mod_ell) $(Liste_Ant40) \ 
    868         $(diagnoshelf) \ 
    869         $(Liste_Netcdf) \ 
    870         $(routines_communes) steps_time_loop_avec_iterbeta.o \ 
    871         $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS)      
     716        $(routines_communes) \ 
     717        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    872718         
    873719Snowball : $(Dim_Snowball) $(mod_dim_communs) \ 
    874         $(toy_recul)  \ 
    875720        $(mod_communs) \ 
    876721        $(mod_clim_tof) \ 
    … …  
    879724        $(diagnoshelf) \ 
    880725        $(Liste_Netcdf) \ 
    881         $(routines_communes) steps_time_loop.o \ 
     726        $(routines_communes) \ 
    882727        $(routine_elliptiques) \ 
    883728        $(Liste_BLAS) 
    … …  
    885730        $(LK) -o  ../bin/Snowball \ 
    886731        $(Dim_Snowball) $(mod_dim_communs) \ 
    887         $(toy_recul)  \ 
    888732        $(mod_communs) \ 
    889733        $(mod_clim_tof) \ 
    … …  
    892736        $(diagnoshelf) \ 
    893737        $(Liste_Netcdf) \ 
    894         $(routines_communes) steps_time_loop.o \ 
     738        $(routines_communes) \ 
    895739        $(routine_elliptiques) $(NCDF_LIB) $(MKL_LIB) $(Liste_BLAS) 
    896740         

  • branches/GRISLIv3/SOURCES/Snowball_files/module_choix-snowball.f90

    r238 r430  
    125125!-----Suivi temporel 
    126126use output_snowball_mod 
    127 !-----debugage... 
    128 use printtable 
    129  
    130127 
    131128end module module_choix 

  • branches/GRISLIv3/SOURCES/climat-forcage-insolation_mod_oneway.f90

    r237 r430  
    1616use netcdf 
    1717use io_netcdf_grisli 
    18 !USE printtable 
    1918        
    2019implicit none 

  • branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

    r389 r430  
    2323  use runparam, only:itracebug,num_tracebug,tgrounded 
    2424  use reso_adv_diff_2D_vect, only:init_reso_adv_diff_2D,resol_adv_diff_2D_vect 
    25   use prescribe_H, only:prescribe_fixed_points,prescribe_paleo_gl_shelf,prescribe_present_H_gl,& 
    26        prescribe_present_H_gl_bmelt,init_prescribe_H 
    27   use toy_retreat_mod, only:time_step_recul 
     25!  use prescribe_H, only:prescribe_fixed_points,prescribe_paleo_gl_shelf,prescribe_present_H_gl,& 
     26!       prescribe_present_H_gl_bmelt,init_prescribe_H 
     27!  use toy_retreat_mod, only:time_step_recul 
    2828 
    2929  implicit none 
    … …  
    7171 
    7272    call init_reso_adv_diff_2D      
    73     call init_prescribe_H        ! initialize grounding line mask 
     73!    call init_prescribe_H        ! initialize grounding line mask 
    7474 
    7575    Dx1=1./Dx 
    … …  
    103103    where (mk0(:,:).eq.0) 
    104104       vieuxH(:,:)=0. 
    105     elsewhere (i_Hp(:,:).eq.1)                 ! previous prescribed thickness 
    106        vieuxH(:,:)=Hp(:,:)                     ! H may have been changed by calving 
     105!    elsewhere (i_Hp(:,:).eq.1)                 ! previous prescribed thickness 
     106!       vieuxH(:,:)=Hp(:,:)                     ! H may have been changed by calving 
    107107    elsewhere 
    108108       vieuxH(:,:)=H(:,:) 
    … …  
    414414 
    415415 
    416     call prescribe_fixed_points            ! ceux qui sont fixes pour tout le run (bords de grille, regions) 
    417  
    418  
    419     if ((igrdline.eq.1)) then               ! present grounding line 
    420  
    421        !    if ((time.lt.time_gl(1)).or.(nt.lt.2)) then      ATTENTION test seulement si version prescribe-H_mod.f90 
    422        if (ibmelt_inv.eq.0) then 
    423           call prescribe_present_H_gl       ! prescribe present thickness at the grounding line 
    424        else if (ibmelt_inv.eq.1) then ! inversion bmelt 
    425           call prescribe_present_H_gl_bmelt ! prescribe only grounding line points 
    426        else 
    427           print*,'ibmelt_inv value must be 0 or 1 !!!' 
    428           stop 
    429        endif 
    430        !    else 
    431        !       call prescribe_retreat 
    432        !    endif 
    433     end if 
    434  
    435     if ((igrdline.eq.2)) then               ! paleo grounding line 
    436        call prescribe_paleo_gl_shelf 
    437     end if 
    438  
    439     if ((igrdline.eq.3)) then   
    440        !    where (flot(:,:)) 
    441        !       mk_gr(:,:) = 0 
    442        !    elsewhere 
    443        !       mk_gr(:,:) = 1 
    444        !    end where 
    445        if (itracebug.eq.1) call tracebug(" avant time_step_recul") 
    446        call time_step_recul                 ! version prescribe-H-i2s_mod.f90 avec use proto_recul_mod  
    447        if (itracebug.eq.1) call tracebug(" apres time_step_recul") 
    448        !    call prescr_ice2sea_retreat         ! version prescribe-H_mod.f90 
    449     endif 
     416!    call prescribe_fixed_points            ! ceux qui sont fixes pour tout le run (bords de grille, regions) 
     417 
     418 
     419!!$    if ((igrdline.eq.1)) then               ! present grounding line 
     420!!$ 
     421!!$       !    if ((time.lt.time_gl(1)).or.(nt.lt.2)) then      ATTENTION test seulement si version prescribe-H_mod.f90 
     422!!$       if (ibmelt_inv.eq.0) then 
     423!!$          call prescribe_present_H_gl       ! prescribe present thickness at the grounding line 
     424!!$       else if (ibmelt_inv.eq.1) then ! inversion bmelt 
     425!!$          call prescribe_present_H_gl_bmelt ! prescribe only grounding line points 
     426!!$       else 
     427!!$          print*,'ibmelt_inv value must be 0 or 1 !!!' 
     428!!$          stop 
     429!!$       endif 
     430!!$       !    else 
     431!!$       !       call prescribe_retreat 
     432!!$       !    endif 
     433!!$    end if 
     434!!$ 
     435!!$    if ((igrdline.eq.2)) then               ! paleo grounding line 
     436!!$       call prescribe_paleo_gl_shelf 
     437!!$    end if 
     438!!$ 
     439!!$    if ((igrdline.eq.3)) then   
     440!!$       !    where (flot(:,:)) 
     441!!$       !       mk_gr(:,:) = 0 
     442!!$       !    elsewhere 
     443!!$       !       mk_gr(:,:) = 1 
     444!!$       !    end where 
     445!!$       if (itracebug.eq.1) call tracebug(" avant time_step_recul") 
     446!!$       call time_step_recul                 ! version prescribe-H-i2s_mod.f90 avec use proto_recul_mod  
     447!!$       if (itracebug.eq.1) call tracebug(" apres time_step_recul") 
     448!!$       !    call prescr_ice2sea_retreat         ! version prescribe-H_mod.f90 
     449!!$    endif 
    450450 
    451451 

  • branches/GRISLIv3/SOURCES/neffect-0.4.f90

    r418 r430  
    1010!! @note    - use module3D_phy 
    1111!! @note    - use module_choix 
    12 !! @note    - use printtable 
    1312!< 
    1413subroutine Neffect 

  • branches/GRISLIv3/SOURCES/prescribe-H-i2s_mod.f90

    r429 r430  
    2323 
    2424! pour les reculs de type ice2sea 
    25   use toy_retreat_mod 
     25!  use toy_retreat_mod 
    2626 
    2727  implicit none 
    … …  
    100100       end do 
    101101    end if 
    102  
    103  
    104     if (igrdline.eq.3) then 
    105       where (flot(:,:)) 
    106          mk_gr(:,:) = 0 
    107       elsewhere 
    108          mk_gr(:,:) = 1 
    109       end where 
    110       call init_proto_recul 
    111    end if 
    112102 
    113103  end subroutine init_prescribe_H 

  • branches/GRISLIv3/SOURCES/steps_time_loop.f90

    r358 r430  
    265265     ! update values in the structures Geom_g, Temperature_g, ... 
    266266 
    267 ! afq     calc_temp:     if ((nt.gt.2).and.(geoplace(1:5).ne.'mism3')) then 
    268267     calc_temp:     if (geoplace(1:5).ne.'mism3') then 
    269268        if (itracebug.eq.1)  call tracebug('avant appel icetemp') 
Note: See TracChangeset for help on using the changeset viewer.