Changeset 237 for trunk/SOURCES/Greenmint40_files/output_green_mod-0.4.f90
- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Greenmint40_files/output_green_mod-0.4.f90
r4 r237 89 89 ! calcul de la hauteur au dessus de la flottaison 90 90 91 if (sealevel -B(i,j).le.0.) then ! socle au dessus du niveau des mers91 if (sealevel_2d(i,j)-B(i,j).le.0.) then ! socle au dessus du niveau des mers 92 92 volf=volf+h(i,j) 93 93 else 94 volf=volf+h(i,j)-row/ro*(sealevel -b(i,j))94 volf=volf+h(i,j)-row/ro*(sealevel_2d(i,j)-b(i,j)) 95 95 endif 96 96
Note: See TracChangeset
for help on using the changeset viewer.