Changeset 237 for trunk/SOURCES/GrIce2sea_files/output_Grice2sea_mod.f90
- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/GrIce2sea_files/output_Grice2sea_mod.f90
r11 r237 196 196 197 197 ! calcul de la hauteur au dessus de la flottaison 198 if (sealevel -B(i,j).le.0.) then ! socle au dessus du niveau des mers198 if (sealevel_2d(i,j)-B(i,j).le.0.) then ! socle au dessus du niveau des mers 199 199 volf=volf+h(i,j) 200 200 else 201 volf=volf+h(i,j)-row/ro*(sealevel -b(i,j))201 volf=volf+h(i,j)-row/ro*(sealevel_2d(i,j)-b(i,j)) 202 202 endif 203 203 … … 298 298 scal_np = scal_np + 1 299 299 scal_vol = scal_vol + H(i,j) 300 scal_volbuoy = scal_volbuoy + H(i,j) - row/ro * max(0.,sealevel -b(i,j))300 scal_volbuoy = scal_volbuoy + H(i,j) - row/ro * max(0.,sealevel_2d(i,j)-b(i,j)) 301 301 scal_meanhdot = scal_meanhdot + Hdot(i,j) 302 302 scal_sigma_hdot = scal_sigma_hdot + Hdot(i,j)**2
Note: See TracChangeset
for help on using the changeset viewer.