source: codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/getin.f90 @ 221

Last change on this file since 221 was 221, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 1.4 KB
Line 
1MODULE getin_mod
2
3PRIVATE
4
5  INTERFACE getin
6    MODULE PROCEDURE getin_c , getin_l, getin_i, getin_r
7  END INTERFACE getin
8 
9PUBLIC getin
10 
11CONTAINS
12
13  SUBROUTINE getin_c(name,value)
14  USE ioipsl, ONLY : getin_=>getin
15  USE transfert_omp_mod
16  USE omp_para
17  IMPLICIT NONE
18    CHARACTER(LEN=*) :: name
19    CHARACTER(LEN=*) :: value
20
21!$OMP MASTER   
22    CALL getin_(name,value)
23!$OMP END MASTER
24    IF (omp_in_parallel()) CALL bcast_omp(value)
25  END SUBROUTINE getin_c
26
27  SUBROUTINE getin_l(name,value)
28  USE ioipsl, ONLY : getin_=>getin
29  USE transfert_omp_mod
30  USE omp_para
31  IMPLICIT NONE
32    CHARACTER(LEN=*) :: name
33    LOGICAL          :: value
34
35!$OMP MASTER   
36    CALL getin_(name,value)
37!$OMP END MASTER
38    IF (omp_in_parallel()) CALL bcast_omp(value)
39  END SUBROUTINE getin_l
40
41  SUBROUTINE getin_i(name,value)
42  USE ioipsl, ONLY : getin_=>getin
43  USE transfert_omp_mod
44  USE omp_para
45  IMPLICIT NONE
46    CHARACTER(LEN=*) :: name
47    INTEGER          :: value
48
49!$OMP MASTER   
50    CALL getin_(name,value)
51!$OMP END MASTER
52    IF (omp_in_parallel()) CALL bcast_omp(value)
53  END SUBROUTINE getin_i
54 
55 
56  SUBROUTINE getin_r(name,value)
57  USE ioipsl, ONLY : getin_=>getin
58  USE omp_para
59  USE transfert_omp_mod
60  IMPLICIT NONE
61    CHARACTER(LEN=*) :: name
62    REAL             :: value
63
64!$OMP MASTER   
65    CALL getin_(name,value)
66!$OMP END MASTER
67    IF (omp_in_parallel()) CALL bcast_omp(value)
68  END SUBROUTINE getin_r
69 
70END MODULE getin_mod
Note: See TracBrowser for help on using the repository browser.