source: codes/icosagcm/trunk/src/domain_param.f90 @ 26

Last change on this file since 26 was 26, checked in by ymipsl, 12 years ago

Implementation of parallelism
implementation of iterative laplacian for dissipation

File size: 429 bytes
Line 
1MODULE domain_param
2
3INTEGER :: nsplit_i
4INTEGER :: nsplit_j
5INTEGER :: halo=2
6
7INTEGER, PARAMETER :: default_nsplit_i=1
8INTEGER, PARAMETER :: default_nsplit_j=1
9
10CONTAINS
11 
12  SUBROUTINE init_domain_param
13  USE ioipsl
14  IMPLICIT NONE
15    nsplit_i=default_nsplit_i
16    nsplit_j=default_nsplit_j
17    CALL getin('nsplit_i',nsplit_i)
18    CALL getin('nsplit_j',nsplit_j)
19  END SUBROUTINE init_domain_param
20 
21END MODULE domain_param
Note: See TracBrowser for help on using the repository browser.