Changeset 474 for branches


Ignore:
Timestamp:
01/31/24 16:56:43 (5 months ago)
Author:
aquiquet
Message:

Cleaning branch: remove old unused code

Location:
branches/GRISLIv3
Files:
6 deleted
21 edited

Legend:

Unmodified
Added
Removed

  • branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90

    r470 r474  
    127127! dimensionnements qui etaient avant dans H_prescribe 
    128128  real,dimension(nx,ny)    :: Hp           !< H value if prescribed 
    129   real,dimension(nx,ny)    :: Hp0          !< H value if prescribed (reference value) 
    130129  integer,dimension(nx,ny) :: i_Hp         !< 1 if H is prescribed on this node, else 0 
    131   integer,dimension(nx,ny) :: i_Hp0        !< i_hp mask reference value does not change with time 
    132130  integer, dimension(nx,ny) :: imx_diag    !< masque pour eq elliptique   
    133131  integer, dimension(nx,ny) :: imy_diag    !< masque pour eq elliptique  
    … …  
    228226  logical,dimension(nx,ny) :: FLOTMX    !< if flotting (one neighboord  floats) '>' 
    229227  logical,dimension(nx,ny) :: FLOTMY    !< if flotting (one neighboord  floats) '^'   
    230   logical,dimension(nx,ny) :: FRONT_RESC!< comme front (mais boolean) pour remplimat rescue 
    231228  logical,dimension(nx,ny) :: FBM       !<  
    232229  logical,dimension(nx,ny) :: GZMX      !< point stream ">" 
    … …  
    248245  integer :: num_ritz      = 35   !< Id of ritz 
    249246  integer :: num_rep_42    = 42   !< Id of reponse 
    250   integer :: num_trace     = 81   !< Id of trace-reboot 
    251247  integer :: num_file      = 88   !< Id of  
    252248  integer :: num_kelvin    = 90   !< Id of kelvin.res 

  • branches/GRISLIv3/SOURCES/Alps_files/lect-alps_mod.f90

    r356 r474  
    1212  character(len=100) :: ghf_fich       ! fichier grille 
    1313  character(len=80) :: filin 
    14   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
    1514  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat 
    1615 

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

    r450 r474  
    2323!! @note   - use bmelt_nor_regions  
    2424!! @note   - use fake_nor 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr     
    27 !! @note   - use out_hz        
    2825!! @note   - use output_hemin40_mod 
    2926!! @note   - use printtable 
    … …  
    133130!-------------- Outputs----------------------------- 
    134131! 
    135 use out_profile  !profils 
    136 !use out_cptr     ! fichier de reprise  
    137 !use out_hz       ! module de sorties snapshot dans un plan horizontal 
    138  
    139132!-----Suivi temporel 
    140133!use output_hemin40_mod 

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

    r452 r474  
    2323!! @note   - use bmelt_ant_regions  
    2424!! @note   - use fake_ant 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr      
    27 !! @note   - use out_hz      
    2825!! @note   - use output_antarcti_mod 
    2926!! @note   - use printtable 
    … …  
    126123!-------------- Outputs----------------------------- 
    127124! 
    128 use out_profile  !profils 
    129  
    130125!-----Suivi temporel 
    131126! use output_heminord_mod 

  • branches/GRISLIv3/SOURCES/Ant40_files/lect-anteis_mod.f90

    r465 r474  
    3333!  character(len=100) :: file2 
    3434 
    35   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
    3635! afq 8/1/19:  real :: sealevel0 
    3736 
    … …  
    6968 
    7069 
    71 !!$!     lecture de la topo actuelle 
    72 !!$!     --------------------------- 
    73 !!$     open (20,file=TRIM(DIRNAMEINP)//file2,status='old') 
    74 !!$        
    75 !!$     read(20,'(A80)') TITRE 
    76 !!$     read(20,*) NI,NJ,NXX,NYY,STEP 
    77 !!$     read(20,*) 
    78 !!$         do J=1,ny  
    79 !!$          do I=1,nx 
    80 !!$             read (20,*)  S0(I,J),H0(I,J),BSOC0(I,J) 
    81 !!$             S0(i,j)=max(S0(i,j),0.) 
    82 !!$          end do 
    83 !!$        end do 
    84 !!$     close(20) 
    85 !!$ 
    86 !!$      
    87 !!$!     lecture de la topo de depart 
    88 !!$!     --------------------------- 
    89 !!$     open (20,file=TRIM(DIRNAMEINP)//file1,status='old') 
    90 !!$!         open (20,file='../INPUT-DATA/hemin.g50') 
    91 !!$     read(20,'(A80)') TITRE 
    92 !!$     read(20,*) NI,NJ,NXX,NYY,STEP 
    93 !!$     read(20,*) 
    94 !!$         do J=1,ny  
    95 !!$          do I=1,nx 
    96 !!$             read (20,*) S(I,J),H(I,J),BSOC(I,J) 
    97 !!$          end do 
    98 !!$        end do 
    99 !!$     close(20) 
    100  
    101     !     lecture de la topo de référence 
    102     !     ------------------------------- 
    103     ! Cette topo sert a calculer le socle de reference pour l'isostasie 
    104     ! voir init_iso et a avoir une surface de reference pour les temperatures 
    105     ! lecture adaptee aux fichiers ZBL.dat ou netcdf ou grd 
    106 !    call lect_input(1,'Bsoc',1,Bsoc0,topo_ref,file_ncdf)    ! socle 
    107 !    call lect_input(1,'S',1,S0,topo_ref,file_ncdf)          ! surface 
    108 !    call lect_input(1,'H',1,H0,topo_ref,file_ncdf)          ! epaisseur 
    109  
    11070! lecture pour eviter plantage avec compile -O0 
    11171     call Read_Ncdf_var('Bsoc',topo_ref,tab) 
    … …  
    11575     call Read_Ncdf_var('H',topo_ref,tab) 
    11676     H0(:,:)  = tab(:,:) 
    117 !~ !cdc correction de 3 pts qui posent probleme (pente tres forte): 
    118 !~      S0(38,53)=1400. 
    119 !~      Bsoc0(38,53)=-1000. 
    120 !~      H0(38,53)=S0(38,53)-Bsoc0(38,53) 
    121 !~       
    122 !~      S0(35,53)=1300. 
    123 !~      Bsoc0(35,53)=-1000. 
    124 !~      H0(35,53)=S0(35,53)-Bsoc0(35,53) 
    125 !~       
    126 !~      S0(35,56)=1200. 
    127 !~      Bsoc0(35,56)=-1000. 
    128 !~      H0(35,56)=S0(35,56)-Bsoc0(35,56) 
    129  
    130 !cdc correction point pole sud : 
    131 !    S0(71,71)=(S0(71,70)+S0(71,72)+S0(70,71)+S0(72,71))/4. 
    132 !    Bsoc0(71,71)=(Bsoc0(71,70)+Bsoc0(71,72)+Bsoc0(70,71)+Bsoc0(72,71))/4. 
    133  
    13477 
    13578!    where (S0(:,:).GT.0) 
    … …  
    15093    !     lecture de la topo de depart 
    15194    !     --------------------------- 
    152     ! lecture adaptee aux fichiers ZBL.dat ou netcdf ou grd 
    153 !    call lect_input(1,'Bsoc',1,Bsoc,topo_dep,file_ncdf)    ! socle 
    154 !    call lect_input(1,'S',1,S,topo_dep,file_ncdf)          ! surface 
    155 !    call lect_input(1,'H',1,H,topo_dep,file_ncdf)          ! epaisseur 
    15695    ! lecture pour eviter plantage avec compile -O0 
    15796     call Read_Ncdf_var('Bsoc',topo_dep,tab) 
    … …  
    162101     H(:,:)  = tab(:,:) 
    163102      
    164 !~ !cdc correction de 3 pts qui posent probleme (pente tres forte): 
    165 !~      S(39,54)=1400. 
    166 !~      Bsoc(39,54)=-1000. 
    167 !~      H(39,54)=S(39,54)-Bsoc(39,54) 
    168 !~       
    169 !~      S(36,54)=1300. 
    170 !~      Bsoc(36,54)=-1000. 
    171 !~      H(36,54)=S(36,54)-Bsoc(36,54) 
    172 !~       
    173 !~      S(36,57)=1200. 
    174 !~      Bsoc(36,57)=-1000. 
    175 !~      H(36,57)=S(36,57)-Bsoc(36,57) 
    176      
    177 !    S(71,71)=(S(71,70)+S(71,72)+S(70,71)+S(72,71))/4. 
    178 !    Bsoc(71,71)=(Bsoc(71,70)+Bsoc(71,72)+Bsoc(70,71)+Bsoc(72,71))/4. 
    179103!    where (S(:,:).GT.0) 
    180104!       H(:,:)=S(:,:)-BSOC(:,:) 
    … …  
    184108! afq 8/1/19:    S(:,:)=max(S(:,:),0.)   ! pour etre au niveau des mers : ATTENTION si SEALEV <0 
    185109    H(:,:)=max(H(:,:),0.)   ! pas d epaisseurs negatives 
    186  
    187  
    188 !!$ 
    189 !!$    ! socle 
    190 !!$    filin='bedelev-2000-40km.dat' 
    191 !!$    call lect_eis(nx,ny,BSOC,filin,DIRNAMEINP) 
    192 !!$    write(num_rep_42,*) 'fichier BSOC (socle) : ', filin  
    193 !!$    Bsoc0(:,:)=Bsoc(:,:) 
    194 !!$    !  surface 
    195 !!$    filin='surface-2000-40km.dat' 
    196 !!$    call lect_eis(nx,ny,S,filin,DIRNAMEINP) 
    197 !!$    write(num_rep_42,*) 'fichier surface : ', filin  
    198 !!$ 
    199 !!$    !     epaisseur 
    200 !!$    filin='icethic-2000-40km.dat' 
    201 !!$    call lect_eis(nx,ny,H,filin,DIRNAMEINP) 
    202 !!$    write(num_rep_42,*) 'fichier epaisseur : ', filin  
    203 !!$    H0(:,:)=H(:,:) 
    204 !!$ 
    205 !!$ 
    206 !!$    !     masque 
    207 !!$    filin='maskHUY40km.dat' 
    208 !!$    call lect_ieis(nx,ny,MK0,filin,DIRNAMEINP) 
    209 !!$    write(num_rep_42,*) 'fichier masque : ', filin  
    210 !!$ 
    211 !!$    !     enlever les epaisseurs fictives de Philippe 
    212 !!$    do I=1,NX 
    213 !!$       do J=1,NY 
    214 !!$          !     attention les valeurs de masque de Philippe sont differentes 
    215 !!$          if ((MK0(I,J).gt.1).and.(H(i,j).le.218.00)) then ! mer libre 
    216 !!$             H(i,j)=1.  
    217 !!$             S(I,J)=H(i,j)-(RO/ROW)*H(i,j) 
    218 !!$          endif 
    219 !!$       end do 
    220 !!$    end do 
    221  
    222110 
    223111!    S0(:,:)=S(:,:) 
    … …  
    236124       enddo 
    237125    enddo 
    238  
    239  
    240 ! calcul des courbures du socle 
    241  
    242 !     call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    243 !          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    244 !     socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    245  
    246     ! lecture des coordonnées geographiques 
    247 !    filin=TRIM(DIRNAMEINP)//'coord-Ant-40km.dat' 
    248126 
    249127    ! les coordonnees sont calculees en °dec avec GMT, 
    … …  
    264142    open(88,file=ghf_fich) 
    265143 
    266 !    write(num_rep_42,*) 'flux geothermique Shapiro : ', TRIM(DIRNAMEINP)//'ijphi-40km-ant.dat' 
    267 !    do k=1,nx*ny 
    268 !       read(88,*) i,j,ghf(i,j) 
    269 !    end do 
    270 !    close(88) 
    271  
    272 !    call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf) 
    273144    ! pour eviter plantage -O0 
    274145    call Read_Ncdf_var('ghf',ghf_fich,tab) 

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

    r465 r474  
    2323!! @note   - use bmelt_ant_regions  
    2424!! @note   - use fake_ant 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr      
    27 !! @note   - use out_hz      
    2825!! @note   - use output_antarcti_mod 
    2926!< 
    … …  
    125122!-------------- Outputs----------------------------- 
    126123! 
    127 use out_profile  !profils 
    128  
    129124!-----Suivi temporel 
    130125! use output_heminord_mod 

  • branches/GRISLIv3/SOURCES/Eurasie_files/lect-eurasie_mod.f90

    r297 r474  
    1212  character(len=100) :: ghf_fich       ! fichier grille 
    1313  character(len=80) :: filin 
    14   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
    1514  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat 
    1615 
    … …  
    117116  H(:,:)=varloc(:,:) 
    118117 
    119  
    120 ! calcul des courbures du socle 
    121 !     call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    122 !          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    123 !     socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    124  
    125 ! lecture des coordonnées geographiques 
    126  
    127 !    filin=TRIM(DIRNAMEINP)//grid_topo 
    128  
    129118! les coordonnees sont calculees en °dec avec GMT, 
    130119! les longitudes sont comprises entre -180 et +180 (negative a l'Ouest de 
    … …  
    140129  xmax=xcc(nx,ny)/1000. 
    141130  ymax=ycc(nx,ny)/1000. 
    142                           
    143 ! lecture du flux geothermique de Shapiro 
    144 !    open(88,file=TRIM(DIRNAMEINP)//'ijphi_hemin40.dat') 
    145 !    open(88,file=ghf_fich) 
    146131 
    147 !!$    write(42,*) 'flux geothermique Shapiro : ',TRIM(DIRNAMEINP)//'ijphi_hemin40.dat' 
    148 !!$    do k=1,nx*ny 
    149 !!$       read(88,*) i,j,ghf(i,j) 
    150 !!$    end do 
    151 !!$    close(88) 
    152132 
    153133  call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf) 
    … …  
    158138!     ghf(:,:)=-SECYEAR/1000.*55. !B6norcg2 
    159139 
    160 ! print*,'lect topo' 
    161 ! print*,'shb',S(101,91),H(101,91),B(101,91) 
    162 ! print*,'shb0',S0(101,91),H0(101,91),BSOC0(101,91) 
    163140!    Initialisation du Masque 
    164141!------------------------------------------------ 

  • branches/GRISLIv3/SOURCES/Eurasie_files/module_choix-eurasie.f90

    r450 r474  
    2323!! @note   - use bmelt_nor_regions  
    2424!! @note   - use fake_nor 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr     
    27 !! @note   - use out_hz        
    2825!! @note   - use output_hemin40_mod 
    2926!! @note   - use printtable 
    … …  
    131128!-------------- Outputs----------------------------- 
    132129! 
    133 use out_profile  !profils 
    134 !use out_cptr     ! fichier de reprise  
    135 !use out_hz       ! module de sorties snapshot dans un plan horizontal 
    136  
    137130!-----Suivi temporel 
    138131!use output_hemin40_mod 

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

    r452 r474  
    2323!! @note   - use bmelt_ant_regions  
    2424!! @note   - use fake_ant 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr      
    27 !! @note   - use out_hz      
    2825!! @note   - use output_antarcti_mod 
    2926!! @note   - use printtable 
    … …  
    127124!-------------- Outputs----------------------------- 
    128125! 
    129 use out_profile  !profils 
    130  
    131126!-----Suivi temporel 
    132127! use output_heminord_mod 

  • branches/GRISLIv3/SOURCES/Hemin15_files/lect-hemin15_mod.f90

    r224 r474  
    1111  character(len=100) :: grid_topo      ! fichier grille 
    1212  character(len=100) :: ghf_fich       ! fichier grille 
    13   character(len=80) :: filin 
    14   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
     13  character(len=80) :: fili 
    1514  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat 
    1615 
    … …  
    5554 
    5655 
    57 ! calcul des courbures du socle 
    58 !  call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    59 !          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    60 !  socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    61  
    6256! lecture des coordonnées geographiques 
    6357! les coordonnees sont calculees en °dec avec GMT, 

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

    r450 r474  
    2323!! @note   - use equat_adv_diff_2D         
    2424!! @note   - use fake_nor 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr     
    27 !! @note   - use out_hz        
    2825!! @note   - use output_hemin40_mod 
    2926!! @note   - use printtable 
    … …  
    121118!-------------- Outputs----------------------------- 
    122119! 
    123 use out_profile  !profils 
    124  
    125120!-----Suivi temporel 
    126121use output_hemin40_mod 

  • branches/GRISLIv3/SOURCES/Hemin40_files/lect-hemin40_mod.f90

    r465 r474  
    1414  character(len=100) :: ghf_fich       ! fichier grille 
    1515  character(len=80) :: filin 
    16   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
    1716  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat 
    1817 
    … …  
    120119 
    121120 
    122 ! calcul des courbures du socle 
    123 !     call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    124 !          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    125 !     socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    126  
    127 ! lecture des coordonnées geographiques 
    128  
    129 !    filin=TRIM(DIRNAMEINP)//grid_topo 
    130  
    131121! les coordonnees sont calculees en °dec avec GMT, 
    132122! les longitudes sont comprises entre -180 et +180 (negative a l'Ouest de 
    … …  
    142132  xmax=xcc(nx,ny)/1000. 
    143133  ymax=ycc(nx,ny)/1000. 
    144                           
    145 ! lecture du flux geothermique de Shapiro 
    146 !    open(88,file=TRIM(DIRNAMEINP)//'ijphi_hemin40.dat') 
    147 !    open(88,file=ghf_fich) 
    148134 
    149 !!$    write(42,*) 'flux geothermique Shapiro : ',TRIM(DIRNAMEINP)//'ijphi_hemin40.dat' 
    150 !!$    do k=1,nx*ny 
    151 !!$       read(88,*) i,j,ghf(i,j) 
    152 !!$    end do 
    153 !!$    close(88) 
    154135 
    155136  call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf) 
    … …  
    160141!     ghf(:,:)=-SECYEAR/1000.*55. !B6norcg2 
    161142 
    162 ! print*,'lect topo' 
    163 ! print*,'shb',S(101,91),H(101,91),B(101,91) 
    164 ! print*,'shb0',S0(101,91),H0(101,91),BSOC0(101,91) 
    165143!    Initialisation du Masque 
    166144!------------------------------------------------ 

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

    r473 r474  
    2323!! @note   - use equat_adv_diff_2D         
    2424!! @note   - use fake_nor 
    25 !! @note   - use out_profile   
    26 !! @note   - use out_cptr     
    27 !! @note   - use out_hz        
    2825!! @note   - use output_hemin40_mod 
    2926!! @note   - use printtable 
    … …  
    130127!-------------- Outputs----------------------------- 
    131128! 
    132 use out_profile  !profils 
    133 !use out_cptr     ! fichier de reprise  
    134 !use out_hz       ! module de sorties snapshot dans un plan horizontal 
    135  
    136129!-----Suivi temporel 
    137130use output_hemin40_mod 

  • branches/GRISLIv3/SOURCES/Laure16_files/lect-laurentide_mod.f90

    r465 r474  
    1212  character(len=100) :: ghf_fich       ! fichier grille 
    1313  character(len=80) :: filin 
    14   real, dimension(nx,ny,5) :: bidon          ! pour l'appel a courbure 
    1514  character(len=100) :: file_ncdf      !< fichier netcdf issue des fichiers .dat 
    1615 
    … …  
    120119  H(:,:)=varloc(:,:) 
    121120 
    122  
    123 ! calcul des courbures du socle 
    124 !     call courbure(nx,ny,dx,Bsoc,bidon(:,:,1),bidon(:,:,2),bidon(:,:,3), & 
    125 !          bidon(:,:,4),socle_cry,bidon(:,:,5)) 
    126 !     socle_cry(:,:)=socle_cry(:,:)*dx*dx 
    127  
    128 ! lecture des coordonnées geographiques 
    129  
    130 !    filin=TRIM(DIRNAMEINP)//grid_topo 
    131  
    132121! les coordonnees sont calculees en °dec avec GMT, 
    133122! les longitudes sont comprises entre -180 et +180 (negative a l'Ouest de 
    … …  
    145134  xmax=xcc(nx,ny)/1000. 
    146135  ymax=ycc(nx,ny)/1000. 
    147                           
    148 ! lecture du flux geothermique de Shapiro 
    149 !    open(88,file=TRIM(DIRNAMEINP)//'ijphi_hemin40.dat') 
    150 !    open(88,file=ghf_fich) 
    151136 
    152 !!$    write(42,*) 'flux geothermique Shapiro : ',TRIM(DIRNAMEINP)//'ijphi_hemin40.dat' 
    153 !!$    do k=1,nx*ny 
    154 !!$       read(88,*) i,j,ghf(i,j) 
    155 !!$    end do 
    156 !!$    close(88) 
    157137 
    158138  call lect_input(1,'ghf',1,ghf,ghf_fich,file_ncdf) 
    … …  
    163143!     ghf(:,:)=-SECYEAR/1000.*55. !B6norcg2 
    164144 
    165 ! print*,'lect topo' 
    166 ! print*,'shb',S(101,91),H(101,91),B(101,91) 
    167 ! print*,'shb0',S0(101,91),H0(101,91),BSOC0(101,91) 
    168145!    Initialisation du Masque 
    169146!------------------------------------------------ 

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

    r450 r474  
    2424!! @note   - use bmelt_nor_regions  
    2525!! @note   - use fake_nor 
    26 !! @note   - use out_profile   
    27 !! @note   - use out_cptr     
    28 !! @note   - use out_hz        
    2926!! @note   - use output_hemin40_mod 
    3027!! @note   - use printtable 
    … …  
    134131!-------------- Outputs----------------------------- 
    135132! 
    136 use out_profile  !profils 
    137 !use out_cptr     ! fichier de reprise  
    138 !use out_hz       ! module de sorties snapshot dans un plan horizontal 
    139  
    140133!-----Suivi temporel 
    141134!use output_hemin40_mod 

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

    r450 r474  
    2424!! @note   - use bmelt_seuil_prof 
    2525!! @note   - use fake_ant 
    26 !! @note   - use out_profile   
    27 !! @note   - use out_cptr      
    28 !! @note   - use out_hz        
    2926!! @note   - use output_antarcti_mod 
    3027!! @note   - use printtable 
    … …  
    148145!-------------- Outputs----------------------------- 
    149146! 
    150 use out_profile  !profils 
    151 !use out_cptr     ! fichier de reprise  
    152 use out_hz       ! module de sorties snapshot dans un plan horizontal 
    153  
    154147!-----Suivi temporel 
    155148! use output_heminord_mod 

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

    r453 r474  
    6262        interface_input.o \ 
    6363        iso_declar_mod-0.3.o isostasie_mod-0.3.o noisostasie_mod-0.3.o \ 
    64         deformation_mod_2lois.o deformation_mod_2lois_isotherme.o     \ 
    65         no_sliding.o                        \ 
     64        deformation_mod_2lois.o no_sliding.o    \ 
    6665        fake_beta_iter_vitbil_mod.o \ 
    6766        dragging_param_beta_mod.o dragging_param_beta_sedim_mod.o \ 
    … …  
    7069        calving_frange_ISMIP_glaciers.o calving_frange_ISMIP_fracture.o \ 
    7170        no_calving.o no_rsl.o imposed_regions_rsl.o lake_rsl_mod.o \ 
    72         out_profile_mod.o mix-SIA-L1_mod.o \ 
     71        mix-SIA-L1_mod.o \ 
    7372        furst_schoof_mod.o bilan_flux_output_mod.o \ 
    7473        relaxation_water_diffusion.o \ 
    75         prescribe-H-i2s_mod.o  \ 
    7674        resol_adv_diff_2D-sept2009.o  \ 
    7775        conserv-mass-adv-diff_sept2009_mod.o  \ 
    … …  
    122120        out_cptr_mod.o lineartemp-0.2.o  litho-0.4.o main3D-0.4-40km.o masque.o \ 
    123121        moy_mxmy.o neffect-0.4.o next-time.o \ 
    124         no-icethick.o  printdebug.o  \ 
    125122        slope_surf.o \ 
    126123        strain_rate.o \ 
    127124        tab-litho-0.3.o taubed-0.3.o \ 
    128125        velocities-polyn-0.3.o \ 
    129         courbures.o steps_time_loop.o 
     126        steps_time_loop.o 
    130127 
    131128 

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

    r468 r474  
    2424  use runparam, only: itracebug,num_tracebug 
    2525  use reso_adv_diff_2D_vect, only: init_reso_adv_diff_2D,resol_adv_diff_2D_vect 
    26 !  use prescribe_H, only:prescribe_fixed_points,prescribe_paleo_gl_shelf,prescribe_present_H_gl,& 
    27 !       prescribe_present_H_gl_bmelt,init_prescribe_H 
    28 !  use toy_retreat_mod, only:time_step_recul 
    2926 
    3027  implicit none 
    … …  
    7269 
    7370    call init_reso_adv_diff_2D      
    74 !    call init_prescribe_H        ! initialize grounding line mask 
    7571 
    7672    Dx1=1./Dx 

  • branches/GRISLIv3/SOURCES/initial-0.3.f90

    r446 r474  
    5656  !initialisation du niveau marin local 
    5757  call input_rsl 
    58  
    59  
    60   ! call  input_profile()     ! Les fichiers profils 
    61   ! 
    6258 
    6359  if (icompteur.ne.0) then ! reprise  d un fichier cptr 

  • branches/GRISLIv3/SOURCES/steps_time_loop.f90

    r468 r474  
    106106  ! outputs 
    107107  !==================================================================== 
    108  
    109   !   vertical plan snapshots (profiles) 
    110   !------------------------------------------------------------------ 
    111  
    112   !if ((NT.eq.1) &    !   .or.(NT.eq.2) 
    113   !     .or.(mod(abs(dble(TIME)),dble(DTPROFILE)).lt.dble(dtmin)) & 
    114   !     .or.(abs(TIME-TEND).lt.dtmin)) then 
    115   !  call sortieprofile() 
    116   !endif 
    117108 
    118109  !  sorties netcdf Hassine (aout 2010)  (2D and 3D) 

  • branches/GRISLIv3/launching_area/Master-files/module_choix-antar40-0.4-cycles.f90

    r473 r474  
    2424!! @note   - use bmelt_ant_regions  
    2525!! @note   - use fake_ant 
    26 !! @note   - use out_profile   
    27 !! @note   - use out_cptr      
    28 !! @note   - use out_hz      
    2926!! @note   - use output_antarcti_mod 
    3027!< 
    … …  
    127124!-------------- Outputs----------------------------- 
    128125! 
    129 use out_profile  !profils 
    130  
    131126!-----Suivi temporel 
    132127! use output_heminord_mod 
Note: See TracChangeset for help on using the changeset viewer.