- Timestamp:
- 11/21/18 16:16:06 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90
r749 r784 236 236 END SUBROUTINE 237 237 238 SUBROUTINE compute_scalar_laplacian(b,grad,divu) 239 FIELD_MASS :: b, divu ! IN, OUT 240 FIELD_U :: grad ! BUF 241 DECLARE_INDICES 242 DECLARE_EDGES 243 NUM :: div_ij 244 START_TRACE(id_scalar_laplacian, 0,0,1) 245 #include "../kernels_unst/scalar_laplacian.k90" 246 STOP_TRACE 247 END SUBROUTINE compute_scalar_laplacian 248 238 249 END MODULE caldyn_unstructured_mod
Note: See TracChangeset
for help on using the changeset viewer.