/[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.14 by heimbach, Sun Oct 22 00:19:46 2006 UTC revision 1.15 by heimbach, Mon Oct 23 16:28:35 2006 UTC
# Line 161  C      CALL MODELDATA_EXAMPLE( myThid ) Line 161  C      CALL MODELDATA_EXAMPLE( myThid )
161        _END_MASTER(myThid)        _END_MASTER(myThid)
162    
163  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
164        IF (useMNC .AND. .NOT.useDiagnostics) THEN        IF (useMNC) THEN
165  C       Define grid types for KPP variables  C       Define grid types for KPP variables
166          CALL MNC_CW_ADD_VNAME('KPPviscAz', 'Cen_xy_Hn__C__t',          CALL MNC_CW_ADD_VNAME('KPPviscAz', 'Cen_xy_Hn__C__t',
167       &       4,5, myThid)       &       4,5, myThid)
# Line 191  C       Define grid types for KPP variab Line 191  C       Define grid types for KPP variab
191          CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzT',          CALL MNC_CW_ADD_VATTR_TEXT('KPPdiffKzT',
192       &       'coordinates','XC YC RC iter', myThid)       &       'coordinates','XC YC RC iter', myThid)
193                    
194          CALL MNC_CW_ADD_VNAME('KPPghat', 'Cen_xy_Hn__C__t',          CALL MNC_CW_ADD_VNAME('KPPGHAT', 'Cen_xy_Hn__C__t',
195       &       4,5, myThid)       &       4,5, myThid)
196          CALL MNC_CW_ADD_VATTR_TEXT('KPPghat','units','s/m^2',          CALL MNC_CW_ADD_VATTR_TEXT('KPPGHAT','units','s/m^2',
197       &       myThid)       &       myThid)
198          CALL MNC_CW_ADD_VATTR_TEXT('KPPghat','long_name',          CALL MNC_CW_ADD_VATTR_TEXT('KPPGHAT','long_name',
199       &       'KPP_nonlocal_transport_coefficient', myThid)       &       'KPP_nonlocal_transport_coefficient', myThid)
200          CALL MNC_CW_ADD_VATTR_TEXT('KPPghat',          CALL MNC_CW_ADD_VATTR_TEXT('KPPGHAT',
201       &       'coordinates','XC YC RC iter', myThid)       &       'coordinates','XC YC RC iter', myThid)
202                    
203          CALL MNC_CW_ADD_VNAME('KPPhbl', 'Cen_xy_Hn__-__t',          CALL MNC_CW_ADD_VNAME('KPPHBL', 'Cen_xy_Hn__-__t',
204       &       3,4, myThid)       &       3,4, myThid)
205          CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl','units','m',          CALL MNC_CW_ADD_VATTR_TEXT('KPPHBL','units','m',
206       &       myThid)       &       myThid)
207          CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl','long_name',          CALL MNC_CW_ADD_VATTR_TEXT('KPPHBL','long_name',
208       &       'KPP_boundary_layer_depth', myThid)       &       'KPP_boundary_layer_depth', myThid)
209          CALL MNC_CW_ADD_VATTR_TEXT('KPPhbl',          CALL MNC_CW_ADD_VATTR_TEXT('KPPHBL',
210       &       'coordinates','XC YC iter', myThid)       &       'coordinates','XC YC iter', myThid)
211                    
212          CALL MNC_CW_ADD_VNAME('KPPfrac', 'Cen_xy_Hn__-__t',          CALL MNC_CW_ADD_VNAME('KPPMLD', 'Cen_xy_Hn__-__t',
213       &       3,4, myThid)       &       3,4, myThid)
214          CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac','units','dimless',          CALL MNC_CW_ADD_VATTR_TEXT('KPPMLD','units','m',
215       &       myThid)       &       myThid)
216          CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac','long_name',          CALL MNC_CW_ADD_VATTR_TEXT('KPPMLD','long_name',
217         &       'KPP_mixed_layer_depth', myThid)
218            CALL MNC_CW_ADD_VATTR_TEXT('KPPMLD',
219         &       'coordinates','XC YC iter', myThid)
220            
221            CALL MNC_CW_ADD_VNAME('KPPFRAC', 'Cen_xy_Hn__-__t',
222         &       3,4, myThid)
223            CALL MNC_CW_ADD_VATTR_TEXT('KPPFRAC','units','dimless',
224         &       myThid)
225            CALL MNC_CW_ADD_VATTR_TEXT('KPPFRAC','long_name',
226       &       'KPP_short-wave_fraction_penetrating_mixing_layer',       &       'KPP_short-wave_fraction_penetrating_mixing_layer',
227       &       myThid)       &       myThid)
228          CALL MNC_CW_ADD_VATTR_TEXT('KPPfrac',          CALL MNC_CW_ADD_VATTR_TEXT('KPPFRAC',
229       &       'coordinates','XC YC iter', myThid)       &       'coordinates','XC YC iter', myThid)
230        ENDIF        ENDIF
231  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22