Parent Directory
| 
Revision Log
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 writefield_gen_m |
| 2 | |
| 3 | implicit none |
| 4 | |
| 5 | contains |
| 6 | |
| 7 | subroutine WriteField_gen(name, Field, dimx, dimy, dimz) |
| 8 | |
| 9 | use CreateNewField_m, only: CreateNewField |
| 10 | use GetFieldIndex_m, only: GetFieldIndex |
| 11 | USE netcdf95, ONLY: nf95_put_var |
| 12 | USE write_field, ONLY: ncid, record, varid, nbfield |
| 13 | |
| 14 | character(len=*) :: name |
| 15 | integer :: dimx, dimy, dimz |
| 16 | real, dimension(dimx, dimy, dimz) :: Field |
| 17 | integer :: index |
| 18 | |
| 19 | !------------------------------------------------------------ |
| 20 | |
| 21 | Index=GetFieldIndex(name) |
| 22 | if (Index==-1) then |
| 23 | call CreateNewField(name, (/dimx, dimy, dimz/)) |
| 24 | Index=nbfield |
| 25 | else |
| 26 | Record(Index)=Record(Index)+1 |
| 27 | endif |
| 28 | |
| 29 | call NF95_PUT_VAR(Ncid(Index), Varid(Index), Field, & |
| 30 | start = (/1, 1, 1, Record(Index)/)) |
| 31 | |
| 32 | end subroutine WriteField_gen |
| 33 | |
| 34 | end module writefield_gen_m |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |