107 |
real pks(iim + 1, jjm + 1) |
real pks(iim + 1, jjm + 1) |
108 |
|
|
109 |
REAL masse(iim + 1, jjm + 1, llm) |
REAL masse(iim + 1, jjm + 1, llm) |
110 |
REAL phi(ip1jmp1, llm) |
REAL phi(iim + 1, jjm + 1, llm) |
111 |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
112 |
REAL w(ip1jmp1, llm) |
REAL w(ip1jmp1, llm) |
113 |
REAL phystep |
REAL phystep |
306 |
day_ref = dayref |
day_ref = dayref |
307 |
annee_ref = anneeref |
annee_ref = anneeref |
308 |
|
|
309 |
CALL geopot(ip1jmp1, tpot, pk , pks, phis, phi) |
CALL geopot(tpot, pk , pks, phis, phi) |
310 |
CALL caldyn0(ucov, vcov, tpot, psol, masse, pk, phis, phi, w, pbaru, & |
CALL caldyn0(ucov, vcov, tpot, psol, masse, pk, phis, phi, w, pbaru, & |
311 |
pbarv) |
pbarv) |
312 |
CALL dynredem0("start.nc", dayref, phis) |
CALL dynredem0("start.nc", dayref, phis) |