Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
set_fpxco2 | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine set_fpxco2(pl, fpxco2, nl, kfpco2)
- file_exists : used from filemanager
- openunit : used from filemanager
- closeunit : used from filemanager
- sync_param : used from dictionary_mod
- set_param : used from dictionary_mod
- j :
integer
- n :
integer
- nl :
integer
- iu :
integer
- np :
integer
- ncol :
integer
- pl :
real*8, dimension(NL)
- fpxco2 :
real*8, dimension(NL)
- ncols :
integer, parameter
- Initial Value
= 4
- fpi :
real*8
- fpj :
real*8
- pfi :
real*8
- pfj :
real*8
- pf :
real*8, dimension(ncols)
- fpx :
real*8, allocatable, dimension(:)
- pfp :
real*8, allocatable, dimension(:)
- kfpco2 :
integer
- selects CO2 profile absorber scaling (if >0 )
- title :
character*80