/[lmdze]/trunk/bibio/Writefield/write_field.f
ViewVC logotype

Diff of /trunk/bibio/Writefield/write_field.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC revision 109 by guez, Wed Sep 17 10:08:00 2014 UTC
# Line 5  module write_field Line 5  module write_field
5    implicit none    implicit none
6    
7    integer, parameter:: MaxWriteField = 100    integer, parameter:: MaxWriteField = 100
8    integer, dimension(MaxWriteField), save:: FieldId, FieldVarId, FieldIndex    integer, dimension(MaxWriteField), save:: Ncid, Varid, Record
9    character(len=255), save:: FieldName(MaxWriteField)    character(len=255), save:: FieldName(MaxWriteField)
10    integer:: NbField = 0    integer:: NbField = 0
11    
Legend:
Removed from v.108  
changed lines
  Added in v.109
  ViewVC Help
Powered by ViewVC 1.1.21