Ignore:
Timestamp:
03/13/19 16:02:44 (5 years ago)
Author:
jisesh
Message:

devel ; towards Fortran driver for unstructured/LAM meshes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/parallel/domain.f90

    r726 r813  
    579579    CALL assign_domain_omp 
    580580!$OMP END PARALLEL 
    581          
    582      
     581             
    583582  END SUBROUTINE  assign_domain       
    584583    
    … …  
    612611  END SUBROUTINE assign_domain_omp 
    613612     
    614  
    615613           
    616614  SUBROUTINE compute_domain 
    617   IMPLICIT NONE 
    618     CALL init_domain_param 
    619     CALL create_domain 
    620     CALL assign_cell 
    621     CALL compute_boundary 
    622     CALL set_neighbour_indice 
    623     CALL assign_domain 
    624        
     615    USE grid_param, ONLY : grid_type, grid_unst, grid_ico 
     616    IMPLICIT NONE 
     617    SELECT CASE(grid_type) 
     618    CASE(grid_unst) 
     619       ndomain=1 
     620       ALLOCATE(assigned_domain(1)) 
     621       assigned_domain=.TRUE. 
     622    CASE DEFAULT 
     623       CALL init_domain_param 
     624       CALL create_domain 
     625       CALL assign_cell 
     626       CALL compute_boundary 
     627       CALL set_neighbour_indice 
     628       CALL assign_domain 
     629    END SELECT 
    625630  END SUBROUTINE compute_domain 
    626631           
    627632END MODULE domain_mod  
    628    
Note: See TracChangeset for help on using the changeset viewer.