- Timestamp:
- 09/17/19 17:47:51 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dissip/dissip_gcm.f90
r950 r971 165 165 du=f_du(ind) 166 166 CALL compute_gradiv(u,du,1,1) 167 u=du 167 168 ENDDO 168 169 ENDDO … … 223 224 dtheta=f_dtheta(ind) 224 225 CALL compute_divgrad(theta,dtheta,1,1) 226 theta=dtheta 225 227 ENDDO 226 228 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.