Changeset 152 for trunk/LMDZ.TITAN/libf
- Timestamp:
- Jun 8, 2011, 4:49:35 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/physiq.F
r149 r152 474 474 . t_ancien, ancien_ok) 475 475 476 c dtime est lu dans startphy , alors que476 c dtime est lu dans startphy 477 477 c pdtphys est calcule a partir des nouvelles conditions: 478 478 c Reinitialisation du pas de temps physique quand changement … … 482 482 c abort_message='Pas physique n est pas correct ' 483 483 c call abort_gcm(modname,abort_message,1) 484 c---------------- 485 c pour initialiser convenablement le time_counter, il faut tenir compte 486 c du changement de dtime en changeant itau_phy (point de depart) 487 itau_phy = NINT(itau_phy*dtime/pdtphys) 488 c---------------- 484 489 dtime=pdtphys 485 490 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.