/[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.4 by mlosch, Tue Jun 6 19:47:36 2006 UTC revision 1.5 by jmc, Wed Jun 7 16:34:24 2006 UTC
# Line 135  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  C--   print TKE vertical mixing parameters to stdout for better debugging
140        WRITE(msgBuf,*) 'GGL90: GGL90dumpFreq        = ', GGL90dumpFreq        WRITE(msgBuf,*) 'GGL90: GGL90dumpFreq        = ', GGL90dumpFreq
141        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 185  C--   print TKE vertical mixing paramete Line 186  C--   print TKE vertical mixing paramete
186        WRITE(msgBuf,*) 'GGL90: GGL90TKEFile         = ', GGL90TKEFile        WRITE(msgBuf,*) 'GGL90: GGL90TKEFile         = ', GGL90TKEFile
187        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
188       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
189    #endif /* UNSAFE_INTERNAL_WRITE */
190    
191        _END_MASTER(myThid)        _END_MASTER(myThid)
192    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22