Changeset 237 for trunk/SOURCES/Snowball_files/output_snowball_mod-0.4.f90
- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Snowball_files/output_snowball_mod-0.4.f90
r57 r237 83 83 vol=vol+h(i,j) 84 84 ! calcul de la hauteur au dessus de la flottaison 85 if (sealevel -B(i,j).le.0.) then ! socle au dessus du niveau des mers85 if (sealevel_2d(i,j)-B(i,j).le.0.) then ! socle au dessus du niveau des mers 86 86 volf=volf+h(i,j) 87 87 else 88 volf=volf+h(i,j)-row/ro*(sealevel -b(i,j))88 volf=volf+h(i,j)-row/ro*(sealevel_2d(i,j)-b(i,j)) 89 89 endif 90 90
Note: See TracChangeset
for help on using the changeset viewer.