/[MITgcm]/MITgcm/pkg/seaice/seaice_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_mnc_init.F

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

revision 1.3 by edhill, Thu Aug 11 02:50:12 2005 UTC revision 1.4 by mlosch, Mon Mar 20 21:36:11 2006 UTC
# Line 18  C     !USES: Line 18  C     !USES:
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
21    #ifdef SEAICE_ALLOW_EVP
22    #include "SEAICE_PARAMS.h"
23    #endif /* SEAICE_ALLOW_EVP */
24    
25  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
26        INTEGER myThid        INTEGER myThid
# Line 27  CEOP Line 30  CEOP
30  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
31        IF (useMNC) THEN        IF (useMNC) THEN
32    
33    #ifdef SEAICE_ALLOW_EVP
34           IF ( SEAICEuseEVP ) THEN
35            CALL MNC_CW_ADD_VNAME('si_sigma1','Cen_xy_Hn__-__t',3,4,myThid)
36            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma1','units','N/m^2', myThid)
37            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma1','description',
38         &       'divergence of stress tensor', myThid)
39            CALL MNC_CW_ADD_VNAME('si_sigma2','Cen_xy_Hn__-__t',3,4,myThid)
40            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma2','units','N/m^2', myThid)
41            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma2','description',
42         &       'tension of stress tensor', myThid)
43            CALL MNC_CW_ADD_VNAME('si_sigma12','Cor_xy_Hn__-__t',3,4,myThid)
44            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma12','units','N/m^2', myThid)
45            CALL MNC_CW_ADD_VATTR_TEXT('si_sigma12','description',
46         &       'shear of stress tensor', myThid)
47           ENDIF
48    #endif /* SEAICE_ALLOW_EVP */
49    
50          CALL MNC_CW_ADD_VNAME('si_UWIND','U_xy_Hn__-__t',3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_UWIND','U_xy_Hn__-__t',3,4,myThid)
51          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','units','m/s', myThid)
52          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','description',
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22