Changeset 1671 for LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F
- Timestamp:
- Oct 24, 2012, 9:10:10 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F
r1626 r1671 139 139 REAL :: secondes 140 140 141 logical :: physic 141 142 LOGICAL first,callinigrads 142 143 … … 208 209 209 210 itau = 0 211 physic=.true. 212 if (iflag_phys==0.or.iflag_phys==2) physic=.false. 210 213 ! iday = day_ini+itau/day_step 211 214 ! time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 … … 364 367 s apdiss = .TRUE. 365 368 IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 366 s .and. iflag_phys.EQ.1) apphys = .TRUE.369 s .and. physic ) apphys = .TRUE. 367 370 ELSE 368 371 ! Leapfrog/Matsuno time stepping … … 370 373 IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward ) 371 374 s apdiss = .TRUE. 372 IF( MOD(itau+1,iphysiq).EQ.0.AND. iflag_phys.EQ.1) apphys=.TRUE.375 IF( MOD(itau+1,iphysiq).EQ.0.AND.physic) apphys=.TRUE. 373 376 END IF 374 377
Note: See TracChangeset
for help on using the changeset viewer.