/[MITgcm]/MITgcm/pkg/icefront/ICEFRONT.h
ViewVC logotype

Diff of /MITgcm/pkg/icefront/ICEFRONT.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by yunx, Mon May 16 22:41:03 2011 UTC revision 1.12 by jmc, Thu Jan 5 22:01:00 2012 UTC
# Line 7  CBOP Line 7  CBOP
7  C !ROUTINE: ICEFRONT.h  C !ROUTINE: ICEFRONT.h
8    
9  C !DESCRIPTION: \bv  C !DESCRIPTION: \bv
10  C     /==========================================================\  C     *==========================================================*
11  C     | ICEFRONT.h                                               |  C     | ICEFRONT.h                                               |
12  C     | o Basic header thermodnynamic shelf ice package.         |  C     | o Basic header thermodnynamic shelf ice package.         |
13  C     |   Contains all ICEFRONT field declarations.              |  C     |   Contains all ICEFRONT field declarations.              |
14  C     \==========================================================/  C     *==========================================================*
15    
16  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
17  C  C
# Line 33  C                                interio Line 33  C                                interio
33  C                                from ICEFRONTthetaSurface at surface to 0 oC at  C                                from ICEFRONTthetaSurface at surface to 0 oC at
34  C                                the bottom  C                                the bottom
35  C     ICEFRONTlatentHeat       - latent heat of fusion (J/kg)  C     ICEFRONTlatentHeat       - latent heat of fusion (J/kg)
36  C     applyIcefrontTendT/S     -    C     applyIcefrontTendT/S     -
37  C  C
38  C     K_icefront             - # of icefront model levels at every horizontal location (2D)  C     K_icefront             - # of icefront model levels at every horizontal location (2D)
39  C     R_icefront             - icefront depth [m] (2D)  C     R_icefront             - icefront depth [m] (2D)
# Line 54  CEOP Line 54  CEOP
54        COMMON /ICEFRONT_PARMS_I/  K_icefront        COMMON /ICEFRONT_PARMS_I/  K_icefront
55        INTEGER K_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        INTEGER K_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56    
57        COMMON /ICEFRONT_PARMS_R/        COMMON /ICEFRONT_PARMS_R/
58       &     rhoIcefront, ICEFRONTkappa,       &     rhoIcefront, ICEFRONTkappa,
59       &     ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat,       &     ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat,
60       &     ICEFRONTheatCapacity_Cp,       &     ICEFRONTheatCapacity_Cp,
# Line 66  CEOP Line 66  CEOP
66        _RL recip_ICEFRONTlatentHeat        _RL recip_ICEFRONTlatentHeat
67        _RL ICEFRONTthetaSurface        _RL ICEFRONTthetaSurface
68    
69        COMMON /ICEFRONT_FIELDS_RL/        COMMON /ICEFRONT_FIELDS_RL/
70       &     icefront_TendT,       &     icefront_TendT,
71       &     icefront_TendS       &     icefront_TendS
72        _RL icefront_TendT (1:sNx,1:sNy,Nr,nSx,nSy)        _RL icefront_TendT (1:sNx,1:sNy,Nr,nSx,nSy)
73        _RL icefront_TendS (1:sNx,1:sNy,Nr,nSx,nSy)        _RL icefront_TendS (1:sNx,1:sNy,Nr,nSx,nSy)
74    
75        COMMON /ICEFRONT_FIELDS_RS/        COMMON /ICEFRONT_FIELDS_RS/
76       &     R_icefront,       &     R_icefront,
77       &     icefrontlength       &     icefrontlength
78        _RS R_icefront     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS R_icefront     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79        _RS icefrontlength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS icefrontlength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80          
81        LOGICAL ICEFRONTisOn        LOGICAL ICEFRONTisOn
82        LOGICAL applyIcefrontTendT        LOGICAL applyIcefrontTendT
83        LOGICAL applyIcefrontTendS        LOGICAL applyIcefrontTendS
# Line 88  CEOP Line 88  CEOP
88    
89        CHARACTER*(MAX_LEN_FNAM) ICEFRONTlengthFile        CHARACTER*(MAX_LEN_FNAM) ICEFRONTlengthFile
90        CHARACTER*(MAX_LEN_FNAM) ICEFRONTdepthFile        CHARACTER*(MAX_LEN_FNAM) ICEFRONTdepthFile
91        COMMON /ICEFRONT_PARM_C/        CHARACTER*(MAX_LEN_FNAM) SGrunoffFile
92       &     ICEFRONTlengthFile,        COMMON /ICEFRONT_PARM_C/
93       &     ICEFRONTdepthFile       &     ICEFRONTlengthFile,
94         &     ICEFRONTdepthFile,
95         &     SGrunoffFile
96    
97  #ifdef ALLOW_SUBGLACIAL_RUNOFF  #ifdef ALLOW_SUBGLACIAL_RUNOFF
       CHARACTER*(MAX_LEN_FNAM) SGrunoffFile  
98        _RL SGrunoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SGrunoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
99        _RL SGrunoff0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SGrunoff0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
100        _RL SGrunoff1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SGrunoff1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
101        COMMON /SUBGLACIAL_RUNOFF/        COMMON /SUBGLACIAL_RUNOFF/
      &     SGrunoffFile,  
102       &     SGrunoff, SGrunoff0,SGrunoff1       &     SGrunoff, SGrunoff0,SGrunoff1
103  #endif /* ALLOW_SUBGLACIAL_RUNOFF */  #endif /* ALLOW_SUBGLACIAL_RUNOFF */
104    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22