Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/iniacademic.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/dyn3dpar/iniacademic.F
r1279 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 31 31 c 32 32 c======================================================================= 33 USE control_mod 33 34 IMPLICIT NONE 34 35 c----------------------------------------------------------------------- … … 44 45 #include "ener.h" 45 46 #include "temps.h" 46 #include "control.h"47 47 #include "iniprint.h" 48 48 … … 93 93 g = 9.8 94 94 daysec = 86400. 95 dtvr = daysec/ FLOAT(day_step)95 dtvr = daysec/REAL(day_step) 96 96 zdtvr=dtvr 97 97 kappa = 0.2857143
Note: See TracChangeset
for help on using the changeset viewer.