Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/leapfrog.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/leapfrog.F
r1286 r1299 15 15 USE guide_mod, ONLY : guide_main 16 16 USE write_field 17 USE control_mod 17 18 IMPLICIT NONE 18 19 … … 56 57 #include "logic.h" 57 58 #include "temps.h" 58 #include "control.h"59 59 #include "ener.h" 60 60 #include "description.h" … … 198 198 itau = 0 199 199 c$$$ iday = day_ini+itau/day_step 200 c$$$ time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0200 c$$$ time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 201 201 c$$$ IF(time.GT.1.) THEN 202 202 c$$$ time = time-1. … … 523 523 itau= itau + 1 524 524 c$$$ iday= day_ini+itau/day_step 525 c$$$ time= FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0525 c$$$ time= REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 526 526 c$$$ IF(time.GT.1.) THEN 527 527 c$$$ time = time-1. … … 646 646 itau = itau + 1 647 647 c$$$ iday = day_ini+itau/day_step 648 c$$$ time = FLOAT(itau-(iday-day_ini)*day_step)/day_step+time_0648 c$$$ time = REAL(itau-(iday-day_ini)*day_step)/day_step+time_0 649 649 c$$$ 650 650 c$$$ IF(time.GT.1.) THEN
Note: See TracChangeset
for help on using the changeset viewer.