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

Contents of /trunk/bibio/Writefield/int2str.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: 342 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 int2str_m
2
3 implicit none
4
5 contains
6
7 function int2str(i)
8
9 integer, parameter :: MaxLen=10
10 integer,intent(in) :: i
11 character(len=MaxLen) :: int2str
12
13 !---------------------------------------------------
14
15 write(unit = int2str, fmt = *) i
16 int2str = adjustl(int2str)
17
18 end function int2str
19
20 end module int2str_m

  ViewVC Help
Powered by ViewVC 1.1.21