pkg/icefront/icefront_init_varia.F

C $Header: /u/gcmpack/MITgcm/pkg/icefront/icefront_init_varia.F,v 1.5 2010/02/16 21:25:22 dimitri Exp $
C $Name:  $

#include "ICEFRONT_OPTIONS.h"

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

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

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

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

      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)
        DO J = 1, OLy
         DO I = 1, OLx
          DO K = 1, Nr
           icefront_TendT (i,j,k,bi,bj) = 0. _d 0
           icefront_TendS (i,j,k,bi,bj) = 0. _d 0
          ENDDO
         ENDDO
        ENDDO
       ENDDO
      ENDDO

#ifdef ALLOW_SUBGLACIAL_RUNOFF
      call exf_init_runoff (
     &     sgrunofffile, sgrunoffperiod,
     &     exf_inscal_sgrunoff, sgrunoffmask, sgrunoffconst,
     &     sgrunoff, sgrunoff0, sgrunoff1, mythid )
#endif /* ALLOW_SUBGLACIAL_RUNOFF */

#endif /* ALLOW_ICEFRONT */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/icefront/icefront_init_varia.F,v 1.5 2010/02/16 21:25:22 dimitri Exp $
2	C $Name: $
3
4	#include "ICEFRONT_OPTIONS.h"
5
6	CBOP
7	SUBROUTINE ICEFRONT_INIT_VARIA( myThid )
8	C /============================================================\
9	C \| SUBROUTINE ICEFRONT_INIT_VARIA \|
10	C \| o Routine to initialize ICEFRONT variables. \|
11	C \|============================================================\|
12	C \| Initialize ICEFRONT parameters and variables. \|
13	C \============================================================/
14	IMPLICIT NONE
15
16	C === Global variables ===
17	#include "SIZE.h"
18	#include "EEPARAMS.h"
19	#include "PARAMS.h"
20	#include "GRID.h"
21	#include "ICEFRONT.h"
22
23	C === Routine arguments ===
24	C myThid - Number of this instance of ICEFRONT_INIT_VARIA
25	INTEGER myThid
26	CEndOfInterface
27
28	#ifdef ALLOW_ICEFRONT
29	C === Local variables ===
30	C I,J,K,bi,bj - Loop counters
31	INTEGER I, J, K, bi, bj
32	CEOP
33
34	DO bj = myByLo(myThid), myByHi(myThid)
35	DO bi = myBxLo(myThid), myBxHi(myThid)
36	DO J = 1, OLy
37	DO I = 1, OLx
38	DO K = 1, Nr
39	icefront_TendT (i,j,k,bi,bj) = 0. _d 0
40	icefront_TendS (i,j,k,bi,bj) = 0. _d 0
41	ENDDO
42	ENDDO
43	ENDDO
44	ENDDO
45	ENDDO
46
47	#ifdef ALLOW_SUBGLACIAL_RUNOFF
48	call exf_init_runoff (
49	& sgrunofffile, sgrunoffperiod,
50	& exf_inscal_sgrunoff, sgrunoffmask, sgrunoffconst,
51	& sgrunoff, sgrunoff0, sgrunoff1, mythid )
52	#endif /* ALLOW_SUBGLACIAL_RUNOFF */
53
54	#endif /* ALLOW_ICEFRONT */
55
56	RETURN
57	END