Changeset 224 for trunk/NEMO/OPA_SRC/DOM/domhgr.F90
- Timestamp:
- 2005-03-18T19:24:17+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domhgr.F90
r187 r224 268 268 zarg = rpi / 4. - rpi / 180. * ppgphi0 / 2. 269 269 ijeq = ABS( 180./rpi * LOG( COS( zarg ) / SIN( zarg ) ) / ppe1_deg ) 270 IF( ppgphi0 > 0 ) ijeq = -ijeq 270 271 271 272 IF(lwp) WRITE(numout,*) ' Index of the equator on the MERCATOR grid:', ijeq
Note: See TracChangeset
for help on using the changeset viewer.