/[MITgcm]/MITgcm/pkg/fizhi/update_ocean_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_ocean_exports.F

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

revision 1.29 by jmc, Wed May 6 02:57:47 2009 UTC revision 1.33 by jmc, Wed Sep 22 22:21:41 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  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
21    #include "W2_EXCH2_SIZE.h"
22  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
 #include "W2_EXCH2_PARAMS.h"  
23  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
24    
25         integer myIter, myThid         integer myIter, myThid
# Line 79  C*************************************** Line 79  C***************************************
79         DO BJ = myByLo(myThid),myByHi(myThid)         DO BJ = myByLo(myThid),myByHi(myThid)
80         DO BI = myBxLo(myThid),myBxHi(myThid)         DO BI = myBxLo(myThid),myBxHi(myThid)
81  #if defined(ALLOW_EXCH2)  #if defined(ALLOW_EXCH2)
82         bislot = exch2_txglobalo(W2_myTileList(bi))-1         bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
83         bjslot = exch2_tyglobalo(W2_myTileList(bi))-1         bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
84  #else  #else
85         bislot = myXGlobalLo-1+(bi-1)*sNx         bislot = myXGlobalLo-1+(bi-1)*sNx
86         bjslot = myYGlobalLo-1+(bj-1)*sNy         bjslot = myYGlobalLo-1+(bj-1)*sNy
# Line 680  C Line 680  C
680  C!INPUT PARAMETERS:  C!INPUT PARAMETERS:
681  C!      iunit    unit number assigned to the data file  C!      iunit    unit number assigned to the data file
682  C!      ndmax    maximum number of date/times of the data  C!      ndmax    maximum number of date/times of the data
683  C!      nrec     record number of the header info (or assume 1??)  C!      nrec     record number of the header info (or assume 1 ?)
684  C  C
685  C!OUTPUT PARAMETERS:  C!OUTPUT PARAMETERS:
686  C!      cname         name of the data in the file header  C!      cname         name of the data in the file header
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22