/[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.2 by molod, Fri Aug 20 13:40:03 2004 UTC revision 1.4 by molod, Thu Jun 16 15:09:42 2005 UTC
# Line 18  c--------------------------------------- Line 18  c---------------------------------------
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "chronos.h"  #include "chronos.h"
20    
21         integer myTime, myIter, myThid         integer myIter, myThid
22           _RL myTime
23    
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 38  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.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22