/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_mnc_init.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_mnc_init.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by stephd, Wed Oct 9 17:14:37 2013 UTC
# Line 48  CEOP Line 48  CEOP
48        CALL MNC_CW_ADD_VATTR_TEXT('dic_SURO_ave','description',        CALL MNC_CW_ADD_VATTR_TEXT('dic_SURO_ave','description',
49       &     '', myThid)       &     '', myThid)
50    
51    #ifdef pH_3D
52          CALL MNC_CW_ADD_VNAME(
53         &     'dic_pH_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
54          CALL MNC_CW_ADD_VATTR_TEXT(
55         &     'dic_pH_ave','units','--', myThid)
56          CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
57         &     '', myThid)
58    
59          CALL MNC_CW_ADD_VNAME(
60         &     'dic_pCO2_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
61          CALL MNC_CW_ADD_VATTR_TEXT(
62         &     'dic_pCO2_ave','units','--', myThid)
63          CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
64         &     '', myThid)
65    #else
66        CALL MNC_CW_ADD_VNAME(        CALL MNC_CW_ADD_VNAME(
67       &     'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)       &     'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
68        CALL MNC_CW_ADD_VATTR_TEXT(        CALL MNC_CW_ADD_VATTR_TEXT(
# Line 61  CEOP Line 76  CEOP
76       &     'dic_pCO2_ave','units','--', myThid)       &     'dic_pCO2_ave','units','--', myThid)
77        CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',        CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
78       &     '', myThid)       &     '', myThid)
79    #endif
80    
81        ENDIF        ENDIF
82          RETURN          RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22