pkg/exf/exfa_getforcing.F

c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exfa_getforcing.F,v 1.1 2001/02/02 19:43:48 heimbach Exp $

#include "EXF_CPPOPTIONS.h"


      subroutine exfa_GetForcing(
     I                            mytime,
     I                            myiter,
     I                            mythid
     &                          )

c     ==================================================================
c     SUBROUTINE exfa_GetForcing
c     ==================================================================
c
c     o Get the forcing anomaly fields for the current time step. The switches
c       for the inclusion of the individual forcing components have to
c       be set in EXF_CPPOPTIONS.h .
c
c       A note on surface fluxes:
c
c       The MITgcmUV's vertical coordinate z is positive upward.
c       This implies that a positive flux is out of the ocean
c       model. However, the wind stress forcing is not treated
c       this way. A positive zonal wind stress accelerates the
c       model ocean towards the east.
c
c     started: Ralf.Giering@FastOpt.de 25-Mai-2000
c
c     ==================================================================
c     SUBROUTINE exfa_GetForcing
c     ==================================================================

      implicit none

c     == global variables ==

c     == routine arguments ==

c     mythid - thread number for this instance of the routine.

      integer mythid
      integer myiter
      _RL     mytime

c     == local variables ==

c     == end of interface ==

c     Get the surface forcing anomaly fields.
      call exfa_GetFFields(
     I                      mytime, myiter, mythid
     &                    )

c     Map the forcing anomaly fields onto the corresponding model fields.
      call exfa_MapFields(
     I                    mythid
     &                  )

      end

1	heimbach	1.1	c $Header: /u/gcmpack/development/heimbach/ecco_env/pkg/exf/exfa_getforcing.F,v 1.1 2001/02/02 19:43:48 heimbach Exp $
2
3			#include "EXF_CPPOPTIONS.h"
4
5
6			subroutine exfa_GetForcing(
7			I mytime,
8			I myiter,
9			I mythid
10			& )
11
12			c ==================================================================
13			c SUBROUTINE exfa_GetForcing
14			c ==================================================================
15			c
16			c o Get the forcing anomaly fields for the current time step. The switches
17			c for the inclusion of the individual forcing components have to
18			c be set in EXF_CPPOPTIONS.h .
19			c
20			c A note on surface fluxes:
21			c
22			c The MITgcmUV's vertical coordinate z is positive upward.
23			c This implies that a positive flux is out of the ocean
24			c model. However, the wind stress forcing is not treated
25			c this way. A positive zonal wind stress accelerates the
26			c model ocean towards the east.
27			c
28			c started: Ralf.Giering@FastOpt.de 25-Mai-2000
29			c
30			c ==================================================================
31			c SUBROUTINE exfa_GetForcing
32			c ==================================================================
33
34			implicit none
35
36			c == global variables ==
37
38			c == routine arguments ==
39
40			c mythid - thread number for this instance of the routine.
41
42			integer mythid
43			integer myiter
44			_RL mytime
45
46			c == local variables ==
47
48			c == end of interface ==
49
50			c Get the surface forcing anomaly fields.
51			call exfa_GetFFields(
52			I mytime, myiter, mythid
53			& )
54
55			c Map the forcing anomaly fields onto the corresponding model fields.
56			call exfa_MapFields(
57			I mythid
58			& )
59
60			end
61