/[MITgcm]/MITgcm/verification/fizhi-gridalt-hs/code/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/verification/fizhi-gridalt-hs/code/update_ocean_exports.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by molod, Fri Oct 22 14:54:03 2004 UTC revision 1.4 by molod, Thu Jun 16 15:09:42 2005 UTC
# Line 24  c--------------------------------------- Line 24  c---------------------------------------
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    
# Line 39  c--------------------------------------- Line 38  c---------------------------------------
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)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22