- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Antarctique_general_files/output_anta_mod-0.4.f90
r68 r237 192 192 193 193 ! calcul de la hauteur au dessus de la flottaison 194 if (sealevel -B(i,j).le.0.) then ! socle au dessus du niveau des mers194 if (sealevel_2d(i,j)-B(i,j).le.0.) then ! socle au dessus du niveau des mers 195 195 volf=volf+h(i,j) 196 196 else 197 volf=volf+h(i,j)-row/ro*(sealevel -b(i,j))197 volf=volf+h(i,j)-row/ro*(sealevel_2d(i,j)-b(i,j)) 198 198 endif 199 199 … … 289 289 scal_np = scal_np + 1 290 290 scal_vol = scal_vol + H(i,j) 291 scal_volbuoy = scal_volbuoy + H(i,j) - row/ro * max(0.,sealevel -b(i,j))291 scal_volbuoy = scal_volbuoy + H(i,j) - row/ro * max(0.,sealevel_2d(i,j)-b(i,j)) 292 292 scal_meanhdot = scal_meanhdot + Hdot(i,j) 293 293 scal_sigma_hdot = scal_sigma_hdot + Hdot(i,j)**2
Note: See TracChangeset
for help on using the changeset viewer.