This sobroutine … use new variable for plus_w because type fluidata can’t be modified. esto es lo que haria en el write, luego eliminar este comentario.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(FluidData), | intent(in) | :: | fluid | |||
| type(FluidDataOut), | intent(inout) | :: | characterization |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=pr), | public, | allocatable | :: | density_ps(:) | |||
| integer, | public | :: | i | ||||
| integer, | public | :: | i_last | ||||
| integer, | public | :: | i_ps | ||||
| integer, | public, | dimension(15) | :: | j_ps | |||
| integer, | public | :: | last | ||||
| integer, | public | :: | last_C | ||||
| integer, | public | :: | numbers_ps | ||||
| real(kind=pr), | public, | allocatable | :: | plus_mw_ps(:) | |||
| real(kind=pr), | public | :: | plus_w_new | ||||
| real(kind=pr), | public, | allocatable | :: | plus_z_i(:) | |||
| real(kind=pr), | public, | allocatable | :: | plus_z_ps(:) | |||
| integer, | public | :: | prev_i | ||||
| real(kind=pr), | public | :: | rec_zm | ||||
| real(kind=pr), | public | :: | remain_plus_zm | ||||
| integer, | public | :: | scn_nc_input |
inicial number of single cuts being considered in the oil from data input |
|||
| integer, | public | :: | scn_nc_new |
new number of single cuts being considered in the oil defined as from scn_nc_ps variable. |
|||
| real(kind=pr), | public | :: | sum_volume_ps | ||||
| real(kind=pr), | public | :: | sum_z | ||||
| real(kind=pr), | public | :: | sum_zm | ||||
| real(kind=pr), | public | :: | sum_zm_last_ps | ||||
| real(kind=pr), | public, | allocatable | :: | var_aux_1(:) | |||
| real(kind=pr), | public, | allocatable | :: | var_aux_2(:) | |||
| real(kind=pr), | public, | allocatable | :: | w_ps(:) | |||
| real(kind=pr), | public, | allocatable | :: | z_m_plus_i(:) |