source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/examples/tutorial/decomp_def.F90_monoonly @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 4 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818

File size: 980 bytes
Line 
1!****************************************************************************************
2SUBROUTINE decomp_def(id_paral,id_size,id_im,id_jm,id_rank,id_npes,id_unit)
3  !
4  IMPLICIT NONE
5  INTEGER, DIMENSION(id_size), INTENT(out) :: id_paral(id_size)   
6  INTEGER, INTENT(in)  :: id_size
7  INTEGER, INTENT(in)  :: id_im       ! Grid dimension in i
8  INTEGER, INTENT(in)  :: id_jm       ! Grid dimension in j
9  INTEGER, INTENT(in)  :: id_rank     ! Rank of process
10  INTEGER, INTENT(in)  :: id_npes     ! Number of processes involved in the coupling
11  INTEGER, INTENT(in)  :: id_unit     ! Unit of log file
12  INTEGER              :: il_imjm, il_partj
13  !
14#ifdef DECOMP_APPLE
15  ! APPLE for the global grid
16  id_paral(1) = 1
17  id_paral(2) = 0
18  id_paral(3) = id_im*id_jm
19#elif defined DECOMP_BOX
20  ! BOX for the global grid (no partition)
21  id_paral(1) = 2
22  id_paral(2) = 0
23  id_paral(3) = id_im
24  id_paral(4) = id_jm
25  id_paral(5) = id_im
26#endif
27  !
28END SUBROUTINE decomp_def
29
Note: See TracBrowser for help on using the repository browser.