52 |
_RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
_RL sm_xz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
53 |
_RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
_RL sm_yz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
54 |
|
|
|
#ifdef GAD_ALLOW_SOM_ADVECT |
|
55 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
56 |
C i,j,k :: loop indices |
C i,j,k :: loop indices |
57 |
_RL three |
_RL three |
81 |
ENDDO |
ENDDO |
82 |
ENDIF |
ENDIF |
83 |
|
|
|
#endif /* GAD_ALLOW_SOM_ADVECT */ |
|
|
|
|
84 |
RETURN |
RETURN |
85 |
END |
END |