/[MITgcm]/MITgcm/pkg/aim_v23/aim_mnc_init.F
ViewVC logotype

Contents of /MITgcm/pkg/aim_v23/aim_mnc_init.F

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

Revision 1.1 - (show annotations) (download)
Thu Jun 23 20:02:50 2005 UTC (19 years ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57k_post, checkpoint57j_post 
 o mnc-ify aim_v23 as requested by Daniel Enderton
   - sets sane default flags (unchanged behavior)
   - does not break aim.5l_cs or aim.5l_LatLon verification tests
1 C $Header: $
2 C $Name: $
3
4 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
5
6 #include "AIM_OPTIONS.h"
7
8 CBOP
9 C !ROUTINE: AIM_MNC_INIT
10
11 C !INTERFACE:
12 SUBROUTINE AIM_MNC_INIT( myThid )
13
14 C !DESCRIPTION:
15 C Initialize MNC variables for AIM.
16
17 C !USES:
18 IMPLICIT NONE
19 #include "AIM_SIZE.h"
20 #include "EEPARAMS.h"
21 #include "PARAMS.h"
22 #include "AIM_PARAMS.h"
23
24 C !INPUT/OUTPUT PARAMETERS:
25 INTEGER myThid
26 CEOP
27
28 #ifdef ALLOW_MNC
29
30 CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)
31 CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','---', myThid)
32
33 CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)
34 CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','---', myThid)
35
36 CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
37 CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','---', myThid)
38
39 CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
40 CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','---', myThid)
41
42 CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
43 CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','---', myThid)
44
45 CALL MNC_CW_ADD_VNAME('STRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
46 CALL MNC_CW_ADD_VATTR_TEXT('STRtave','units','---', myThid)
47
48 CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
49 CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','---', myThid)
50
51 CALL MNC_CW_ADD_VNAME('SHFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
52 CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','---', myThid)
53
54 CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)
55 CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','---', myThid)
56
57 CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)
58 CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','---', myThid)
59
60 CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)
61 CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','---', myThid)
62
63 CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
64 CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid)
65
66 CALL MNC_CW_ADD_VNAME('CBMFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
67 CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---', myThid)
68
69 CALL MNC_CW_ADD_VNAME('DRAGtave', 'Cen_xy_Hn__-__t',3,4,myThid)
70 CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid)
71
72 CALL MNC_CW_ADD_VNAME('aimV0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
73 CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---', myThid)
74
75 CALL MNC_CW_ADD_VNAME('aimT0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
76 CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','---', myThid)
77
78 CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
79 CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','---', myThid)
80
81 CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)
82 CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','---', myThid)
83
84 CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)
85 CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','---', myThid)
86
87 CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)
88 CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','---', myThid)
89
90 CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)
91 CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','---', myThid)
92
93 #endif
94
95 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
96
97 RETURN
98 END
  ViewVC Help
Powered by ViewVC 1.1.22