44 |
INTEGER myThid |
INTEGER myThid |
45 |
|
|
46 |
C !OUTPUT PARAMETERS: ================================================== |
C !OUTPUT PARAMETERS: ================================================== |
47 |
C gPtracer :: updates tendency array |
C gPtracer :: updates tendency array |
48 |
|
|
49 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
50 |
|
|
51 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
52 |
C i,j :: loop indices |
C i,j :: loop indices |
53 |
INTEGER i,j |
INTEGER i,j |
54 |
C number of surface interface layer |
C number of surface interface layer |
55 |
INTEGER kSurface |
INTEGER kSurface |