Ignore:
Timestamp:
07/26/12 15:25:40 (12 years ago)
Author:
ymipsl
Message:

Implementation of parallelism
implementation of iterative laplacian for dissipation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/domain_param.f90

    r12 r26  
    11MODULE domain_param 
    22 
    3 INTEGER, PARAMETER :: nsplit_i=1 
    4 INTEGER, PARAMETER :: nsplit_j=1 
    5 INTEGER, PARAMETER :: halo=2 
     3INTEGER :: nsplit_i 
     4INTEGER :: nsplit_j 
     5INTEGER :: halo=2 
    66 
     7INTEGER, PARAMETER :: default_nsplit_i=1 
     8INTEGER, PARAMETER :: default_nsplit_j=1 
    79 
     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   
    821END MODULE domain_param 
Note: See TracChangeset for help on using the changeset viewer.