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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 109 - (show 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 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 integer, dimension(MaxWriteField), save:: Ncid, Varid, Record
9 character(len=255), save:: FieldName(MaxWriteField)
10 integer:: NbField = 0
11
12 end module write_field

  ViewVC Help
Powered by ViewVC 1.1.21