/[MITgcm]/MITgcm/pkg/ggl90/ggl90_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_readparms.F

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

revision 1.9 by dfer, Tue Oct 7 20:20:18 2008 UTC revision 1.10 by dfer, Fri Jan 30 02:23:56 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "GGL90_OPTIONS.h"  #include "GGL90_OPTIONS.h"
5    
6        SUBROUTINE GGL90_READPARMS( myThid )        SUBROUTINE GGL90_READPARMS( myThid )
# Line 40  C--   GGL90 vertical mixing parameters Line 41  C--   GGL90 vertical mixing parameters
41       &     GGL90mixingMaps, GGL90writeState,       &     GGL90mixingMaps, GGL90writeState,
42       &     GGL90ck, GGL90ceps, GGL90alpha, GGL90m2,       &     GGL90ck, GGL90ceps, GGL90alpha, GGL90m2,
43       &     GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom,       &     GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom,
44       &     GGL90mixingLengthMin, GGL90viscMax, GGL90diffMax,       &     GGL90mixingLengthMin, mxlMaxFlag,
45       &     GGL90TKEFile       &     GGL90viscMax, GGL90diffMax, GGL90TKEFile
46        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
47    
48        WRITE(msgBuf,'(A)') ' GGL90_READPARMS: opening data.ggl90'        WRITE(msgBuf,'(A)') ' GGL90_READPARMS: opening data.ggl90'
# Line 72  C     Blanke and Delecluse (1993, JPO) u Line 73  C     Blanke and Delecluse (1993, JPO) u
73        GGL90diffMax         = 1. _d 2        GGL90diffMax         = 1. _d 2
74        GGL90diffTKEh        = 0.0 _d 0        GGL90diffTKEh        = 0.0 _d 0
75        GGL90mixingLengthMin = 1.0 _d -08        GGL90mixingLengthMin = 1.0 _d -08
76          mxlMaxFlag           = 0
77        GGL90TKEFile         = ' '        GGL90TKEFile         = ' '
78    
79  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
# Line 184  C--   print TKE vertical mixing paramete Line 186  C--   print TKE vertical mixing paramete
186        CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE,        CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE,
187       &     'GGL90mixingLengthMin =',       &     'GGL90mixingLengthMin =',
188       &     '   /* GGL90 minimum mixing length ( m ). */')       &     '   /* GGL90 minimum mixing length ( m ). */')
189          CALL WRITE_0D_I(mxlMaxFlag, INDEX_NONE, 'mxlMaxFlag =',
190         &     '   /* Flag for limiting mixing-length method */')
191        iL = MAX_LEN_MBUF - 22        iL = MAX_LEN_MBUF - 22
192        iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) )        iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) )
193        WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)        WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22