Changeset 1016


Ignore:
Timestamp:
02/28/20 10:19:34 (4 years ago)
Author:
ymipsl
Message:

Avoid circular dependancy when using checksum in geometry_mod

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/parallel/checksum.f90

    r548 r1016  
    1010 
    1111  SUBROUTINE checksum(field) 
    12   USE icosa 
    1312  USE mpi_mod 
    1413  USE mpipara 
     14  USE field_mod 
     15  USE domain_mod 
     16  USE dimensions 
    1517  IMPLICIT NONE 
    1618    TYPE(t_field) :: field(:) 
    … …  
    2729    DO ind=1,ndomain 
    2830      CALL swap_dimensions(ind) 
    29       CALL swap_geometry(ind) 
    3031        
    3132      IF (field(ind)%field_type==field_T) THEN 
Note: See TracChangeset for help on using the changeset viewer.