|
Last change
on this file since 1233 was
790,
checked in by acolaitis, 12 years ago
|
|
MESOSCALE. Fixed lifting for LES runs (put lifting after newsedim otherwise lifting is stupidly counteracted). Transferred LES def files to SIMU DEF. Added def files for high resolution monster LES. Fixed a small bug in makemeso for debug.
|
|
File size:
379 bytes
|
| Line | |
|---|
| 1 | IF (flag_LES) THEN |
|---|
| 2 | DO iq=1, nq |
|---|
| 3 | DO l=1,nlayer |
|---|
| 4 | DO ig=1,ngrid |
|---|
| 5 | pdq(ig,l,iq)=pdq(ig,l,iq)+ zdqdif(ig,l,iq) |
|---|
| 6 | ENDDO |
|---|
| 7 | ENDDO |
|---|
| 8 | ENDDO |
|---|
| 9 | DO iq=1, nq |
|---|
| 10 | DO ig=1,ngrid |
|---|
| 11 | dqsurf(ig,iq)=dqsurf(ig,iq) + zdqsdif(ig,iq) |
|---|
| 12 | ENDDO |
|---|
| 13 | ENDDO |
|---|
| 14 | ENDIF |
|---|
Note: See
TracBrowser
for help on using the repository browser.
