52 |
C-- fill momentum state-var diagnostics: |
C-- fill momentum state-var diagnostics: |
53 |
|
|
54 |
CALL DIAGNOSTICS_FILL(etaN, 'ETAN ',0, 1,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(etaN, 'ETAN ',0, 1,0,1,1,myThid) |
55 |
|
|
56 |
|
IF ( DIAGNOSTICS_IS_ON('RSURF ',myThid) ) THEN |
57 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
58 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
59 |
|
DO j = 1,sNy |
60 |
|
DO i = 1,sNx |
61 |
|
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
62 |
|
ENDDO |
63 |
|
ENDDO |
64 |
|
ENDDO |
65 |
|
ENDDO |
66 |
|
CALL DIAGNOSTICS_FILL(tmp1k,'RSURF ',0,1,0,1,1,myThid) |
67 |
|
ENDIF |
68 |
|
|
69 |
CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2, |
CALL DIAGNOSTICS_SCALE_FILL(etaN,tmpFac,2, |
70 |
& 'ETANSQ ',0, 1,0,1,1,myThid) |
& 'ETANSQ ',0, 1,0,1,1,myThid) |
71 |
|
|