pkg/shelfice/shelfice_mnc_init.F

C $Header: $
C $Name:  $

#include "SHELFICE_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: SHELFICE_MNC_INIT
      
C     !INTERFACE:
      SUBROUTINE SHELFICE_MNC_INIT( myThid )
      
C     !DESCRIPTION:
C     Initialize SHELFICE variables within MNC

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

#ifdef ALLOW_SHELFICE
#ifdef ALLOW_MNC
      IF (useMNC) THEN

        CALL MNC_CW_ADD_VNAME('fwFlux','Cen_xy_Hn__-__t',3,4,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','units','m/s', myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','description',
     &       'Net fresh water flux into shelfice',myThid)

        CALL MNC_CW_ADD_VNAME('heatFlux','Cen_xy_Hn__-__t',3,4,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','units','W/m^2',myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','description',
     &       'Net heat flux into shelfice',myThid)

C       Time averages

        CALL MNC_CW_ADD_VNAME(
     &       'fwFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT(
     &       'fwFluxtave','units','m/s',myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('fwFluxtave','description',
     &       'Time-averaged net freshwater flux into shelfice', myThid)

        CALL MNC_CW_ADD_VNAME(
     &       'heatFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
        CALL MNC_CW_ADD_VATTR_TEXT(
     &       'heatFluxtave','units','W/m^2', myThid)
        CALL MNC_CW_ADD_VATTR_TEXT('heatFluxtave','description',
     &       'Time-averaged net heat flux into shelfice', myThid)

      ENDIF
#endif /*  ALLOW_MNC     */
#endif /*  ALLOW_SHELFICE  */

      RETURN
      END

1	C $Header: $
2	C $Name: $
3
4	#include "SHELFICE_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: SHELFICE_MNC_INIT
9
10	C !INTERFACE:
11	SUBROUTINE SHELFICE_MNC_INIT( myThid )
12
13	C !DESCRIPTION:
14	C Initialize SHELFICE variables within MNC
15
16	C !USES:
17	IMPLICIT NONE
18	#include "SIZE.h"
19	#include "EEPARAMS.h"
20	#include "PARAMS.h"
21
22	C !INPUT PARAMETERS:
23	INTEGER myThid
24	CEOP
25
26	#ifdef ALLOW_SHELFICE
27	#ifdef ALLOW_MNC
28	IF (useMNC) THEN
29
30	CALL MNC_CW_ADD_VNAME('fwFlux','Cen_xy_Hn__-__t',3,4,myThid)
31	CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','units','m/s', myThid)
32	CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','description',
33	& 'Net fresh water flux into shelfice',myThid)
34
35	CALL MNC_CW_ADD_VNAME('heatFlux','Cen_xy_Hn__-__t',3,4,myThid)
36	CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','units','W/m^2',myThid)
37	CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','description',
38	& 'Net heat flux into shelfice',myThid)
39
40	C Time averages
41
42	CALL MNC_CW_ADD_VNAME(
43	& 'fwFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
44	CALL MNC_CW_ADD_VATTR_TEXT(
45	& 'fwFluxtave','units','m/s',myThid)
46	CALL MNC_CW_ADD_VATTR_TEXT('fwFluxtave','description',
47	& 'Time-averaged net freshwater flux into shelfice', myThid)
48
49	CALL MNC_CW_ADD_VNAME(
50	& 'heatFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
51	CALL MNC_CW_ADD_VATTR_TEXT(
52	& 'heatFluxtave','units','W/m^2', myThid)
53	CALL MNC_CW_ADD_VATTR_TEXT('heatFluxtave','description',
54	& 'Time-averaged net heat flux into shelfice', myThid)
55
56	ENDIF
57	#endif /* ALLOW_MNC */
58	#endif /* ALLOW_SHELFICE */
59
60	RETURN
61	END
62