/[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.5 by jmc, Tue Mar 16 00:27:00 2010 UTC
# Line 5  C $Name$ Line 5  C $Name$
5         subroutine update_ocean_exports (myTime, myIter, myThid)         subroutine update_ocean_exports (myTime, myIter, myThid)
6  c----------------------------------------------------------------------  c----------------------------------------------------------------------
7  c  Subroutine update_ocean_exports - 'Wrapper' routine to update  c  Subroutine update_ocean_exports - 'Wrapper' routine to update
8  c        the fields related to the ocean's surface that are needed  c        the fields related to the ocean surface that are needed
9  c        by fizhi (sst and sea ice extent).  c        by fizhi (sst and sea ice extent).
10  c  c
11  c Call:  getsst  (Return the current sst field-read dataset if needed)  c Call:  getsst  (Return the current sst field-read dataset if needed)
# 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.5
  ViewVC Help
Powered by ViewVC 1.1.22