Changeset 2949 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/sections_tools.f90
- Timestamp:
- 2011-10-18T10:49:04+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/sections_tools.f90
r2948 r2949 306 306 zX = sec%coordSec(1)%lon 307 307 zY = za2 * zX + zb2 308 ELSE IF ( za2 == 1.e20) THEN ! Case X=constant e308 ELSE IF ( za2 == 1.e20) THEN ! Case X=constant 309 309 zX = coord_b%lon 310 310 zY = za1 * zX + zb1
Note: See TracChangeset
for help on using the changeset viewer.