Symbol Description Uses
no_so 34


File Line number Procedure Code
./pkg/ebm/ebm_atmosphere.F 146 EBM_ATMOSPHERE 
        DO no_so = 1,2
./pkg/ebm/ebm_atmosphere.F 147 EBM_ATMOSPHERE 
         T35(no_so)= T0(no_so) +
./pkg/ebm/ebm_atmosphere.F 148 EBM_ATMOSPHERE 
     <        T2(no_so)*0.5*
./pkg/ebm/ebm_atmosphere.F 154 EBM_ATMOSPHERE 
        DO no_so = 1, 2
./pkg/ebm/ebm_atmosphere.F 155 EBM_ATMOSPHERE 
         DTDy35(no_so) = 3.*T2(no_so)*
./pkg/ebm/ebm_atmosphere.F 167 EBM_ATMOSPHERE 
        DO no_so = 1, 2
./pkg/ebm/ebm_atmosphere.F 168 EBM_ATMOSPHERE 
         IF ( DTDy35(no_so).NE.0. .AND. T35(no_so).NE.0. ) THEN
./pkg/ebm/ebm_atmosphere.F 169 EBM_ATMOSPHERE 
          gamma = -T35(no_so)*beta*Hw*Nw*Nw/
./pkg/ebm/ebm_atmosphere.F 170 EBM_ATMOSPHERE 
     <        (gravity*f0*DTDy35(no_so))
./pkg/ebm/ebm_atmosphere.F 177 EBM_ATMOSPHERE 
          Cf = htil*2.97e12*C/(T35(no_so)**3)*(
./pkg/ebm/ebm_atmosphere.F 178 EBM_ATMOSPHERE 
     <        1/(1/De + (5420*tau /(T35(no_so)**2)))
./pkg/ebm/ebm_atmosphere.F 179 EBM_ATMOSPHERE 
     <        - 1/(1/De+5420*tau/(T35(no_so)**2)+1/dz))
./pkg/ebm/ebm_atmosphere.F 181 EBM_ATMOSPHERE 
          Hd35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 182 EBM_ATMOSPHERE 
     <        *(Cs + Cl*exp(-5420./T35(no_so)))
./pkg/ebm/ebm_atmosphere.F 183 EBM_ATMOSPHERE 
     <        *(abs(DTDy35(no_so))**trans_eff)
./pkg/ebm/ebm_atmosphere.F 184 EBM_ATMOSPHERE 
          Fw35(no_so) = 2.*PI*rSphere*COS(lat(2)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 185 EBM_ATMOSPHERE 
     <        *(abs(DTDy35(no_so))**trans_eff)
./pkg/ebm/ebm_atmosphere.F 186 EBM_ATMOSPHERE 
     <        *Cf*exp(-5420./T35(no_so))
./pkg/ebm/ebm_atmosphere.F 188 EBM_ATMOSPHERE 
          Hd35(no_so) = 0.
./pkg/ebm/ebm_atmosphere.F 189 EBM_ATMOSPHERE 
          Fw35(no_so) = 0.
./pkg/ebm/ebm_atmosphere.F 224 EBM_ATMOSPHERE 
             no_so = 1
./pkg/ebm/ebm_atmosphere.F 226 EBM_ATMOSPHERE 
             no_so = 2
./pkg/ebm/ebm_atmosphere.F 232 EBM_ATMOSPHERE 
          T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 250 EBM_ATMOSPHERE 
     <        Hd35(no_so)*(
./pkg/ebm/ebm_atmosphere.F 271 EBM_ATMOSPHERE 
     <            Hd35(no_so)*(3.054e1 - 3.763e1*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 285 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = -1.e-3*Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 306 EBM_ATMOSPHERE 
           EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 317 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 328 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 57 EBM_ATMOSPHERE 
      INTEGER no_so