61 |
c GG = 9.81 _d 0 |
c GG = 9.81 _d 0 |
62 |
c RD = 287. _d 0 |
c RD = 287. _d 0 |
63 |
c CP = 1004. _d 0 |
c CP = 1004. _d 0 |
64 |
P0 = atm_po |
P0 = atm_Po |
65 |
GG = gravity |
GG = gravity |
66 |
RD = atm_cp*atm_kappa |
RD = atm_Rd |
67 |
CP = atm_cp |
CP = atm_Cp |
68 |
C Latent heat is in J/g for consistency with spec.hum. in g/Kg |
C Latent heat is in J/g for consistency with spec.hum. in g/Kg |
69 |
ALHC = 2501. _d 0 |
ALHC = 2501. _d 0 |
70 |
|
ALHF = 334. _d 0 |
71 |
SBC = 5.67 _d -8 |
SBC = 5.67 _d -8 |
72 |
|
C Heat capacity of rain is also in J/g/K for the same reasons |
73 |
|
c rainCP = HeatCapacity_Cp / 1000. _d 0 |
74 |
|
rainCP = 4200. _d 0 / 1000. _d 0 |
75 |
|
tFreeze= celsius2K |
76 |
C |
C |
77 |
C 1.2 Functions of sigma and latitude |
C 1.2 Functions of sigma and latitude |
78 |
C |
C |
122 |
c_FM include "cls_inphys.h" |
c_FM include "cls_inphys.h" |
123 |
#include "phy_const.h" |
#include "phy_const.h" |
124 |
|
|
125 |
|
C- pot. temp. increment for computing stability function derivative |
126 |
|
C note: use the discrete form: F(Ts+dTstab)-F(Ts-dTstab)/2.dTstab |
127 |
|
dTstab = 1. _d 0 |
128 |
|
|
129 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
130 |
|
|
131 |
#endif /* ALLOW_AIM */ |
#endif /* ALLOW_AIM */ |