Changeset 602 for codes/icosagcm/devel
- Timestamp:
- 10/24/17 01:20:12 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/sphere/geometry.f90
r533 r602 639 639 IF (ii_glo==1 .AND. jj_glo==1) THEN 640 640 le(n+u_ldown)=0 641 le_de(n+u_ldown)=0 641 642 xyz_v(n+z_ldown,:)=xyz_v(n+z_down,:) 642 643 … … 645 646 IF (ii_glo==iim_glo .AND. jj_glo==1) THEN 646 647 le(n+u_right)=0 648 le_de(n+u_right)=0 647 649 xyz_v(n+z_rdown,:)=xyz_v(n+z_rup,:) 648 650 ENDIF … … 650 652 IF (ii_glo==iim_glo .AND. jj_glo==jjm_glo) THEN 651 653 le(n+u_rup)=0 654 le_de(n+u_rup)=0 652 655 xyz_v(n+z_rup,:)=xyz_v(n+z_up,:) 653 656 ENDIF … … 655 658 IF (ii_glo==1 .AND. jj_glo==jjm_glo) THEN 656 659 le(n+u_lup)=0 660 le_de(n+u_lup)=0 657 661 xyz_v(n+z_up,:)=xyz_v(n+z_lup,:) 658 662 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.