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

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

trunk : reorganize source tree
File size: 546 bytes
RevLine 
[12]1MODULE domain_param
[351]2  IMPLICIT NONE
3  PRIVATE
4  INTEGER :: nsplit_i
5  INTEGER :: nsplit_j
6  INTEGER :: halo=1
[12]7
[351]8  INTEGER, PARAMETER :: default_nsplit_i=1
9  INTEGER, PARAMETER :: default_nsplit_j=1
[12]10
[351]11  PUBLIC nsplit_i, nsplit_j, halo, init_domain_param
[12]12
[26]13CONTAINS
14 
15  SUBROUTINE init_domain_param
[351]16    USE ioipsl
17    !$OMP CRITICAL
[26]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)
[351]22    !$OMP END CRITICAL
[26]23  END SUBROUTINE init_domain_param
24 
[12]25END MODULE domain_param
Note: See TracBrowser for help on using the repository browser.