Path: | gtvarputnum.f90 |
Last Update: | Thu Aug 23 03:34:25 JST 2007 |
Authors: | Yasuhiro MORIKAWA, Eizi TOYODA |
Version: | $Id: gtvarputnum.f90,v 1.4 2007/08/22 18:34:25 morikawa Exp $ |
Tag Name: | $Name: gt4f90io-20070920 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
License: | See COPYRIGHT |
以下のサブルーチン、関数は gtdata_generic から gtdata_generic#Put として提供されます。
Subroutine : | |
var : | type(GT_VARIABLE), intent(in) |
value(nvalue) : | real(DP), intent(in) |
nvalue : | integer, intent(in) |
err : | logical, intent(out), optional |
変数 var へ数値データ value が出力されます。 nvalue には配列長を代入する必要があります。
数値データ出力の際にエラーが生じた場合、メッセージを出力 してプログラムは強制終了します。err を与えてある場合には の引数に .true. が返り、プログラムは終了しません。
出力しようとするデータの型が var の型と異なる場合、データは var の 型に変換されます。 この変換は netCDF の機能を用いています。 詳しくは netCDF 日本語版マニュアル の 3.3 型変換 を参照してください。
Get は複数のサブルーチンの総称名であり、 value に多次元配列を与えることも可能です。上記の サブルーチンを参照してください。
subroutine GTVarPutDouble(var, value, nvalue, err) ! ! !== 変数への数値データの出力 ! ! 変数 *var* へ数値データ *value* が出力されます。 ! *nvalue* には配列長を代入する必要があります。 ! ! 数値データ出力の際にエラーが生じた場合、メッセージを出力 ! してプログラムは強制終了します。*err* を与えてある場合には ! の引数に .true. が返り、プログラムは終了しません。 ! ! 出力しようとするデータの型が *var* の型と異なる場合、データは *var* の ! 型に変換されます。 この変換は netCDF の機能を用いています。 ! 詳しくは {netCDF 日本語版マニュアル}[link:../xref.htm#label-10] ! の 3.3 型変換 を参照してください。 ! ! *Get* は複数のサブルーチンの総称名であり、 ! *value* に多次元配列を与えることも可能です。上記の ! サブルーチンを参照してください。 ! ! use gtdata_types,only: GT_VARIABLE use gt_map, only: var_class, vtb_class_netcdf, map_to_internal_specs use an_generic, only: put, an_variable use dc_error, only: StoreError, GT_EFAKE use dc_types, only: DP use dc_trace, only: BeginSub, EndSub implicit none type(GT_VARIABLE), intent(in) :: var integer, intent(in) :: nvalue real(DP), intent(in) :: value(nvalue) logical, intent(out), optional:: err ! Variables for Intenal work integer:: class, cid, stat, ndims integer, pointer:: specs(:, :) character(len = *), parameter:: subname = "GTVarPutDouble" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call var_class(var, class, cid) call map_to_internal_specs(var, specs, ndims) if (class == vtb_class_netcdf) then call put(an_variable(cid), start=specs(:, 1), count=specs(:, 2), stride=specs(:, 3), imap=specs(:, 4), value=value, siz=nvalue, iostat=stat) else stat = gt_efake endif call StoreError(stat, subname, err=err) deallocate(specs) call EndSub(subname) end subroutine GTVarPutDouble
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
変数 var へ数値データ value が出力されます。
数値データ入力の際にエラーが生じた場合、メッセージを出力 してプログラムは強制終了します。err を与えてある場合には の引数に .true. が返り、プログラムは終了しません。
出力しようとするデータの型が var の型と異なる場合、データは var の 型に変換されます。 この変換は netCDF の機能を用いています。 詳しくは netCDF 日本語版マニュアル の 3.3 型変換 を参照してください。
Get は複数のサブルーチンの総称名であり、 value には 1 ~ 7 次元の配列を与えることも可能です。 下記のサブルーチンを参照してください。
subroutine GTVarPutDouble1(var, value, err) ! ! !== 変数への数値データの出力 ! ! 変数 *var* へ数値データ *value* が出力されます。 ! ! 数値データ入力の際にエラーが生じた場合、メッセージを出力 ! してプログラムは強制終了します。*err* を与えてある場合には ! の引数に .true. が返り、プログラムは終了しません。 ! ! 出力しようとするデータの型が *var* の型と異なる場合、データは *var* の ! 型に変換されます。 この変換は netCDF の機能を用いています。 ! 詳しくは {netCDF 日本語版マニュアル}[link:../xref.htm#label-10] ! の 3.3 型変換 を参照してください。 ! ! *Get* は複数のサブルーチンの総称名であり、 ! *value* には 1 ~ 7 次元の配列を与えることも可能です。 ! 下記のサブルーチンを参照してください。 ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble1" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble1
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble2(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble2" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble2
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble3(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble3" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble3
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble4(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble4" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble4
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble5(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble5" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble5
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble6(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble6" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble6
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:,:,:) : | real(DP), intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutDouble7(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real(DP), intent(in) :: value(:,:,:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutDouble7" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutDouble(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutDouble7
Subroutine : | |
var : | type(GT_VARIABLE), intent(in) |
value(nvalue) : | integer, intent(in) |
nvalue : | integer, intent(in) |
err : | logical, intent(out), optional |
subroutine GTVarPutInt(var, value, nvalue, err) ! ! use gtdata_types,only: GT_VARIABLE use gt_map, only: var_class, vtb_class_netcdf, map_to_internal_specs use an_generic, only: put, an_variable use dc_error, only: StoreError, GT_EFAKE use dc_types, only: DP use dc_trace, only: BeginSub, EndSub implicit none type(GT_VARIABLE), intent(in) :: var integer, intent(in) :: nvalue integer, intent(in) :: value(nvalue) logical, intent(out), optional:: err ! Variables for Intenal work integer:: class, cid, stat, ndims integer, pointer:: specs(:, :) character(len = *), parameter:: subname = "GTVarPutInt" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call var_class(var, class, cid) call map_to_internal_specs(var, specs, ndims) if (class == vtb_class_netcdf) then call put(an_variable(cid), start=specs(:, 1), count=specs(:, 2), stride=specs(:, 3), imap=specs(:, 4), value=value, siz=nvalue, iostat=stat) else stat = gt_efake endif call StoreError(stat, subname, err=err) deallocate(specs) call EndSub(subname) end subroutine GTVarPutInt
Subroutine : | |
var : | type(GT_VARIABLE), intent(in) |
value(nvalue) : | real, intent(in) |
nvalue : | integer, intent(in) |
err : | logical, intent(out), optional |
subroutine GTVarPutReal(var, value, nvalue, err) ! ! use gtdata_types,only: GT_VARIABLE use gt_map, only: var_class, vtb_class_netcdf, map_to_internal_specs use an_generic, only: put, an_variable use dc_error, only: StoreError, GT_EFAKE use dc_types, only: DP use dc_trace, only: BeginSub, EndSub implicit none type(GT_VARIABLE), intent(in) :: var integer, intent(in) :: nvalue real, intent(in) :: value(nvalue) logical, intent(out), optional:: err ! Variables for Intenal work integer:: class, cid, stat, ndims integer, pointer:: specs(:, :) character(len = *), parameter:: subname = "GTVarPutReal" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call var_class(var, class, cid) call map_to_internal_specs(var, specs, ndims) if (class == vtb_class_netcdf) then call put(an_variable(cid), start=specs(:, 1), count=specs(:, 2), stride=specs(:, 3), imap=specs(:, 4), value=value, siz=nvalue, iostat=stat) else stat = gt_efake endif call StoreError(stat, subname, err=err) deallocate(specs) call EndSub(subname) end subroutine GTVarPutReal
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal1(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal1" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal1
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal2(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal2" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal2
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal3(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal3" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal3
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal4(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal4" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal4
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal5(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal5" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal5
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal6(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal6" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal6
Subroutine : | |
var : | type(GT_VARIABLE), intent(inout) |
value(:,:,:,:,:,:,:) : | real, intent(in) |
err : | logical ,intent(out), optional |
subroutine GTVarPutReal7(var, value, err) ! ! use gtdata_types, only: GT_VARIABLE use gtdata_generic, only: Put, GTVarPutReal, GTVarPutDouble use dc_trace, only: BeginSub, EndSub use dc_types, only: DP type(GT_VARIABLE), intent(inout):: var real, intent(in) :: value(:,:,:,:,:,:,:) logical ,intent(out), optional:: err character(len = *), parameter:: subname = "GTVarPutReal7" continue call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/)) call GTVarPutReal(var, value, size(value), err) call EndSub(subname) end subroutine GTVarPutReal7