/[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.3 by mlosch, Tue Jun 6 16:18:18 2006 UTC revision 1.5 by jmc, Wed Jun 7 16:34:24 2006 UTC
# Line 102  C      CALL MODELDATA_EXAMPLE( myThid ) Line 102  C      CALL MODELDATA_EXAMPLE( myThid )
102        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
103       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
104    
       _END_MASTER(myThid)  
   
 C--   Everyone else must wait for the parameters to be loaded  
       _BARRIER  
   
105  C Now set-up any remaining parameters that result from the input parameters  C Now set-up any remaining parameters that result from the input parameters
106        IF ( GGL90TKEbottom .EQ. UNSET_RL ) THEN        IF ( GGL90TKEbottom .EQ. UNSET_RL ) THEN
107         GGL90TKEbottom = GGL90TKEmin         GGL90TKEbottom = GGL90TKEmin
# Line 140  C Now set-up any remaining parameters th Line 135  C Now set-up any remaining parameters th
135         STOP 'ABNORMAL END: S/R GGL90_READPARMS'         STOP 'ABNORMAL END: S/R GGL90_READPARMS'
136        ENDIF        ENDIF
137    
138    #ifdef UNSAFE_INTERNAL_WRITE
139    C--   print TKE vertical mixing parameters to stdout for better debugging
140          WRITE(msgBuf,*) 'GGL90: GGL90dumpFreq        = ', GGL90dumpFreq
141          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
142         &                    SQUEEZE_RIGHT , 1)
143          WRITE(msgBuf,*) 'GGL90: GGL90taveFreq        = ', GGL90taveFreq
144          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
145         &                    SQUEEZE_RIGHT , 1)
146          WRITE(msgBuf,*) 'GGL90: GGL90mixingMaps      = ', GGL90mixingMaps
147          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
148         &                    SQUEEZE_RIGHT , 1)
149          WRITE(msgBuf,*) 'GGL90: GGL90writeState      = ', GGL90writeState
150          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
151         &                    SQUEEZE_RIGHT , 1)
152          WRITE(msgBuf,*) 'GGL90: GGL90ck              = ', GGL90ck
153          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
154         &                    SQUEEZE_RIGHT , 1)
155          WRITE(msgBuf,*) 'GGL90: GGL90ceps            = ', GGL90ceps
156          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
157         &                    SQUEEZE_RIGHT , 1)
158          WRITE(msgBuf,*) 'GGL90: GGL90alpha           = ', GGL90alpha
159          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
160         &                    SQUEEZE_RIGHT , 1)
161          WRITE(msgBuf,*) 'GGL90: GGL90m2              = ', GGL90m2
162          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
163         &                    SQUEEZE_RIGHT , 1)
164          WRITE(msgBuf,*) 'GGL90: GGL90TKEmin          = ', GGL90TKEmin
165          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
166         &                    SQUEEZE_RIGHT , 1)
167          WRITE(msgBuf,*) 'GGL90: GGL90TKEsurfMin      = ', GGL90TKEsurfMin
168          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169         &                    SQUEEZE_RIGHT , 1)
170          WRITE(msgBuf,*) 'GGL90: GGL90TKEbottom       = ', GGL90TKEbottom
171          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
172         &                    SQUEEZE_RIGHT , 1)
173          WRITE(msgBuf,*) 'GGL90: GGL90viscMax         = ', GGL90viscMax
174          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
175         &                    SQUEEZE_RIGHT , 1)
176          WRITE(msgBuf,*) 'GGL90: GGL90diffMax         = ', GGL90diffMax
177          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178         &                    SQUEEZE_RIGHT , 1)
179          WRITE(msgBuf,*) 'GGL90: GGL90diffTKEh        = ', GGL90diffTKEh
180          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
181         &                    SQUEEZE_RIGHT , 1)
182          WRITE(msgBuf,*) 'GGL90: GGL90mixingLengthMin = ',
183         &                                           GGL90mixingLengthMin
184          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
185         &                    SQUEEZE_RIGHT , 1)
186          WRITE(msgBuf,*) 'GGL90: GGL90TKEFile         = ', GGL90TKEFile
187          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
188         &                    SQUEEZE_RIGHT , 1)
189    #endif /* UNSAFE_INTERNAL_WRITE */
190    
191          _END_MASTER(myThid)
192    
193    C--   Everyone else must wait for the parameters to be loaded
194          _BARRIER
195    
196  #endif /* ALLOW_GGL90 */  #endif /* ALLOW_GGL90 */
197    
198        return        return
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22