Changeset 864 for codes


Ignore:
Timestamp:
05/09/19 01:40:47 (5 years ago)
Author:
dubos
Message:

devel : missing piece of previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/icosa_init.f90

    r856 r864  
    2424  USE profiling_mod 
    2525  USE init_grid_param_mod 
     26  USE compute_geometry_mod 
    2627  IMPLICIT NONE 
    2728   
    … …  
    4243  !$OMP PARALLEL   
    4344    CALL switch_omp_no_distrib_level 
    44     IF(grid_type == grid_ico) THEN 
    45        CALL compute_geometry 
    46     ELSE 
    47        swap_needed=.FALSE. ! do this inside an OMP PARALLEL loop to affect all threads 
    48     END IF 
     45    CALL compute_geometry 
    4946    CALL check_total_area 
    5047   
Note: See TracChangeset for help on using the changeset viewer.