- Timestamp:
- Mar 16, 2005, 11:12:17 AM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/dyn3d/bilan_dyn.F
r546 r604 310 310 Q(:,:,:,iang)=ang(:,:,:) 311 311 Q(:,:,:,iu)=unat(:,:,:) 312 Q(:,:,:,iovap)= q(:,:,:,1)312 Q(:,:,:,iovap)=trac(:,:,:,1) 313 313 Q(:,:,:,iun)=1. 314 314 … … 401 401 c===================================================================== 402 402 403 print*,'Pas d ecriture'403 c print*,'Pas d ecriture' 404 404 405 405 c Normalisation
Note: See TracChangeset
for help on using the changeset viewer.