Changeset 236 for trunk/SOURCES/Old-sources
- Timestamp:
- 01/09/19 16:43:43 (5 years ago)
- Location:
- trunk/SOURCES/Old-sources
- Files:
-
- 8 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Old-sources/lect-Ant_CISM_15_dat.f90
r228 r236 123 123 124 124 125 ! lecture du fichier de reference pour le calcul du niveau des mers : etat actuel126 ! pas de version correcte pour l'instant -> valeurs initiales127 S_sealev(:,:) = S0(:,:)128 H_sealev(:,:) = H0(:,:)129 B_sealev(:,:) = Bsoc(:,:)130 M_sealev(:,:) = Mk0(:,:)131 132 133 125 call lect_input(1,'ghf',1,ghf,heatflux,file_ncdf) 134 126 !call lect_datfile(nx,ny,ghf,1,heatflux) -
trunk/SOURCES/Old-sources/lect-Ant_CISM_gen_dat.f90
r228 r236 170 170 close(22) 171 171 172 ! lecture du fichier de reference pour le calcul du niveau des mers : etat actuel173 ! pas de version correcte pour l'instant -> valeurs initiales174 S_sealev(:,:) = S0(:,:)175 H_sealev(:,:) = H0(:,:)176 B_sealev(:,:) = Bsoc(:,:)177 M_sealev(:,:) = Mk0(:,:)178 179 172 180 173 call lect_input(1,'ghf',1,ghf,heatflux,file_ncdf)
Note: See TracChangeset
for help on using the changeset viewer.