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

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

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

revision 1.15 by molod, Fri Jul 23 22:32:28 2004 UTC revision 1.16 by edhill, Thu Sep 23 03:28:42 2004 UTC
# Line 53  C                100:  OCEAN Line 53  C                100:  OCEAN
53  C***********************************************************************  C***********************************************************************
54        implicit none        implicit none
55  #include "EEPARAMS.h"  #include "EEPARAMS.h"
56    #ifdef ALLOW_MNC
57    #include "MNC_PARAMS.h"
58    #endif
59    
60        integer mythid,im,jm,maxtyp,nchp,nchptot,nchpland,Nsx,Nsy,Nxg,Nyg        integer mythid,im,jm,maxtyp,nchp,nchptot,nchpland,Nsx,Nsy,Nxg,Nyg
61        integer surftype(im,jm,maxtyp,Nsx,Nsy)        integer surftype(im,jm,maxtyp,Nsx,Nsy)
# Line 133  C     Allow for MDSIO format if someday Line 136  C     Allow for MDSIO format if someday
136  #endif  #endif
137    
138  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
139        _BEGIN_MASTER( myThid )        IF (useMNC) THEN
140            _BEGIN_MASTER( myThid )
141                
142        do i = 1,MAX_LEN_FNAM          do i = 1,MAX_LEN_FNAM
143          fizhi_veg_bn(i:i) = ' '            fizhi_veg_bn(i:i) = ' '
144        enddo          enddo
145                
146  C     The following base name should be handled by some sort of input  C       The following base name should be handled by some sort of input
147  C     name parameter in FIZHI_READPARMS() plus a possible size.  C       name parameter in FIZHI_READPARMS() plus a possible size.
148                
149  C     Set the base name     1234567890  C       Set the base name     1234567890
150        fizhi_veg_bn(1:10) = 'fizhi_veg '          fizhi_veg_bn(1:10) = 'fizhi_veg '
151                
152        CALL MNC_CW_I_R('I', fizhi_veg_bn, 0,0,          CALL MNC_CW_I_R('I', fizhi_veg_bn, 0,0,
153       &     'surftype',surftype,myThid)       &       'surftype',surftype,myThid)
154        CALL MNC_CW_RL_R('R', fizhi_veg_bn, 0,0,          CALL MNC_CW_RL_R('R', fizhi_veg_bn, 0,0,
155       &     'tilefrac', tilefrac, myThid)       &       'tilefrac', tilefrac, myThid)
156                
157        _END_MASTER( myThid )          _END_MASTER( myThid )
158          ENDIF
159  #endif  #endif
160    
161  c     create chip arrays for :  c     create chip arrays for :
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22