/[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.4 by edhill, Fri Aug 6 21:12:14 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 275  C     name           1234567890 Line 277  C     name           1234567890
277        CALL MNC_CW_ADD_VNAME('khmt', 'fizhi_chiplev', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('khmt', 'fizhi_chiplev', 3,4, myThid)
278        CALL MNC_CW_ADD_VNAME('tke', 'fizhi_chiplev', 3,4, myThid)        CALL MNC_CW_ADD_VNAME('tke', 'fizhi_chiplev', 3,4, myThid)
279    
280          ENDIF
281    
282  #endif  /*  ALLOW_MNC  */  #endif  /*  ALLOW_MNC  */
283                
284        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22