Changeset 1279 for LMDZ4/trunk/libf/bibio/write_field.F90
- 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/bibio/write_field.F90
r772 r1279 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 module write_field … … 72 72 73 73 subroutine WriteField_gen(name,Field,dimx,dimy,dimz) 74 USE ioipsl75 74 implicit none 76 75 include 'netcdf.inc' … … 109 108 110 109 subroutine CreateNewField(name,dimx,dimy,dimz) 111 USE ioipsl112 110 implicit none 113 111 include 'netcdf.inc' … … 229 227 write (id,spacing) 230 228 else 231 write (id,' ')229 write (id,'("")') 232 230 write (id,spacing) 233 231 endif
Note: See TracChangeset
for help on using the changeset viewer.