| Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
get_fpxco2_105 | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine get_fpxco2_105(fpzco2, jlat, mlat46, jday)- n :
integer
- nl :
integer
- jlat :
integer
- mlat46 :
integer
- jday :
integer
- fpzco2 :
real*8, dimension(39)
- fpz_jan :
real*8, dimension(39)
- fpz_jul :
real*8, dimension(39)
- reflat :
real*8
- wtjlat :
real*8
- refday :
real*8
- wtjday :
real*8
- wt1 :
real*8
- wt2 :
real*8
- wt3 :
real*8
- fpx_speqnp_jan :
real*8, parameter, dimension(39, 3)
- Initial Value
= RESHAPE((/ 0.106139D+01,0.106783D+01,0.106256D+01,0.106812D+01, 0.106650D+01,0.105212D+01,0.100292D+01,0.978585D+00,0.973002D+00, 0.104304D+01,0.103306D+01,0.969076D+00,0.958428D+00,0.101544D+01, 0.100945D+01,0.993654D+00,0.991752D+00,0.979623D+00,0.941461D+00, 0.937047D+00,0.928036D+00,0.909102D+00,0.900246D+00,0.901978D+00, 0.874685D+00,0.890840D+00,0.947327D+00,0.980658D+00,0.101200D+01, 0.102130D+01,0.727029D+00,0.750237D+00,0.856221D+00,0.852355D+00, 0.991601D+00,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.795649D+00,0.704146D+00,0.727177D+00,0.792645D+00, 0.748645D+00,0.872383D+00,0.778125D+00,0.761280D+00,0.769040D+00, 0.762770D+00,0.787812D+00,0.795996D+00,0.812415D+00,0.806050D+00, 0.931991D+00,0.879633D+00,0.936397D+00,0.942009D+00,0.914533D+00, 0.932472D+00,0.905136D+00,0.880848D+00,0.810632D+00,0.878675D+00, 0.901477D+00,0.951314D+00,0.101205D+01,0.109697D+01,0.105704D+01, 0.120352D+01,0.128532D+01,0.152551D+01,0.107507D+01,0.993298D+00, 0.993298D+00,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.105912D+01,0.104105D+01,0.103011D+01,0.101845D+01, 0.991954D+00,0.980846D+00,0.948530D+00,0.898252D+00,0.900887D+00, 0.931042D+00,0.913461D+00,0.885751D+00,0.882327D+00,0.962325D+00, 0.978728D+00,0.984428D+00,0.997767D+00,0.974346D+00,0.962522D+00, 0.951995D+00,0.935819D+00,0.925180D+00,0.923809D+00,0.912133D+00, 0.915321D+00,0.915390D+00,0.905317D+00,0.931876D+00,0.976460D+00, 0.974906D+00,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01/ ), (/ 39,3 /))
- fpx_speqnp_jul :
real*8, parameter, dimension(39, 3)
- Initial Value
= RESHAPE((/ 0.101719D+01,0.988671D+00,0.986317D+00,0.992046D+00, 0.979385D+00,0.962768D+00,0.917461D+00,0.884814D+00,0.904524D+00, 0.954613D+00,0.967657D+00,0.923239D+00,0.926085D+00,0.942071D+00, 0.948953D+00,0.923623D+00,0.947999D+00,0.894875D+00,0.928884D+00, 0.938342D+00,0.904316D+00,0.906018D+00,0.893131D+00,0.876373D+00, 0.869938D+00,0.849842D+00,0.890331D+00,0.913173D+00,0.933819D+00, 0.880337D+00,0.853570D+00,0.710237D+00,0.826221D+00,0.772355D+00, 0.991601D+00,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.813710D+00,0.718946D+00,0.774912D+00,0.764653D+00, 0.790177D+00,0.781660D+00,0.768685D+00,0.778010D+00,0.742164D+00, 0.823045D+00,0.810695D+00,0.809154D+00,0.839186D+00,0.890938D+00, 0.912096D+00,0.957669D+00,0.940655D+00,0.970092D+00,0.949381D+00, 0.925820D+00,0.904259D+00,0.919764D+00,0.842020D+00,0.892613D+00, 0.930514D+00,0.978044D+00,0.972728D+00,0.108045D+01,0.115574D+01, 0.121910D+01,0.135634D+01,0.165630D+01,0.109376D+01,0.991629D+00, 0.991629D+00,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.109553D+01,0.103307D+01,0.101880D+01,0.104636D+01, 0.105279D+01,0.103332D+01,0.974511D+00,0.948682D+00,0.946840D+00, 0.100858D+01,0.997002D+00,0.924039D+00,0.896250D+00,0.963271D+00, 0.977617D+00,0.996577D+00,0.992301D+00,0.974108D+00,0.947932D+00, 0.929054D+00,0.928114D+00,0.912474D+00,0.912335D+00,0.915498D+00, 0.901183D+00,0.925813D+00,0.971726D+00,0.104123D+01,0.110262D+01, 0.120227D+01,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01, 0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01,0.100000D+01/ ), (/ 39,3 /))