- Timestamp:
- 02/28/20 10:19:34 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/parallel/checksum.f90
r548 r1016 10 10 11 11 SUBROUTINE checksum(field) 12 USE icosa13 12 USE mpi_mod 14 13 USE mpipara 14 USE field_mod 15 USE domain_mod 16 USE dimensions 15 17 IMPLICIT NONE 16 18 TYPE(t_field) :: field(:) … … 27 29 DO ind=1,ndomain 28 30 CALL swap_dimensions(ind) 29 CALL swap_geometry(ind)30 31 31 32 IF (field(ind)%field_type==field_T) THEN
Note: See TracChangeset
for help on using the changeset viewer.