Changeset 286 for codes/icosagcm/trunk/src/caldyn_gcm.f90
- Timestamp:
- 10/20/14 23:42:26 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r266 r286 328 328 INTEGER :: ij 329 329 DO ij=ij_begin_ext,ij_end_ext 330 CALL xyz2lonlat(xyz_e(ij+u_right,:),lon,lat) 331 ulon(ij+u_right)=a*omega*cos(lat) 330 ulon(ij+u_right)=a*omega*cos(lat_e(ij+u_right)) 332 331 ulat(ij+u_right)=0 333 332 334 CALL xyz2lonlat(xyz_e(ij+u_lup,:),lon,lat) 335 ulon(ij+u_lup)=a*omega*cos(lat) 333 ulon(ij+u_lup)=a*omega*cos(lat_e(ij+u_lup)) 336 334 ulat(ij+u_lup)=0 337 335 338 CALL xyz2lonlat(xyz_e(ij+u_ldown,:),lon,lat) 339 ulon(ij+u_ldown)=a*omega*cos(lat) 336 ulon(ij+u_ldown)=a*omega*cos(lat_e(ij+u_ldown)) 340 337 ulat(ij+u_ldown)=0 341 338 END DO
Note: See TracChangeset
for help on using the changeset viewer.