- Timestamp:
- 11/03/14 14:48:19 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/geometry.f90
r260 r296 149 149 REAL(rstd) :: centr(3) 150 150 INTEGER :: ind,i,j,n,k 151 TYPE(t_message),SAVE :: message 151 TYPE(t_message),SAVE :: message1,message0 152 152 LOGICAL, SAVE :: first=.TRUE. 153 153 !$OMP THREADPRIVATE(first) 154 154 155 155 IF (first) THEN 156 CALL init_message(geom%xyz_i, req_i1 ,message) 156 CALL init_message(geom%xyz_i, req_i1 ,message1) 157 CALL init_message(geom%xyz_i,req_i0, message0) 157 158 first=.FALSE. 158 159 ENDIF 159 160 160 CALL transfert_message(geom%xyz_i,message) 161 CALL transfert_message(geom%xyz_i,message0) 162 CALL transfert_message(geom%xyz_i,message1) 161 163 162 164
Note: See TracChangeset
for help on using the changeset viewer.