pkg/ebm/ebm_ini_vars.F

C $Header: $
C $Name:  $

#include "EBM_OPTIONS.h"

      SUBROUTINE EBM_INI_VARS( myThid )
C     |==========================================================|
C     | S/R INITIALISE VARIABLES FOR EBM                         |
C     |==========================================================|

      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.h"
#include "GRID.h"
#include "FFIELDS.h"
#ifdef ALLOW_EBM
# include "EBM.h"
#endif

C     === Routine arguments ===
C     myThid - Instance number for this innvocation 
      INTEGER myThid

CEndOfInterface
C     == Local variables ==

#ifdef ALLOW_EBM

C     I, J, K - Loop counters
      INTEGER bi,bj,i,j,k
      INTEGER iMin, iMax, jMin, jMax

C--   initially all forcing fields are zero
      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)
        DO j=1-OLy,sNy+OLy
         DO i=1-OLx,sNx+OLx
          Run   (i,j,bi,bj) = 0.
          winPert(i,j,bi,bj) = 0.
         ENDDO
        ENDDO
       ENDDO
      ENDDO

      _EXCH_XY_R4(Run,   myThid )
      _EXCH_XY_R4(winPert,  myThid )

      CALL EBM_LOAD_CLIMATOLOGY( myThid )

      CALL EBM_DRIVER( startTime, niter0, myThid )

      print *, TmlS - 273.15, TtS - 273.15
      print *, TmlN - 273.15, TtN - 273.15

      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)
        iMin =   1   - 2
        iMax = sNx+1 + 2
        jMin =   1   - 2
        jMax = sNy+1 + 2

       CALL EBM_FORCING_SURF(
     I       bi, bj, iMin, iMax, jMin, jMax,
     I       startTime, niter0, myThid )
        ENDDO
       ENDDO

#endif /* ALLOW_EBM */

      RETURN
      END


1	C $Header: $
2	C $Name: $
3
4	#include "EBM_OPTIONS.h"
5
6	SUBROUTINE EBM_INI_VARS( myThid )
7	C \|==========================================================\|
8	C \| S/R INITIALISE VARIABLES FOR EBM \|
9	C \|==========================================================\|
10
11	IMPLICIT NONE
12
13	C === Global variables ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "PARAMS.h"
17	#include "DYNVARS.h"
18	#include "GRID.h"
19	#include "FFIELDS.h"
20	#ifdef ALLOW_EBM
21	# include "EBM.h"
22	#endif
23
24	C === Routine arguments ===
25	C myThid - Instance number for this innvocation
26	INTEGER myThid
27
28	CEndOfInterface
29	C == Local variables ==
30
31	#ifdef ALLOW_EBM
32
33	C I, J, K - Loop counters
34	INTEGER bi,bj,i,j,k
35	INTEGER iMin, iMax, jMin, jMax
36
37	C-- initially all forcing fields are zero
38	DO bj = myByLo(myThid), myByHi(myThid)
39	DO bi = myBxLo(myThid), myBxHi(myThid)
40	DO j=1-OLy,sNy+OLy
41	DO i=1-OLx,sNx+OLx
42	Run (i,j,bi,bj) = 0.
43	winPert(i,j,bi,bj) = 0.
44	ENDDO
45	ENDDO
46	ENDDO
47	ENDDO
48
49	_EXCH_XY_R4(Run, myThid )
50	_EXCH_XY_R4(winPert, myThid )
51
52	CALL EBM_LOAD_CLIMATOLOGY( myThid )
53
54	CALL EBM_DRIVER( startTime, niter0, myThid )
55
56	print *, TmlS - 273.15, TtS - 273.15
57	print *, TmlN - 273.15, TtN - 273.15
58
59	DO bj = myByLo(myThid), myByHi(myThid)
60	DO bi = myBxLo(myThid), myBxHi(myThid)
61	iMin = 1 - 2
62	iMax = sNx+1 + 2
63	jMin = 1 - 2
64	jMax = sNy+1 + 2
65
66	CALL EBM_FORCING_SURF(
67	I bi, bj, iMin, iMax, jMin, jMax,
68	I startTime, niter0, myThid )
69	ENDDO
70	ENDDO
71
72	#endif /* ALLOW_EBM */
73
74	RETURN
75	END
76
77
78