Changeset 1845 for LMDZ5/trunk


Ignore:
Timestamp:
Aug 22, 2013, 12:00:37 PM (11 years ago)
Author:
yann meurdesoif
Message:

repair timers for newtonian version

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r1825 r1845  
    998998!   Academic case : Simple friction and Newtonan relaxation
    999999!   -------------------------------------------------------
     1000c$OMP MASTER
     1001         if (FirstPhysic) then
     1002           ok_start_timer=.TRUE.
     1003           FirstPhysic=.false.
     1004         endif
     1005c$OMP END MASTER
     1006
    10001007       ijb=ij_begin
    10011008       ije=ij_end
Note: See TracChangeset for help on using the changeset viewer.