Changeset 1848 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
- Timestamp:
- Aug 23, 2013, 2:20:58 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
r1823 r1848 449 449 IF (ok_start_timer) THEN 450 450 CALL InitTime 451 ! ok_start_timer=.FALSE. 452 ok_start_timer=.TRUE. 451 ok_start_timer=.FALSE. 453 452 ENDIF 454 453 c$OMP END MASTER … … 624 623 True_itau=True_itau+1 625 624 626 c$OMP MASTER627 PRINT *,"---> itau=",itau," True_itau=",True_itau628 c$OMP END MASTER629 630 625 c$OMP MASTER 631 626 IF (prt_level>9) THEN … … 1086 1081 1087 1082 IF(iflag_phys.EQ.2) THEN ! "Newtonian" case 1083 c$OMP MASTER 1084 if (FirstPhysic) then 1085 ok_start_timer=.TRUE. 1086 FirstPhysic=.false. 1087 endif 1088 c$OMP END MASTER 1089 1090 1088 1091 c Calcul academique de la physique = Rappel Newtonien + fritcion 1089 1092 c -------------------------------------------------------------- … … 1388 1391 c$OMP MASTER 1389 1392 call allgather_timer_average 1390 1393 call barrier 1391 1394 if (mpi_rank==0) then 1392 1395 … … 1424 1427 1425 1428 endif 1426 1429 CALL barrier 1427 1430 print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize 1428 1431 print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used
Note: See TracChangeset
for help on using the changeset viewer.