libsim Versione 7.2.4
|
◆ grid_transform_get_val()
Method for returning the contents of the object. Only a few selected memebrs of grid_transform object can be queried, this is mainly for use by volgrid6d_class, rather than for public use.
Definizione alla linea 3044 del file grid_transform_class.F90. 3046 CALL raise_error()
3047 RETURN
3048 ENDIF
3049
3050ENDIF
3051
3052#ifdef DEBUG
3053call l4f_category_log(this%category,l4f_debug, &
3054 "start grid_transform_compute "//trim(this%trans%trans_type)//':'// &
3055 trim(this%trans%sub_type))
3056#endif
3057
3058IF (this%trans%trans_type == 'zoom') THEN
3059
3060 field_out(this%outinx:this%outfnx, &
3061 this%outiny:this%outfny,:) = &
3062 field_in(this%iniox:this%infox, &
3063 this%inioy:this%infoy,:)
3064
3065ELSE IF (this%trans%trans_type == 'boxregrid') THEN
3066
3067 IF (this%trans%sub_type == 'average') THEN
3068 IF (vartype == var_dir360) THEN
3069 DO k = 1, innz
3070 jj = 0
3071 DO j = 1, this%inny - this%trans%box_info%npy + 1, this%trans%box_info%npy
3072 je = j+this%trans%box_info%npy-1
3073 jj = jj+1
3074 ii = 0
3075 DO i = 1, this%innx - this%trans%box_info%npx + 1, this%trans%box_info%npx
3076 ie = i+this%trans%box_info%npx-1
3077 ii = ii+1
3078 navg = count(field_in(i:ie,j:je,k) /= rmiss)
3079 IF (navg > 0) THEN
|