Ignore:
Timestamp:
Jan 26, 2015 1:58:29 PM (7 years ago)
Author:
keck
Message:

several updates in the tutorial

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/TUTORIAL/SOURCE/user_defined_code.tex

    r1515 r1531  
    616616                       \texttt{!--    No calls for single grid points are allowed at locations before and}\\
    617617                       \texttt{!--    after the timestep, since these calls are not within an i,j-loop}\\
    618                        ~~~~~~~\texttt{SELECT CASE ( location )}\\
     618                       ~~~~~~\texttt{SELECT CASE ( location )}\\
    619619                       \texttt{...}\\
    620620                       ~~~~~~~~~~\texttt{CASE ( 'after\_timestep' )}\\
    621621                       \texttt{!}\\
    622                        \texttt{!-- Enter actions to be done after every timestep here}\\
     622                       \texttt{!-- \hspace{6mm}Enter actions to be done after every timestep here}\\
    623623                       \par\medskip
    624624                       ~~~~~~~~~~\texttt{CASE ( 'u-tendency' )}\\
    625625                       \texttt{!}\\
    626                        \texttt{!-- Enter actions to be done in the u-tendency term here}\\
    627                        ~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO i = nxl, nxr}}\\
    628                        ~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO j = nys, nyn}}\\
    629                        ~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO k = nxb+1, nzt}}\\
    630                        ~~~~~~~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{tend(k,j,i) = tend(k,j,i) - const * u(k,j,i) ...}}\\
    631                        ~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
    632                        ~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
    633                        ~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
     626                       \texttt{!-- \hspace{6mm}Enter actions to be done in the u-tendency term here}\\
     627                       ~~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO i = nxl, nxr}}\\
     628                       ~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO j = nys, nyn}}\\
     629                       ~~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{DO k = nxb+1, nzt}}\\
     630                       ~~~~~~~~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{tend(k,j,i) = tend(k,j,i) - const * u(k,j,i) ...}}\\
     631                       ~~~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
     632                       ~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
     633                       ~~~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
    634634                       \par\bigskip
    635635                       ~~~~~~~~~~\texttt{CASE ( 'v-tendency' )}\\
     
    671671      \node [yellow,shift={(9.2 cm,3.0cm)}]  at (current page.south west){~\texttt{SUBROUTINE user\_actions\_ij( i, j, location )}\\
    672672                                                                          \par\medskip
    673                                                                           ~~~\texttt{USE control\_parameters}\\
    674                                                                           ~~~\texttt{USE pegrid}\\
    675                                                                           ~~~\texttt{USE user}\\
     673                                                                          ~~~~~~\texttt{USE control\_parameters}\\
     674                                                                          ~~~~~~\texttt{USE pegrid}\\
     675                                                                          ~~~~~~\texttt{USE user}\\
    676676                                                                          \par\medskip
    677                                                                           ~~~\texttt{IMPLICIT NONE}\
     677                                                                          ~~~~~~\texttt{IMPLICIT NONE}\
    678678                                                                          \par\medskip
    679                                                                           ~~~\texttt{CHARACTER (LEN=*) ::  location}\\
     679                                                                          ~~~~~~\texttt{CHARACTER (LEN=*) ::  location}\\
    680680                                                                          \par\medskip
    681                                                                           ~~~\texttt{INTEGER(iwp) ::  i, idum, j}\\
     681                                                                          ~~~~~~\texttt{INTEGER(iwp) ::  i, idum, j}\\
    682682                                                                          \par\medskip
    683683                                                                          \texttt{!}\\
    684684                                                                          \texttt{!--    Here the user-defined actions follow}\\
    685685                                                                          \vspace{0.5mm}
    686                                                                           ~~~\texttt{SELECT CASE ( location )}\\
     686                                                                          ~~~~~~\texttt{SELECT CASE ( location )}\\
    687687                                                                          \par\medskip
    688                                                                           ~~~~~~\texttt{CASE ( 'u-tendency' )}\\
     688                                                                          ~~~~~~~~~\texttt{CASE ( 'u-tendency' )}\\
    689689                                                                          \texttt{!}\\
    690                                                                           \texttt{!--Enter actions to be done in the u-tendency term here}\\
    691                                                                           ~~~~~~~~~\texttt{\textcolor{blue}{DO k = nzb+1, nzt-1}}\\
    692                                                                           ~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{tend(k,j,i) = tend(k,j,i) + ...}}\\
    693                                                                           ~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
     690                                                                          ~~~~~~\texttt{!-- Enter actions to be done in the u-tendency term here}\\
     691                                                                          ~~~~~~~~~~~~\texttt{\textcolor{blue}{DO k = nzb+1, nzt-1}}\\
     692                                                                          ~~~~~~~~~~~~~~~~~~\texttt{\textcolor{blue}{tend(k,j,i) = tend(k,j,i) + ...}}\\
     693                                                                          ~~~~~~~~~~~~\texttt{\textcolor{blue}{ENDDO}}\\
    694694                                                                          \par\medskip
    695                                                                           ~~~~~~\texttt{CASE ( 'v-tendency' )}};
     695                                                                          ~~~~~~~~~\texttt{CASE ( 'v-tendency' )}};
    696696%          {%
    697697%          \begin{tikzpicture}[remember picture, overlay]
Note: See TracChangeset for help on using the changeset viewer.