Changeset 59
- Timestamp:
- 07/31/12 18:39:34 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dissip_gcm.f90
r32 r59 61 61 REAL(rstd),POINTER :: theta(:) 62 62 REAL(rstd),POINTER :: dtheta(:) 63 REAL(rstd) :: dumax 64 REAL(rstd) :: dthetamax 63 REAL(rstd) :: dumax,dumax1 64 REAL(rstd) :: dthetamax,dthetamax1 65 65 REAL(rstd) :: r 66 66 REAL(rstd) :: tau … … 197 197 ENDDO 198 198 199 IF (using_mpi) CALL MPI_ALLREDUCE(dumax,dumax,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 200 199 IF (using_mpi) THEN 200 CALL MPI_ALLREDUCE(dumax,dumax1,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 201 dumax=dumax1 202 ENDIF 203 201 204 DO ind=1,ndomain 202 205 CALL swap_dimensions(ind) … … 267 270 ENDDO 268 271 269 IF (using_mpi) CALL MPI_ALLREDUCE(dumax,dumax,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 272 IF (using_mpi) THEN 273 CALL MPI_ALLREDUCE(dumax,dumax1,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 274 dumax=dumax1 275 ENDIF 270 276 271 277 DO ind=1,ndomain … … 333 339 ENDDO 334 340 ENDDO 335 IF (using_mpi) CALL MPI_ALLREDUCE(dthetamax,dthetamax,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 341 IF (using_mpi) THEN 342 CALL MPI_ALLREDUCE(dthetamax,dthetamax1,1,MPI_REAL8,MPI_MAX,comm_icosa,ierr) 343 dthetamax=dthetamax1 344 ENDIF 336 345 PRINT *,"divgrad : it :",it ,": dthetamax",dthetamax 337 346
Note: See TracChangeset
for help on using the changeset viewer.