subroutine neutral_atmos(ymd,UTsecd,glat,glon,alt,activ,nn,Tn) CALL NRL-MSISE-00 AND ORGANIZE THE RESULTS. APPEND OTHER AUXILIARY NEUTRAL DENSITY DATA USED BY MAIN CODE
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ymd(3) | |||
real(kind=wp), | intent(in) | :: | UTsecd | |||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | glat | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | glon | ||
real(kind=wp), | intent(in), | dimension(:,:,:) | :: | alt | ||
real(kind=wp), | intent(in) | :: | activ(3) | |||
real(kind=wp), | intent(out), | dimension(1:size(alt,1),1:size(alt,2),1:size(alt,3),lnchem) | :: | nn | ||
real(kind=wp), | intent(out), | dimension(1:size(alt,1),1:size(alt,2),1:size(alt,3)) | :: | Tn |