Changeset 237 for trunk/SOURCES/Greeneem_files/lect-greeneem_mod.f90
- Timestamp:
- 01/09/19 17:09:26 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/Greeneem_files/lect-greeneem_mod.f90
r113 r237 86 86 do i=1,nx 87 87 88 archimed = Bsoc(i,j)+H(i,j)*ro/row -sealevel 88 archimed = Bsoc(i,j)+H(i,j)*ro/row -sealevel_2d(i,j) 89 89 90 90 if ((archimed.LT.0.).and.(H(I,J).gt.1.E-3)) then ! le point flotte
Note: See TracChangeset
for help on using the changeset viewer.