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

Last change on this file since 95 was 95, checked in by dubos, 12 years ago

Temporary fix of transport code using halo=3
File size: 429 bytes
Line 
1MODULE domain_param
2
3INTEGER :: nsplit_i
4INTEGER :: nsplit_j
5INTEGER :: halo=3
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.