24 |
integer i, j, bi, bj, biglobal, bjglobal |
integer i, j, bi, bj, biglobal, bjglobal |
25 |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2 |
26 |
integer nSxglobal, nSyglobal |
integer nSxglobal, nSyglobal |
|
integer ksst,kice |
|
27 |
_RL sstmin |
_RL sstmin |
28 |
parameter ( sstmin = 273.16 ) |
parameter ( sstmin = 273.16 ) |
29 |
|
|
38 |
nSxglobal = nSx*nPx |
nSxglobal = nSx*nPx |
39 |
nSyglobal = nSy*nPy |
nSyglobal = nSy*nPy |
40 |
|
|
|
call mdsfindunit( ksst, myThid ) |
|
|
call mdsfindunit( kice, myThid ) |
|
|
|
|
41 |
C*********************************************************************** |
C*********************************************************************** |
42 |
|
|
43 |
DO BJ = myByLo(myThid),myByHi(myThid) |
DO BJ = myByLo(myThid),myByHi(myThid) |