- Timestamp:
- 02/01/15 11:39:51 (9 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/geometry.f90
r295 r324 266 266 DO it=1,nb_it 267 267 IF (MOD(it,100)==0) THEN 268 check= .TRUE.268 check=is_master 269 269 ELSE 270 270 check=.FALSE. … … 295 295 ENDDO 296 296 297 IF (check) THEN 298 PRINT *,"it = ",it," diff centroid circumcenter ",sum 299 ENDIF 297 IF (check) PRINT *,"it = ",it," diff centroid circumcenter ",sum 300 298 301 299 CALL update_circumcenters -
codes/icosagcm/trunk/src/omp_para.F90
r320 r324 160 160 161 161 ELSE 162 is_master=is_mpi_master 162 163 omp_size=1 163 164 omp_level_size=1
Note: See TracChangeset
for help on using the changeset viewer.