chimere_allocs.F90:if(.not. allocated(gamma_cl)) allocate(gamma_cl(nzonalmax,nmeridmax,nverti,ms)) ! uptake coef for N2O5+CL-
chimere_common.F90:  real(kind=iprec),allocatable,dimension(:,:,:,:)   :: gamma_cl ! uptake coef for N2O5 + CL-
fjx_init_mod.F90:!       if W_=12 then drop strat wavels, and drop x-sects (e.g. N2O, ...)
fjx_init_mod.F90:      integer IA, I, M, L, LAT, MON, NTLATS, NTMONS, N216
fjx_init_mod.F90:      N216  = min(216, NTLATS*NTMONS)
fjx_init_mod.F90:      do IA = 1,N216
inichem.F90:species(nspec+3)%name = 'N2'
isorev.f:            SCASE = 'N2'
isorev.f:            CALL CALCN2              ! NH42S4               ; case N2
isorev.f:C *** SUBROUTINE CALCN2
isorev.f:C *** CASE N2
isorev.f:      SUBROUTINE CALCN2
isorev.f:      Y1 = FUNCN2 (X1)
isorev.f:         Y2 = FUNCN2 (X2)
isorev.f:         YY = FUNCN2(P4)
isorev.f:         YY = FUNCN2(P4)
isorev.f:         CALL PUSHERR (0001, 'CALCN2')    ! WARNING ERROR: NO SOLUTION
isorev.f:         Y3 = FUNCN2 (X3)
isorev.f:      CALL PUSHERR (0002, 'CALCN2')    ! WARNING ERROR: NO CONVERGENCE
isorev.f:      Y3 = FUNCN2 (X3)
isorev.f:C *** END OF SUBROUTINE CALCN2 ******************************************
isorev.f:C *** FUNCTION FUNCN2
isorev.f:C     AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCN2.
isorev.f:      DOUBLE PRECISION FUNCTION FUNCN2 (P1)
isorev.f:      FUNCN2= NH4I*NH4I*SO4I/A4 - ONE 
isorev.f:C *** END OF FUNCTION FUNCN2 ********************************************
isorev.f:      EXTERNAL CALCN1A, CALCN2
isorev.f:         CALL CALCMDRP (RH, DRMASAN, DRNH4NO3, CALCN1A, CALCN2)
JX70b_notes.F90:!           The J-O2 and O3 steady-state are improved, but the NOy:N2O is too small.
JX70b_notes.F90:!       if W_=12 then drop strat wavels, and drop x-sects (e.g. N2O, ...)
test:JX70b_notes.F90:!           The J-O2 and O3 steady-state are improved, but the NOy:N2O is too small.
