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

Last change on this file since 347 was 174, checked in by ymipsl, 11 years ago

Transform 2 loops on i and j in one loop ij for efficiency, vectorization and future GPU programing

YM
File size: 429 bytes
Line 
1MODULE domain_param
2
3INTEGER :: nsplit_i
4INTEGER :: nsplit_j
5INTEGER :: halo=1
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.