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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 109 - (hide annotations)
Wed Sep 17 10:08:00 2014 UTC (9 years, 8 months ago) by guez
File size: 298 byte(s)
Moved a call to writefield from guide to tau2alpha. (dxdys does not
change with itau.) So dxdys does not need to be a module variable any
longer. Other variables of modules tau2alpha_m downgraded to local
variables of tau2alpha, since they were not used elsewhere.

Procedures write_field[13]d and formcoord were never called. Could
then remove int2str.

Inline writefield_gen into writefield.

CreateNewField takes an integer array argument instead of 3 scalar
integers. CreateNewField now creates a number of dimensions adapted to
the rank of the output field, instead of always 4 dimensions.

Changed names of variables of module write_field: fieldid to
ncid, fieldindex to record, fieldvarid to varid.

In writefield_gen, if index == -1, no need to call GetFieldIndex
again, we know that the result is nbfield.

In guide, moved calls to writefield for some variables inside if
first_call: those variables do not change with time. Removed ztau:
computed only to be output, does not seem meaningful. Removed
writefield for aire: does not change with time and is already in
"grilles_gcm.nc".

1 guez 108 module write_field
2    
3     ! From write_field.F90 1907 2013-11-26 13:10:46Z
4    
5     implicit none
6    
7     integer, parameter:: MaxWriteField = 100
8 guez 109 integer, dimension(MaxWriteField), save:: Ncid, Varid, Record
9 guez 108 character(len=255), save:: FieldName(MaxWriteField)
10     integer:: NbField = 0
11    
12     end module write_field

  ViewVC Help
Powered by ViewVC 1.1.21