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

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

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

revision 1.3 by enderton, Wed Jul 6 17:15:34 2005 UTC revision 1.4 by edhill, Sun Sep 11 04:35:31 2005 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "PARAMS.h"  #include "PARAMS.h"
22  #include "AIM_PARAMS.h"  #include "AIM_PARAMS.h"
23    #ifdef ALLOW_MNC
24    #include "MNC_SIZE.h"
25    #include "MNC_PARAMS.h"
26    #endif
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29        INTEGER myThid        INTEGER myThid
# Line 29  C     == Local variables == Line 33  C     == Local variables ==
33        CHARACTER*55 ln_var        CHARACTER*55 ln_var
34    
35  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
36          integer i,j, ndim
37          integer CW_MAX_LOC
38          parameter ( CW_MAX_LOC = 6 )
39          character*(MNC_MAX_CHAR) dn(CW_MAX_LOC)
40          integer dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)
41    
42                
43        CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)
44        ln_var='u-stress'        ln_var='u-stress'
# Line 135  C     == Local variables == Line 145  C     == Local variables ==
145        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name',ln_var,myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name',ln_var,myThid)
146        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction',myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction',myThid)
147    
148    C     Non-halo-ed variables
149          DO i = 1,CW_MAX_LOC
150            DO j = 1,MNC_MAX_CHAR
151              dn(i)(j:j) = ' '
152            ENDDO
153            dim(i) = 0
154            ib(i) = 0
155            ie(i) = 0
156          ENDDO
157    
158          ndim = 1
159          dn(ndim)(1:1) = 'X'
160          dim(ndim) = sNx
161          ib(ndim)  = 1
162          ie(ndim)  = sNx
163          ndim = ndim + 1
164          dn(ndim)(1:1) = 'Y'
165          dim(ndim) = sNy
166          ib(ndim)  = 1
167          ie(ndim)  = sNy
168          ndim = ndim + 1
169          dn(ndim)(1:1) = 'T'
170          dim(ndim) = -1
171          ib(ndim)  = 1
172          ie(ndim)  = 1
173          CALL MNC_CW_ADD_GNAME('AIM_xyt',  ndim, dim,dn,ib,ie, myThid)
174          ndim = 3
175          dn(ndim)(1:4) = 'Zaim'
176          dim(ndim) = NLEV
177          ib(ndim)  = 1
178          ie(ndim)  = NLEV
179          ndim = ndim + 1
180          dn(ndim)(1:1) = 'T'
181          dim(ndim) = -1
182          ib(ndim)  = 1
183          ie(ndim)  = 1
184          CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid)
185    
186    
187          CALL MNC_CW_ADD_VNAME('aim_DRAG0','AIM_xyt',0,0,myThid)
188          CALL MNC_CW_ADD_VATTR_TEXT('aim_DRAG0','units','---',myThid)
189    
190          CALL MNC_CW_ADD_VNAME('aim_SPEED0','AIM_xyt',0,0,myThid)
191          CALL MNC_CW_ADD_VATTR_TEXT('aim_SPEED0','units','---',myThid)
192    
193          CALL MNC_CW_ADD_VNAME('aim_TSR','AIM_xyt',0,0,myThid)
194          CALL MNC_CW_ADD_VATTR_TEXT('aim_TSR','units','---',myThid)
195    
196          CALL MNC_CW_ADD_VNAME('aim_OLR','AIM_xyt',0,0,myThid)
197          CALL MNC_CW_ADD_VATTR_TEXT('aim_OLR','units','---',myThid)
198    
199          CALL MNC_CW_ADD_VNAME('aim_SSR0','AIM_xyt',0,0,myThid)
200          CALL MNC_CW_ADD_VATTR_TEXT('aim_SSR0','units','---',myThid)
201    
202          CALL MNC_CW_ADD_VNAME('aim_SLR0','AIM_xyt',0,0,myThid)
203          CALL MNC_CW_ADD_VATTR_TEXT('aim_SLR0','units','---',myThid)
204    
205          CALL MNC_CW_ADD_VNAME('aim_SHF0','AIM_xyt',0,0,myThid)
206          CALL MNC_CW_ADD_VATTR_TEXT('aim_SHF0','units','---',myThid)
207    
208          CALL MNC_CW_ADD_VNAME('aim_EVAP0','AIM_xyt',0,0,myThid)
209          CALL MNC_CW_ADD_VATTR_TEXT('aim_EVAP0','units','---',myThid)
210    
211          CALL MNC_CW_ADD_VNAME('aim_PRECNV','AIM_xyt',0,0,myThid)
212          CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECNV','units','---',myThid)
213    
214          CALL MNC_CW_ADD_VNAME('aim_PRECLS','AIM_xyt',0,0,myThid)
215          CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECLS','units','---',myThid)
216    
217          CALL MNC_CW_ADD_VNAME('aim_CLOUDC','AIM_xyt',0,0,myThid)
218          CALL MNC_CW_ADD_VATTR_TEXT('aim_CLOUDC','units','---',myThid)
219    
220          CALL MNC_CW_ADD_VNAME('aim_CLTOP','AIM_xyt',0,0,myThid)
221          CALL MNC_CW_ADD_VATTR_TEXT('aim_CLTOP','units','---',myThid)
222    
223          CALL MNC_CW_ADD_VNAME('aim_CBMF','AIM_xyt',0,0,myThid)
224          CALL MNC_CW_ADD_VATTR_TEXT('aim_CBMF','units','---',myThid)
225    
226          CALL MNC_CW_ADD_VNAME('aim_T0','AIM_xyt',0,0,myThid)
227          CALL MNC_CW_ADD_VATTR_TEXT('aim_T0','units','---',myThid)
228    
229          CALL MNC_CW_ADD_VNAME('aim_Q0','AIM_xyt',0,0,myThid)
230          CALL MNC_CW_ADD_VATTR_TEXT('aim_Q0','units','---',myThid)
231    
232          CALL MNC_CW_ADD_VNAME('aim_EnPrec','AIM_xyt',0,0,myThid)
233          CALL MNC_CW_ADD_VATTR_TEXT('aim_EnPrec','units','J/g',myThid)
234    
235          CALL MNC_CW_ADD_VNAME('aim_alb10','AIM_xyt',0,0,myThid)
236          CALL MNC_CW_ADD_VATTR_TEXT('aim_alb10','units','---',myThid)
237    
238          CALL MNC_CW_ADD_VNAME('aim_dTsurf1','AIM_xyt',0,0,myThid)
239          CALL MNC_CW_ADD_VATTR_TEXT('aim_dTsurf1','units','---',myThid)
240    
241          CALL MNC_CW_ADD_VNAME('aim_TSWclr','AIM_xyt',0,0,myThid)
242          CALL MNC_CW_ADD_VATTR_TEXT('aim_TSWclr','units','---',myThid)
243    
244          CALL MNC_CW_ADD_VNAME('aim_OLWclr','AIM_xyt',0,0,myThid)
245          CALL MNC_CW_ADD_VATTR_TEXT('aim_OLWclr','units','---',myThid)
246    
247          CALL MNC_CW_ADD_VNAME('aim_SSWclr','AIM_xyt',0,0,myThid)
248          CALL MNC_CW_ADD_VATTR_TEXT('aim_SSWclr','units','---',myThid)
249    
250          CALL MNC_CW_ADD_VNAME('aim_SLWclr','AIM_xyt',0,0,myThid)
251          CALL MNC_CW_ADD_VATTR_TEXT('aim_SLWclr','units','---',myThid)
252    
253    
254    
255  #endif  #endif
256    
257  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22