File |
Line number |
Procedure |
Code |
./model/src/ini_p_ground.F |
107 |
INI_P_GROUND |
phiRef(K+1) = phiRef(K)+ddPI*tRef(Ks) |
./model/src/ini_p_ground.F |
116 |
INI_P_GROUND |
phiRef(2*K) = phiRef(1) + ddPI*tRef(K) |
./model/src/ini_p_ground.F |
120 |
INI_P_GROUND |
phiRef(2*K+1) = phiRef(2*K) + ddPI*0.5*tRef(K) |
./model/src/ini_p_ground.F |
122 |
INI_P_GROUND |
& + ddPI*0.5*(tRef(K)+tRef(K+1)) |
./model/src/ini_p_ground.F |
127 |
INI_P_GROUND |
phiRef(2*K+1) = phiRef(2*K) + ddPI*tRef(K) |
./model/src/set_defaults.F |
79 |
SET_DEFAULTS |
tRef(K) = 30.D0 - FLOAT( K ) |