630 |
C run with etaH of a z/p-coordinate run the drift of phiHydLow |
C run with etaH of a z/p-coordinate run the drift of phiHydLow |
631 |
C has to be removed by something like the following subroutine: |
C has to be removed by something like the following subroutine: |
632 |
C CALL REMOVE_MEAN_RL( 1, phiHydLow, maskH, maskH, rA, drF, |
C CALL REMOVE_MEAN_RL( 1, phiHydLow, maskH, maskH, rA, drF, |
633 |
C & 'phiHydLow', myThid ) |
C & 'phiHydLow', myTime, myThid ) |
634 |
Cml) |
Cml) |
635 |
|
|
636 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |