/[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.9 by mlosch, Fri May 23 07:22:29 2008 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    #include "EEPARAMS.h"
23    #include "PARAMS.h"
24    #ifdef ALLOW_MNC
25    #include "MNC_PARAMS.h"
26    #include "MNC_COMMON.h"
27    #endif
28    
29  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
30        integer myThid        integer myThid
   
 C     !USES:  
 #ifdef ALLOW_MNC  
 #include "mnc_common.h"  
 #endif  /*  ALLOW_MNC  */  
 #include "EEPARAMS.h"  
31  CEOP  CEOP
32    
33  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 60  C     ......12345....12345....12345....1 Line 60  C     ......12345....12345....12345....1
60        data time_dat /        data time_dat /
61       &     '-    ', 't    ', '     ', '     ', '     '  /       &     '-    ', 't    ', '     ', '     ', '     '  /
62    
63          IF (useMNC) THEN
64    
65  C     Define a few "standard" or "convenience" types  C     Define a few "standard" or "convenience" types
66        ncomb = 0        ncomb = 0
67        DO ihorz = 1,5        DO ihorz = 1,5
# Line 78  C           Loop just ONCE if the Horiz Line 80  C           Loop just ONCE if the Horiz
80                ENDIF                ENDIF
81              ENDIF              ENDIF
82                            
83              DO ivert = 1,5              DO ivert = 1,2
84                DO itime = 1,2                DO itime = 1,2
85                                    
86  C               horiz and hsub  C               horiz and hsub
# Line 228  C     name           1234567890 Line 230  C     name           1234567890
230        CALL MNC_CW_ADD_VNAME('surftype', 'fizhi_veg', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('surftype', 'fizhi_veg', 4,5, myThid)
231        CALL MNC_CW_ADD_VNAME('tilefrac', 'fizhi_veg', 4,5, myThid)        CALL MNC_CW_ADD_VNAME('tilefrac', 'fizhi_veg', 4,5, myThid)
232                
233    C     Used for the pickups
234          CALL MNC_CW_ADD_VNAME('uphy', 'U_xy_Hn__Zph__-'  ,4,5,myThid)
235          CALL MNC_CW_ADD_VNAME('vphy', 'V_xy_Hn__Zph__-'  ,4,5,myThid)
236          CALL MNC_CW_ADD_VNAME('thphy','Cen_xy_Hn__Zph__-',4,5,myThid)
237          CALL MNC_CW_ADD_VNAME('sphy', 'Cen_xy_Hn__Zph__-',4,5,myThid)
238    
239    C     For the veg IO
240    C     name           1234567890
241          ndim = 1
242          dn(1)(1:10) = 'chips     '
243          dim(1)      = nchp
244          ib(1)       = 1
245          ie(1)       = nchp
246          CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid)
247          CALL MNC_CW_ADD_VNAME('ctmt', 'fizhi_chip', 2,3, myThid)
248          CALL MNC_CW_ADD_VNAME('xxmt', 'fizhi_chip', 2,3, myThid)
249          CALL MNC_CW_ADD_VNAME('yymt', 'fizhi_chip', 2,3, myThid)
250          CALL MNC_CW_ADD_VNAME('zetamt', 'fizhi_chip', 2,3, myThid)
251          CALL MNC_CW_ADD_VNAME('tcanopy', 'fizhi_chip', 2,3, myThid)
252          CALL MNC_CW_ADD_VNAME('tdeep', 'fizhi_chip', 2,3, myThid)
253          CALL MNC_CW_ADD_VNAME('ecanopy', 'fizhi_chip', 2,3, myThid)
254          CALL MNC_CW_ADD_VNAME('swetshal', 'fizhi_chip', 2,3, myThid)
255          CALL MNC_CW_ADD_VNAME('swetroot', 'fizhi_chip', 2,3, myThid)
256          CALL MNC_CW_ADD_VNAME('swetdeep', 'fizhi_chip', 2,3, myThid)
257          CALL MNC_CW_ADD_VNAME('snodep', 'fizhi_chip', 2,3, myThid)
258          CALL MNC_CW_ADD_VNAME('capac', 'fizhi_chip', 2,3, myThid)
259          CALL MNC_CW_ADD_VNAME('chlt', 'fizhi_chip', 2,3, myThid)
260          CALL MNC_CW_ADD_VNAME('chlon', 'fizhi_chip', 2,3, myThid)
261          CALL MNC_CW_ADD_VNAME('igrd', 'fizhi_chip', 2,3, myThid)
262          CALL MNC_CW_ADD_VNAME('ityp', 'fizhi_chip', 2,3, myThid)
263          CALL MNC_CW_ADD_VNAME('chfr', 'fizhi_chip', 2,3, myThid)
264    
265    C     name           1234567890
266          ndim = 2
267          dn(1)(1:10) = 'chips     '
268          dim(1)      = nchp
269          ib(1)       = 1
270          ie(1)       = nchp
271          dn(2)(1:10) = 'Zph       '
272          dim(2)      = NrPhys
273          ib(2)       = 1
274          ie(2)       = NrPhys
275          CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid)
276          CALL MNC_CW_ADD_VNAME('xlmt', 'fizhi_chiplev', 3,4, myThid)
277          CALL MNC_CW_ADD_VNAME('khmt', 'fizhi_chiplev', 3,4, myThid)
278          CALL MNC_CW_ADD_VNAME('tke', 'fizhi_chiplev', 3,4, myThid)
279    
280          ENDIF
281    
282  #endif  /*  ALLOW_MNC  */  #endif  /*  ALLOW_MNC  */
283                
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22