source: codes/icosagcm/trunk/src/parallel/domain_param.f90

Last change on this file was 548, checked in by dubos, 7 years ago

trunk : reorganize source tree
File size: 546 bytes
Line 
1MODULE domain_param
2  IMPLICIT NONE
3  PRIVATE
4  INTEGER :: nsplit_i
5  INTEGER :: nsplit_j
6  INTEGER :: halo=1
7
8  INTEGER, PARAMETER :: default_nsplit_i=1
9  INTEGER, PARAMETER :: default_nsplit_j=1
10
11  PUBLIC nsplit_i, nsplit_j, halo, init_domain_param
12
13CONTAINS
14 
15  SUBROUTINE init_domain_param
16    USE ioipsl
17    !$OMP CRITICAL
18    nsplit_i=default_nsplit_i
19    nsplit_j=default_nsplit_j
20    CALL getin('nsplit_i',nsplit_i)
21    CALL getin('nsplit_j',nsplit_j)
22    !$OMP END CRITICAL
23  END SUBROUTINE init_domain_param
24 
25END MODULE domain_param
Note: See TracBrowser for help on using the repository browser.