Changeset 175 for codes/icosagcm/trunk
- Timestamp:
- 10/16/13 11:58:42 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dissip_gcm.f90
r174 r175 691 691 CALL swap_geometry(ind) 692 692 dtheta_rhodz=f_dtheta_rhodz(ind) 693 mass=f_mass(ind) 693 694 694 695 DO l = ll_begin, ll_end … … 781 782 DO l=llb,lle 782 783 !$SIMD 783 DO ij= jj_begin,ij_end784 DO ij=ij_begin,ij_end 784 785 785 786 divgrad_i(ij,l)=1./Ai(ij)*(ne(ij,right)*grad_e(ij+u_right,l)*le(ij+u_right) + &
Note: See TracChangeset
for help on using the changeset viewer.