66 |
_RL smTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
_RL smTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,nSOM) |
67 |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL gTracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
68 |
|
|
|
#ifdef GAD_ALLOW_SOM_ADVECT |
|
69 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
70 |
C maskUp :: 2-D array mask for W points |
C maskUp :: 2-D array mask for W points |
71 |
C i,j,k :: loop indices |
C i,j,k :: loop indices |
642 |
C-- end of if not.implicitAdvection block |
C-- end of if not.implicitAdvection block |
643 |
ENDIF |
ENDIF |
644 |
|
|
|
#endif /* GAD_ALLOW_SOM_ADVECT */ |
|
|
|
|
645 |
RETURN |
RETURN |
646 |
END |
END |