/[MITgcm]/MITgcm/pkg/kpp/kpp_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_readparms.F

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

revision 1.8 by dimitri, Tue Feb 18 05:33:55 2003 UTC revision 1.9 by edhill, Thu Oct 7 19:31:14 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3  #include "KPP_OPTIONS.h"  #include "KPP_OPTIONS.h"
4    
5    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
6    CBOP 0
7    C     !ROUTINE: KPP_READPARMS
8    
9    C     !INTERFACE:
10        SUBROUTINE KPP_READPARMS( myThid )        SUBROUTINE KPP_READPARMS( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE KPP_READPARMS                                 |  
 C     | o Routine to read in file data.kpp                       |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12  C     === Global variables ===  C     !DESCRIPTION:
13    C     Routine to read in file data.kpp
14    
15    C     !USES:
16          IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PARAMS.h"  #include "PARAMS.h"
20    #ifdef ALLOW_MNC
21    #include "MNC_PARAMS.h"
22    #endif
23  #include "GRID.h"  #include "GRID.h"
24  #include "KPP_PARAMS.h"  #include "KPP_PARAMS.h"
25    
26  C     === Routine arguments ===  C     !INPUT PARAMETERS:
 C     myThid -  Number of this instance of KPP_INIT  
27        INTEGER myThid        INTEGER myThid
28    CEOP
29    
30    C     !LOCAL VARIABLES:
31  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
   
 C     === Local variables ===  
32  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
33  C     errIO       - IO error flag  C     errIO       - IO error flag
34  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
# Line 152  C      CALL MODELDATA_EXAMPLE( myThid ) Line 158  C      CALL MODELDATA_EXAMPLE( myThid )
158    
159        _END_MASTER(myThid)        _END_MASTER(myThid)
160    
161    #ifdef ALLOW_MNC
162          IF (useMNC) THEN
163    C       Define grid types for KPP variables
164            CALL MNC_CW_ADD_VNAME('KPPviscAz', 'Cen_xy_Hn__C__t',
165         &       4,5, myThid)
166            CALL MNC_CW_ADD_VATTR_TEXT('KPPviscAz','units','m^2/s',
167         &       myThid)
168            CALL MNC_CW_ADD_VATTR_TEXT('KPPviscAz','long_name',
169         &       'KPP_vertical_eddy_viscosity_coefficient', myThid)
170            CALL MNC_CW_ADD_VATTR_TEXT('KPPviscAz',
171         &       'coordinates','XC YC RC iter', myThid)
172            
173            CALL MNC_CW_ADD_VNAME('KPPdiffKzS', 'Cen_xy_Hn__C__t',
174         &       4,5, myThid)
175            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzS','units','m^2/s',
176         &       myThid)
177            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzS','long_name',
178         &       'KPP_salt-tracer_vertical_diffusion_coefficient',
179         &       myThid)
180            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzS',
181         &       'coordinates','XC YC RC iter', myThid)
182            
183            CALL MNC_CW_ADD_VNAME('KPPdiffKzT', 'Cen_xy_Hn__C__t',
184         &       4,5, myThid)
185            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzT','units','m^2/s',
186         &       myThid)
187            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzT','long_name',
188         &       'KPP_vertical_heat_diffusion_coefficient', myThid)
189            CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzT',
190         &       'coordinates','XC YC RC iter', myThid)
191            
192            CALL MNC_CW_ADD_VNAME('KPPghat', 'Cen_xy_Hn__C__t',
193         &       4,5, myThid)
194            CALL MNC_CW_ADD_VATTR_TEXT('KPPghat','units','s/m^2',
195         &       myThid)
196            CALL MNC_CW_ADD_VATTR_TEXT('KPPghat','long_name',
197         &       'KPP_nonlocal_transport_coefficient', myThid)
198            CALL MNC_CW_ADD_VATTR_TEXT('KPPghat',
199         &       'coordinates','XC YC RC iter', myThid)
200            
201            CALL MNC_CW_ADD_VNAME('KPPhbl', 'Cen_xy_Hn__-__t',
202         &       3,4, myThid)
203            CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl','units','m',
204         &       myThid)
205            CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl','long_name',
206         &       'KPP_mixing_layer_depth', myThid)
207            CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl',
208         &       'coordinates','XC YC iter', myThid)
209            
210            CALL MNC_CW_ADD_VNAME('KPPfrac', 'Cen_xy_Hn__-__t',
211         &       3,4, myThid)
212            CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac','units','dimless',
213         &       myThid)
214            CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac','long_name',
215         &       'KPP_short-wave_fraction_penetrating_mixing_layer',
216         &       myThid)
217            CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac',
218         &       'coordinates','XC YC iter', myThid)
219          ENDIF
220    #endif /* ALLOW_MNC */
221    
222  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
223        _BARRIER        _BARRIER
224    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22