Changeset 236

Timestamp:

01/09/19 16:43:43 (5 years ago)

Author:

aquiquet

Message:

Deprecated modules moved to Old-sources

Location:

trunk/SOURCES/Old-sources

Files:

• lect-Ant_CISM_15_dat.f90 (moved) (moved from trunk/SOURCES/Ant15_CISM_files/lect-Ant_CISM_15_dat.f90) (1 diff)
• lect-Ant_CISM_45_dat.f90 (moved) (moved from trunk/SOURCES/Ant45_CISM_files/lect-Ant_CISM_45_dat.f90)
• lect-Ant_CISM_gen_dat.f90 (moved) (moved from trunk/SOURCES/Antarctique_general_files/lect-Ant_CISM_gen_dat.f90) (1 diff)
• lect-Ant_clim_Acc-T_gen_dat.f90 (moved) (moved from trunk/SOURCES/Antarctique_general_files/lect-Ant_clim_Acc-T_gen_dat.f90)
• lect-Ant_clim_CISM_15_dat.f90 (moved) (moved from trunk/SOURCES/Ant15_CISM_files/lect-Ant_clim_CISM_15_dat.f90)
• lect-Ant_clim_CISM_45_dat.f90 (moved) (moved from trunk/SOURCES/Ant45_CISM_files/lect-Ant_clim_CISM_45_dat.f90)
• lect-Ant_clim_CISM_gen_dat.f90 (moved) (moved from trunk/SOURCES/Antarctique_general_files/lect-Ant_clim_CISM_gen_dat.f90)
• lect-Ant_gen2010_dat.f90 (moved) (moved from trunk/SOURCES/Antarctique_general_files/lect-Ant_gen2010_dat.f90)

trunk/SOURCES/Old-sources/lect-Ant_CISM_15_dat.f90

@@ -123 +123 @@
 
 
-    !     lecture du fichier de reference pour le calcul du niveau des mers : etat actuel
-    !     pas de version correcte pour l'instant -> valeurs initiales
-    S_sealev(:,:) = S0(:,:)
-    H_sealev(:,:) = H0(:,:)
-    B_sealev(:,:) = Bsoc(:,:)
-    M_sealev(:,:) = Mk0(:,:)
-
-
     call lect_input(1,'ghf',1,ghf,heatflux,file_ncdf)
     !call lect_datfile(nx,ny,ghf,1,heatflux)

trunk/SOURCES/Old-sources/lect-Ant_CISM_gen_dat.f90

@@ -170 +170 @@
     close(22)
 
-    !     lecture du fichier de reference pour le calcul du niveau des mers : etat actuel
-    !     pas de version correcte pour l'instant -> valeurs initiales
-    S_sealev(:,:) = S0(:,:)
-    H_sealev(:,:) = H0(:,:)
-    B_sealev(:,:) = Bsoc(:,:)
-    M_sealev(:,:) = Mk0(:,:)
-
 
     call lect_input(1,'ghf',1,ghf,heatflux,file_ncdf)