Changes between Version 8 and Version 9 of u/bliu/coolingLength

Timestamp:

12/07/16 14:19:06 (8 years ago)

Author:

Baowei Liu

Comment:

—

u/bliu/coolingLength

@@ -40 +40 @@
 4. Aluminum Cooling
 
-   FUNCTION AlCoolingStrength(q,Temp)
+
+{{{
+ FUNCTION AlCoolingStrength(q,Temp)
       REAL(KIND=qPrec) :: q(:), AlCoolingStrength, Temp, ne, nAl, logne, logtemp
       ne = (6d0/7d0)*q(1)*nScale  ! number densities based on Z = 6
@@ -50 +52 @@
       AlCoolingStrength=AlCoolingStrength*ScaleCool
    END FUNCTION AlCoolingStrength
+}}}
+
+
+