- Timestamp:
- 12/30/17 02:00:38 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90
r652 r658 219 219 ! 220 220 INTEGER :: l, ij 221 CALL enter_trace(id_update, 8*sz*(j+1) ) 221 222 ! PRINT *, clj(1:j,j) 222 223 SELECT CASE(j) … … 263 264 END DO 264 265 END SELECT 266 CALL exit_trace() 265 267 END SUBROUTINE update 266 268
Note: See TracChangeset
for help on using the changeset viewer.