- Timestamp:
- 2012-05-04T09:26:12+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90
r3379 r3381 158 158 ! update actual position 159 159 pt%lon = icb_utl_bilin_x(glamt, pt%xi, pt%yj ) 160 pt%lat = icb_utl_bilin(gphit, pt%xi, pt%yj, 'T' , 0, 0)160 pt%lat = icb_utl_bilin(gphit, pt%xi, pt%yj, 'T' ) 161 161 162 162 berg => berg%next ! switch to the next berg
Note: See TracChangeset
for help on using the changeset viewer.