fizhi-gridalt-hs/code/update_ocean_exports.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/update_ocean_exports-fake.F,v 1.2 2004/05/05 00:39:21 edhill Exp $
C $Name:  $

       subroutine update_ocean_exports (myTime, myIter, myThid)
c----------------------------------------------------------------------
c  Subroutine update_ocean_exports - 'Wrapper' routine to update
c        the fields related to the ocean's surface that are needed
c        by fizhi.
c        Also: Set up "bi, bj loop" and some timers and clocks here.
c
c Call:  getsst  (Return the current sst field-read dataset if needed)
c        getsice (Return the current sea ice field-read data if needed)
c-----------------------------------------------------------------------
       implicit none
#include "CPP_OPTIONS.h"
#include "SIZE.h"
#include "GRID.h"
#include "ocean_coms.h"
#include "EEPARAMS.h"

       integer myTime, myIter, myThid

       integer i, j, L, bi, bj
       integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2

       im1 = 1-OLx
       im2 = sNx+OLx
       jm1 = 1-OLy
       jm2 = sNy+OLy
       idim1 = 1
       idim2 = sNx
       jdim1 = 1
       jdim2 = sNy

       do bj = myByLo(myThid), myByHi(myThid)
       do bi = myBxLo(myThid), myBxHi(myThid)

c      call getsst
c      call getsice

       enddo
       enddo

       return
       end
1	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/update_ocean_exports-fake.F,v 1.2 2004/05/05 00:39:21 edhill Exp $
2	C $Name: $
3
4	subroutine update_ocean_exports (myTime, myIter, myThid)
5	c----------------------------------------------------------------------
6	c Subroutine update_ocean_exports - 'Wrapper' routine to update
7	c the fields related to the ocean's surface that are needed
8	c by fizhi.
9	c Also: Set up "bi, bj loop" and some timers and clocks here.
10	c
11	c Call: getsst (Return the current sst field-read dataset if needed)
12	c getsice (Return the current sea ice field-read data if needed)
13	c-----------------------------------------------------------------------
14	implicit none
15	#include "CPP_OPTIONS.h"
16	#include "SIZE.h"
17	#include "GRID.h"
18	#include "ocean_coms.h"
19	#include "EEPARAMS.h"
20
21	integer myTime, myIter, myThid
22
23	integer i, j, L, bi, bj
24	integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
25
26	im1 = 1-OLx
27	im2 = sNx+OLx
28	jm1 = 1-OLy
29	jm2 = sNy+OLy
30	idim1 = 1
31	idim2 = sNx
32	jdim1 = 1
33	jdim2 = sNy
34
35	do bj = myByLo(myThid), myByHi(myThid)
36	do bi = myBxLo(myThid), myBxHi(myThid)
37
38	c call getsst
39	c call getsice
40
41	enddo
42	enddo
43
44	return
45	end