Changeset 1529 for LMDZ5/trunk/libf/dyn3d/leapfrog.F
- Timestamp:
- May 26, 2011, 5:17:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/leapfrog.F
r1520 r1529 149 149 logical ok_sync 150 150 parameter (ok_sync = .true.) 151 logical physic 151 152 152 153 data callinigrads/.true./ … … 193 194 itaufin = nday*day_step 194 195 itaufinp1 = itaufin +1 195 196 197 196 itau = 0 197 physic=.true. 198 if (iflag_phys==0.or.iflag_phys==2) physic=.false. 199 198 200 c iday = day_ini+itau/day_step 199 201 c time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 … … 281 283 s apdiss = .TRUE. 282 284 IF( MOD(itau,iphysiq ).EQ.0.AND..NOT.forward 283 s .and. iflag_phys.EQ.1) apphys = .TRUE.285 s .and. physic ) apphys = .TRUE. 284 286 ELSE 285 287 ! Leapfrog/Matsuno time stepping … … 287 289 IF( MOD(itau+1,dissip_period).EQ.0 .AND. .NOT. forward ) 288 290 s apdiss = .TRUE. 289 IF( MOD(itau+1,iphysiq).EQ.0.AND. iflag_phys.EQ.1) apphys=.TRUE.291 IF( MOD(itau+1,iphysiq).EQ.0.AND.physic ) apphys=.TRUE. 290 292 END IF 291 293
Note: See TracChangeset
for help on using the changeset viewer.