/[MITgcm]/MITgcm/pkg/fizhi/fizhi_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_mnc_init.F

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

revision 1.3 by edhill, Thu Jul 22 15:56:01 2004 UTC revision 1.5 by edhill, Thu Sep 23 03:28:42 2004 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "fizhi_SIZE.h"  #include "fizhi_SIZE.h"
21  #include "fizhi_land_SIZE.h"  #include "fizhi_land_SIZE.h"
22    #ifdef ALLOW_MNC
23    #include "MNC_PARAMS.h"
24    #endif
25    
26  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
27        integer myThid        integer myThid
# Line 60  C     ......12345....12345....12345....1 Line 63  C     ......12345....12345....12345....1
63        data time_dat /        data time_dat /
64       &     '-    ', 't    ', '     ', '     ', '     '  /       &     '-    ', 't    ', '     ', '     ', '     '  /
65    
66          IF (useMNC) THEN
67    
68  C     Define a few "standard" or "convenience" types  C     Define a few "standard" or "convenience" types
69        ncomb = 0        ncomb = 0
70        DO ihorz = 1,5        DO ihorz = 1,5
# Line 228  C     name           1234567890 Line 233  C     name           1234567890
233        CALL MNC_CW_ADD_VNAME('surftype', 'fizhi_veg', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('surftype', 'fizhi_veg', 4,5, myThid)
234        CALL MNC_CW_ADD_VNAME('tilefrac', 'fizhi_veg', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('tilefrac', 'fizhi_veg', 4,5, myThid)
235                
236    C     Used for the pickups
237          CALL MNC_CW_ADD_VNAME('uphy', 'U_xy_Hn__Zph__-'  ,4,5,myThid)
238          CALL MNC_CW_ADD_VNAME('vphy', 'V_xy_Hn__Zph__-'  ,4,5,myThid)
239          CALL MNC_CW_ADD_VNAME('thphy','Cen_xy_Hn__Zph__-',4,5,myThid)
240          CALL MNC_CW_ADD_VNAME('sphy', 'Cen_xy_Hn__Zph__-',4,5,myThid)
241    
242    C     For the veg IO
243    C     name           1234567890
244          ndim = 1
245          dn(1)(1:10) = 'chips     '
246          dim(1)      = nchp
247          ib(1)       = 1
248          ie(1)       = nchp
249          CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid)
250          CALL MNC_CW_ADD_VNAME('ctmt', 'fizhi_chip', 2,3, myThid)
251          CALL MNC_CW_ADD_VNAME('xxmt', 'fizhi_chip', 2,3, myThid)
252          CALL MNC_CW_ADD_VNAME('yymt', 'fizhi_chip', 2,3, myThid)
253          CALL MNC_CW_ADD_VNAME('zetamt', 'fizhi_chip', 2,3, myThid)
254          CALL MNC_CW_ADD_VNAME('tcanopy', 'fizhi_chip', 2,3, myThid)
255          CALL MNC_CW_ADD_VNAME('tdeep', 'fizhi_chip', 2,3, myThid)
256          CALL MNC_CW_ADD_VNAME('ecanopy', 'fizhi_chip', 2,3, myThid)
257          CALL MNC_CW_ADD_VNAME('swetshal', 'fizhi_chip', 2,3, myThid)
258          CALL MNC_CW_ADD_VNAME('swetroot', 'fizhi_chip', 2,3, myThid)
259          CALL MNC_CW_ADD_VNAME('swetdeep', 'fizhi_chip', 2,3, myThid)
260          CALL MNC_CW_ADD_VNAME('snodep', 'fizhi_chip', 2,3, myThid)
261          CALL MNC_CW_ADD_VNAME('capac', 'fizhi_chip', 2,3, myThid)
262          CALL MNC_CW_ADD_VNAME('chlt', 'fizhi_chip', 2,3, myThid)
263          CALL MNC_CW_ADD_VNAME('chlon', 'fizhi_chip', 2,3, myThid)
264          CALL MNC_CW_ADD_VNAME('igrd', 'fizhi_chip', 2,3, myThid)
265          CALL MNC_CW_ADD_VNAME('ityp', 'fizhi_chip', 2,3, myThid)
266          CALL MNC_CW_ADD_VNAME('chfr', 'fizhi_chip', 2,3, myThid)
267    
268    C     name           1234567890
269          ndim = 2
270          dn(1)(1:10) = 'chips     '
271          dim(1)      = nchp
272          ib(1)       = 1
273          ie(1)       = nchp
274          dn(2)(1:10) = 'Zph       '
275          dim(2)      = NrPhys
276          ib(2)       = 1
277          ie(2)       = NrPhys
278          CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid)
279          CALL MNC_CW_ADD_VNAME('xlmt', 'fizhi_chiplev', 3,4, myThid)
280          CALL MNC_CW_ADD_VNAME('khmt', 'fizhi_chiplev', 3,4, myThid)
281          CALL MNC_CW_ADD_VNAME('tke', 'fizhi_chiplev', 3,4, myThid)
282    
283          ENDIF
284    
285  #endif  /*  ALLOW_MNC  */  #endif  /*  ALLOW_MNC  */
286                
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22