Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by jmc, Sun Nov 19 21:59:56 2006 UTC | revision 1.8 by jmc, Sun Dec 24 20:20:59 2006 UTC | |
---|---|---|
# | Line 189 C- set Nb of levels to the minimum | Line 189 C- set Nb of levels to the minimum |
189 | CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, | CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
190 | & SQUEEZE_RIGHT, myThid) | & SQUEEZE_RIGHT, myThid) |
191 | ENDDO | ENDDO |
192 | ELSE | ELSEIF ( fflags(ld)(2:2).NE.'P' ) THEN |
193 | C- Check for levels out of range ( > kdiag) | C- if no Vert.Interpolation, check for levels out of range ( > kdiag): |
194 | kLev = 0 | kLev = 0 |
195 | DO k=1,nlevels(ld) | DO k=1,nlevels(ld) |
196 | kLev = MAX(NINT(levs(k,ld)),kLev) | kLev = MAX(NINT(levs(k,ld)),kLev) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |