pkg/shelfice/shelfice_init_varia.F

C $Header: /u/gcmpack/MITgcm/pkg/shelfice/shelfice_init_varia.F,v 1.2 2008/09/12 07:21:55 mlosch Exp $
C $Name:  $

#include "SHELFICE_OPTIONS.h"


CBOP
      SUBROUTINE SHELFICE_INIT_VARIA( myThid )
C     /============================================================\
C     | SUBROUTINE SHELFICE_INIT_VARIA                             |
C     | o Routine to initialize SHELFICE variables.                |
C     |============================================================|
C     | Initialize SHELFICE parameters and variables.              |
C     \============================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "SHELFICE.h"

C     === Routine arguments ===
C     myThid -  Number of this instance of SHELFICE_INIT_VARIA
      INTEGER myThid
CEndOfInterface

#ifdef ALLOW_SHELFICE
C     === Local variables ===
C     I,J,bi,bj - Loop counters
      INTEGER I, J, bi, bj
CEOP

      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)
        DO J = 1-OLy, sNy+OLy
         DO I = 1-OLx, sNx+OLx
          shelficeLoadAnomaly   (i,j,bi,bj) = 0. _d 0
          shelficeForcingT      (i,j,bi,bj) = 0. _d 0
          shelficeForcingS      (i,j,bi,bj) = 0. _d 0
          shelficeHeatFlux      (i,j,bi,bj) = 0. _d 0
          shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
         ENDDO
        ENDDO
       ENDDO
      ENDDO
      IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN
C-    must wait for initialisation to be finished before master loads from file
       _BARRIER
       CALL READ_FLD_XY_RS( SHELFICEloadAnomalyFile, ' ',
     &      shelficeLoadAnomaly, 0, myThid )
C-    EXCH call implicitly contains Barrier: no need for an other one.
       _EXCH_XY_RS( shelficeLoadAnomaly, myThid )
      ENDIF

#endif /* ALLOW_SHELFICE */

      RETURN
      END

1	C $Header: /u/gcmpack/MITgcm/pkg/shelfice/shelfice_init_varia.F,v 1.2 2008/09/12 07:21:55 mlosch Exp $
2	C $Name: $
3
4	#include "SHELFICE_OPTIONS.h"
5
6
7	CBOP
8	SUBROUTINE SHELFICE_INIT_VARIA( myThid )
9	C /============================================================\
10	C \| SUBROUTINE SHELFICE_INIT_VARIA \|
11	C \| o Routine to initialize SHELFICE variables. \|
12	C \|============================================================\|
13	C \| Initialize SHELFICE parameters and variables. \|
14	C \============================================================/
15	IMPLICIT NONE
16
17	C === Global variables ===
18	#include "SIZE.h"
19	#include "EEPARAMS.h"
20	#include "PARAMS.h"
21	#include "GRID.h"
22	#include "SHELFICE.h"
23
24	C === Routine arguments ===
25	C myThid - Number of this instance of SHELFICE_INIT_VARIA
26	INTEGER myThid
27	CEndOfInterface
28
29	#ifdef ALLOW_SHELFICE
30	C === Local variables ===
31	C I,J,bi,bj - Loop counters
32	INTEGER I, J, bi, bj
33	CEOP
34
35	DO bj = myByLo(myThid), myByHi(myThid)
36	DO bi = myBxLo(myThid), myBxHi(myThid)
37	DO J = 1-OLy, sNy+OLy
38	DO I = 1-OLx, sNx+OLx
39	shelficeLoadAnomaly (i,j,bi,bj) = 0. _d 0
40	shelficeForcingT (i,j,bi,bj) = 0. _d 0
41	shelficeForcingS (i,j,bi,bj) = 0. _d 0
42	shelficeHeatFlux (i,j,bi,bj) = 0. _d 0
43	shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
44	ENDDO
45	ENDDO
46	ENDDO
47	ENDDO
48	IF ( SHELFICEloadAnomalyFile .NE. ' ' ) THEN
49	C- must wait for initialisation to be finished before master loads from file
50	_BARRIER
51	CALL READ_FLD_XY_RS( SHELFICEloadAnomalyFile, ' ',
52	& shelficeLoadAnomaly, 0, myThid )
53	C- EXCH call implicitly contains Barrier: no need for an other one.
54	_EXCH_XY_RS( shelficeLoadAnomaly, myThid )
55	ENDIF
56
57	#endif /* ALLOW_SHELFICE */
58
59	RETURN
60	END
61