/[MITgcm]/MITgcm/pkg/ocn_compon_interf/cpl_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/cpl_init_fixed.F

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

revision 1.1 by edhill, Wed Oct 27 23:19:42 2004 UTC revision 1.2 by jscott, Thu May 10 21:15:52 2007 UTC
# Line 92  CEOP Line 92  CEOP
92       &       'ocean surface velocity square', myThid)       &       'ocean surface velocity square', myThid)
93          CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','units','m^2/s^2',myThid)          CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','units','m^2/s^2',myThid)
94    
95            CALL MNC_CW_ADD_VNAME('aCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
96            CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','long_name',
97         &       'atm CO2 level', myThid)
98            CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','units','parts',myThid)
99    
100            CALL MNC_CW_ADD_VNAME('sWSpdtave','Cen_xy_Hn__-__t',3,4,myThid)
101            CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','long_name',
102         &       'surface wind speed', myThid)
103            CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','units','m/s',myThid)
104    
105            CALL MNC_CW_ADD_VNAME('iceftave','Cen_xy_Hn__-__t',3,4,myThid)
106            CALL MNC_CW_ADD_VATTR_TEXT('iceftave','long_name',
107         &       'ocean seaice fraction', myThid)
108            CALL MNC_CW_ADD_VATTR_TEXT('iceftave','units','non-dim',myThid)
109    
110            CALL MNC_CW_ADD_VNAME('fCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
111            CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','long_name',
112         &       'ocean CO2 flux -> atm', myThid)
113            CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid)
114    
115    
116        ENDIF        ENDIF
117  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
118    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22