Ignore:
Timestamp:
05/06/19 01:49:12 (5 years ago)
Author:
dubos
Message:

devel : towards Fortran driver for unstructured/LAM meshes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/sphere/geometry.f90

    r602 r856  
    142142  SUBROUTINE swap_geometry(ind) 
    143143  USE field_mod 
     144  USE domain_mod, ONLY : swap_needed 
    144145  IMPLICIT NONE 
    145146    INTEGER,INTENT(IN) :: ind 
     147 
     148    IF(.NOT. swap_needed) RETURN 
     149 
    146150!!$OMP MASTER 
    147151    Ai=geom%Ai(ind) 
Note: See TracChangeset for help on using the changeset viewer.