Parent Directory | Revision Log | Patch
revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | revision 86 by guez, Thu Mar 6 17:51:03 2014 UTC | |
---|---|---|
# | Line 214 contains | Line 214 contains |
214 | teta(:, jjm + 1, l) = SUM(aire_2d(:iim, jjm+1) & | teta(:, jjm + 1, l) = SUM(aire_2d(:iim, jjm+1) & |
215 | * teta(:iim, jjm + 1, l)) / apols | * teta(:iim, jjm + 1, l)) / apols |
216 | END forall | END forall |
ps(:, 1) = SUM(aire_2d(:iim, 1) * ps(:iim, 1)) / apoln | ||
ps(:, jjm + 1) = SUM(aire_2d(:iim, jjm+1) * ps(:iim, jjm + 1)) & | ||
/ apols | ||
217 | END IF | END IF |
218 | ||
219 | IF (MOD(itau + 1, iperiod) == 0) THEN | IF (MOD(itau + 1, iperiod) == 0) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |