Parent Directory | Revision Log | Revision Graph | Patch
revision 1.24 by mlosch, Tue Feb 5 13:32:49 2008 UTC | revision 1.25 by mlosch, Fri Feb 8 13:01:25 2008 UTC | |
---|---|---|
# | Line 348 C-- Cosine(lat) scaling | Line 348 C-- Cosine(lat) scaling |
348 | IF ( rotateGrid ) THEN | IF ( rotateGrid ) THEN |
349 | CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) | CALL ROTATE_SPHERICAL_POLAR_GRID( xC, yC, myThid ) |
350 | CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) | CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
351 | CALL CALC_ANGLES( myThid ) | |
352 | ENDIF | ENDIF |
353 | ||
354 | RETURN | RETURN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |