Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/ugeostr.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/ugeostr.F
r774 r1279 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 subroutine ugeostr(phi,ucov) … … 20 20 21 21 real zlat 22 23 um(:,:)=0 ! initialize um() 22 24 23 25 DO j=1,jjm … … 42 44 ENDDO 43 45 ENDDO 44 call dump2d(jj p1,llm,um,'Vent-u geostrophique')46 call dump2d(jjm,llm,um,'Vent-u geostrophique') 45 47 46 48 c
Note: See TracChangeset
for help on using the changeset viewer.