/[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.3 by dfer, Tue Nov 6 17:33:47 2007 UTC revision 1.4 by jmc, Wed Nov 27 21:08:54 2013 UTC
# Line 13  C     !INTERFACE: Line 13  C     !INTERFACE:
13    
14  C     !DESCRIPTION:  C     !DESCRIPTION:
15  C     Define MNC variables for use by the coupler.  C     Define MNC variables for use by the coupler.
16          
17  C     !USES:  C     !USES:
18        IMPLICIT NONE        IMPLICIT NONE
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "PARAMS.h"  #include "PARAMS.h"
 #include "DYNVARS.h"  
 #include "GRID.h"  
22    
23  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
24        INTEGER myThid        INTEGER myThid
# Line 60  CEOP Line 58  CEOP
58          CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note',          CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note',
59       &       'equals E-P-R', myThid)       &       'equals E-P-R', myThid)
60          CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid)
61            
62          CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid)          CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid)
63          CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name',          CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name',
64       &       'salt flux from sea-ice', myThid)       &       'salt flux from sea-ice', myThid)
65          CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s',          CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s',
66       &       myThid)       &       myThid)
67    
68          CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid)          CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid)
# Line 112  CEOP Line 110  CEOP
110       &       'ocean CO2 flux -> atm', myThid)       &       'ocean CO2 flux -> atm', myThid)
111          CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid)          CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid)
112    
   
113        ENDIF        ENDIF
114  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
115    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22