Changeset 1403 for trunk/LMDZ.COMMON/libf/dyn3dpar
- Timestamp:
- Mar 31, 2015, 3:49:07 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F
r1391 r1403 163 163 REAL :: secondes 164 164 real :: rdaym_ini 165 logical :: physic 165 logical :: physics 166 166 LOGICAL first,callinigrads 167 167 … … 256 256 257 257 itau = 0 258 physic =.true.259 if (iflag_phys==0.or.iflag_phys==2) physic =.false.258 physics=.true. 259 if (iflag_phys==0.or.iflag_phys==2) physics=.false. 260 260 ! iday = day_ini+itau/day_step 261 261 ! time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 … … 433 433 s apdiss = .TRUE. 434 434 IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 435 s .and. physic ) apphys = .TRUE.435 s .and. physics ) apphys = .TRUE. 436 436 ELSE 437 437 ! Leapfrog/Matsuno time stepping … … 439 439 IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward ) 440 440 s apdiss = .TRUE. 441 IF( MOD(itau+1,iphysiq).EQ.0.AND.physic ) apphys=.TRUE.441 IF( MOD(itau+1,iphysiq).EQ.0.AND.physics) apphys=.TRUE. 442 442 END IF 443 443
Note: See TracChangeset
for help on using the changeset viewer.