Log of /trunk/Sources/misc/createnewfield.f

---

Revision 145 - (view) (annotate) - [select for diffs]
Modified Tue Jun 16 15:23:29 2015 UTC (8 years, 10 months ago) by guez
File length: 1364 byte(s)
Copied from: trunk/bibio/Writefield/createnewfield.f revision 110
Diff to previous 134

Renamed bibio to misc.

In procedure fxhyp, use the fact that xf is an odd function of xtild.

In procedure invert_zoom_x, replace linear search in xf by
bisection. Also, use result from previous loop iteration as initial
guess. Variable "it" cannot be equal to 2 * nmax after search.

Unused arguments: hm of cv3_feed; ph, qnk, tv,tvp of cv3_mixing; ppsol
of lw; rconst, temp of vdif_kcay; rconst, plev, temp, ustar, l_mix of
yamada.

---

Revision 134 - (view) (annotate) - [select for diffs]
Modified Wed Apr 29 15:47:56 2015 UTC (9 years ago) by guez
Original Path: trunk/Sources/bibio/createnewfield.f
File length: 1364 byte(s)
Copied from: trunk/bibio/Writefield/createnewfield.f revision 110
Diff to previous 111

Sources inside, compilation outside.

---

Revision 111 - (view) (annotate) - [select for diffs]
Modified Wed Sep 17 11:57:10 2014 UTC (9 years, 7 months ago) by guez
Original Path: trunk/bibio/createnewfield.f
File length: 1364 byte(s)
Copied from: trunk/bibio/Writefield/createnewfield.f revision 110
Diff to previous 110

---

Revision 110 - (view) (annotate) - [select for diffs]
Modified Wed Sep 17 11:55:05 2014 UTC (9 years, 7 months ago) by guez
Original Path: trunk/bibio/Writefield/createnewfield.f
File length: 1364 byte(s)
Diff to previous 109

Moved variables of module write_field to module
createnewfield_m. Deleted module variable varid because we know that
varid is always 1. Module variable record was modified in 2 procedures
so Moved assignment:

Record(NbField) = 1

to writefield.

---

Revision 109 - (view) (annotate) - [select for diffs]
Modified Wed Sep 17 10:08:00 2014 UTC (9 years, 7 months ago) by guez
Original Path: trunk/bibio/Writefield/createnewfield.f
File length: 1297 byte(s)
Diff to previous 108

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".

---

Revision 108 - (view) (annotate) - [select for diffs]
Added Tue Sep 16 14:00:41 2014 UTC (9 years, 7 months ago) by guez
Original Path: trunk/bibio/Writefield/createnewfield.f
File length: 1192 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.