/[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.7 by jmc, Thu Jun 8 14:15:26 2006 UTC revision 1.9 by dfer, Tue Oct 7 20:20:18 2008 UTC
# Line 68  C     Blanke and Delecluse (1993, JPO) u Line 68  C     Blanke and Delecluse (1993, JPO) u
68  C     Blanke and Delecluse (1993, JPO) use  C     Blanke and Delecluse (1993, JPO) use
69        GGL90TKEsurfMin      = 1.0 _d -04        GGL90TKEsurfMin      = 1.0 _d -04
70        GGL90TKEbottom       = UNSET_RL        GGL90TKEbottom       = UNSET_RL
71        GGL90viscMax         = 1.0 _d 0        GGL90viscMax         = 1. _d 2
72        GGL90diffMax         = 1.0 _d 1        GGL90diffMax         = 1. _d 2
73        GGL90diffTKEh        = 0.0 _d 0        GGL90diffTKEh        = 0.0 _d 0
74        GGL90mixingLengthMin = 1.0 _d -08        GGL90mixingLengthMin = 1.0 _d -08
75        GGL90TKEFile         = ' '        GGL90TKEFile         = ' '
# Line 185  C--   print TKE vertical mixing paramete Line 185  C--   print TKE vertical mixing paramete
185       &     'GGL90mixingLengthMin =',       &     'GGL90mixingLengthMin =',
186       &     '   /* GGL90 minimum mixing length ( m ). */')       &     '   /* GGL90 minimum mixing length ( m ). */')
187        iL = MAX_LEN_MBUF - 22        iL = MAX_LEN_MBUF - 22
188        iL = MIN(iL,ILNBLNK(GGL90TKEFile))        iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) )
189        WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)        WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)
190        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
191       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22