Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/sortvarc0.F
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/sortvarc0.F
r774 r1220 130 130 ang0 = SSUM( llm, angl, 1 ) 131 131 132 rday = FLOAT(INT ( day_ini +time ))132 rday = FLOAT(INT (time )) 133 133 c 134 134 PRINT 3500, itau, rday, heure, time 135 135 PRINT *, ptot0,etot0,ztot0,stot0,ang0 136 136 137 3500 FORMAT( '0',10(1h*),4x,'pas',i7,5x,'jour',f5.0,'heure',f5.1,4x138 * ,'date',f10.5,4x,10( 1h*))137 3500 FORMAT(10("*"),4x,'pas',i7,5x,'jour',f5.0,'heure',f5.1,4x 138 * ,'date',f10.5,4x,10("*")) 139 139 RETURN 140 140 END
Note: See TracChangeset
for help on using the changeset viewer.