/[MITgcm]/MITgcm/pkg/mypackage/mypackage_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_mnc_init.F

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

revision 1.1 by heimbach, Wed Jun 28 21:26:21 2006 UTC revision 1.2 by jmc, Sun Jan 27 20:52:11 2008 UTC
# Line 29  CEOP Line 29  CEOP
29    
30        IF (useMNC) THEN        IF (useMNC) THEN
31    
32          CALL MNC_CW_ADD_VNAME('mypaStatScal1',          CALL MNC_CW_ADD_VNAME('myPa_StatScal1',
33       &      'Cen_xy_Hn__L__t', 4,5,myThid)       &      'Cen_xy_Hn__L__t', 4,5,myThid)
34          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatScal1',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal1',
35       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
36          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatScal1','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal1','description',
37       &      'scalar state variable mypaStatScal1',myThid)       &      'scalar state variable myPa_StatScal1',myThid)
38    
39          CALL MNC_CW_ADD_VNAME('mypaStatScal2',          CALL MNC_CW_ADD_VNAME('myPa_StatScal2',
40       &      'Cen_xy_Hn__L__t', 4,5,myThid)       &      'Cen_xy_Hn__L__t', 4,5,myThid)
41          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatScal2',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal2',
42       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
43          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatScal2','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatScal2','description',
44       &      'scalar state variable mypaStatScal2',myThid)       &      'scalar state variable myPa_StatScal2',myThid)
45    
46          CALL MNC_CW_ADD_VNAME('mypaStatUvel',          CALL MNC_CW_ADD_VNAME('myPa_StatVelU',
47       &      'U_xy_Hn__C__t', 4,5,myThid)       &      'U_xy_Hn__C__t', 4,5,myThid)
48          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatUvel',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelU',
49       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
50          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatUvel','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelU','description',
51       &       'uVel-type state variable mypaStatUvel',myThid)       &       'uVel-type state variable myPa_StatVelU',myThid)
52    
53          CALL MNC_CW_ADD_VNAME('mypaStatVvel',          CALL MNC_CW_ADD_VNAME('myPa_StatVelV',
54       &      'V_xy_Hn__C__t', 4,5,myThid)       &      'V_xy_Hn__C__t', 4,5,myThid)
55          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatVvel',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelV',
56       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
57          CALL MNC_CW_ADD_VATTR_TEXT('mypaStatVvel','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_StatVelV','description',
58       &       'vVel-type state variable mypaStatVvel',myThid)       &       'vVel-type state variable myPa_StatVelV',myThid)
59    
60          CALL MNC_CW_ADD_VNAME('mypaSurf1',          CALL MNC_CW_ADD_VNAME('myPa_Surf1',
61       &      'Cen_xy_Hn__-__t', 3,4,myThid)       &      'Cen_xy_Hn__-__t', 3,4,myThid)
62          CALL MNC_CW_ADD_VATTR_TEXT('mypaSurf1',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf1',
63       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
64          CALL MNC_CW_ADD_VATTR_TEXT('mypaSurf1','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf1','description',
65       &       'Surface scalar field mypaSurf1',myThid)       &       'Surface scalar field myPa_Surf1',myThid)
66    
67          CALL MNC_CW_ADD_VNAME('mypaSurf2',          CALL MNC_CW_ADD_VNAME('myPa_Surf2',
68       &      'Cen_xy_Hn__-__t', 3,4,myThid)       &      'Cen_xy_Hn__-__t', 3,4,myThid)
69          CALL MNC_CW_ADD_VATTR_TEXT('mypaSurf2',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf2',
70       &      'units','[unit]', myThid)       &      'units','[unit]', myThid)
71          CALL MNC_CW_ADD_VATTR_TEXT('mypaSurf2','description',          CALL MNC_CW_ADD_VATTR_TEXT('myPa_Surf2','description',
72       &       'Surface scalar field mypaSurf2',myThid)       &       'Surface scalar field myPa_Surf2',myThid)
73    
74        ENDIF        ENDIF
75    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22