/[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 108 - (show annotations)
Tue Sep 16 14:00:41 2014 UTC (9 years, 7 months ago) by guez
File size: 310 byte(s)
Imported writefield from LMDZ. Close at the end of gcm the files which
were created by writefiled (not done in LMDZ).

Removed procedures for the output of Grads files. Removed calls to
dump2d. In guide, replaced calls to wrgrads by calls to writefield.

In vlspltqs, removed redundant programming of saturation
pressure. Call foeew from module FCTTRE instead.

Bug fix in interpre: size of w exceeding size of correponding actual
argument wg in advtrac.

In leapfrog, call guide until the end of the run, instead of six hours
before the end.

Bug fix in readsulfate_preind: type of arguments.

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:: FieldId, FieldVarId, FieldIndex
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