/[MITgcm]/MITgcm/model/src/modeldata_example.F
ViewVC logotype

Diff of /MITgcm/model/src/modeldata_example.F

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

revision 1.2 by cnh, Fri Apr 24 02:05:42 1998 UTC revision 1.3 by cnh, Mon May 25 20:05:55 1998 UTC
# Line 97  C     -- Local variables -- Line 97  C     -- Local variables --
97        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
98        WRITE(msgBuf,'(A)') '>#                  self transport.         '        WRITE(msgBuf,'(A)') '>#                  self transport.         '
99        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
100          WRITE(msgBuf,'(A)') '>#   momPressureForcing - On/Off flag for momentum'
101          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
102          WRITE(msgBuf,'(A)') '>#                        pressure terms.         '
103          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
104        WRITE(msgBuf,'(A)') '>#   useCoriolis  - On/Off flag for momentum'        WRITE(msgBuf,'(A)') '>#   useCoriolis  - On/Off flag for momentum'
105        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
106        WRITE(msgBuf,'(A)') '>#                  equation coriolis term. '        WRITE(msgBuf,'(A)') '>#                  equation coriolis term. '
# Line 162  C     -- Local variables -- Line 166  C     -- Local variables --
166        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
167        WRITE(msgBuf,'(A)') '> momAdvection=.TRUE.'        WRITE(msgBuf,'(A)') '> momAdvection=.TRUE.'
168        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
169          WRITE(msgBuf,'(A)') '> momPressureForcing=.TRUE.'
170          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
171        WRITE(msgBuf,'(A)') '> momForcing=.TRUE.'        WRITE(msgBuf,'(A)') '> momForcing=.TRUE.'
172        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
173        WRITE(msgBuf,'(A)') '> useCoriolis=.TRUE.'        WRITE(msgBuf,'(A)') '> useCoriolis=.TRUE.'
# Line 182  C     -- Local variables -- Line 188  C     -- Local variables --
188        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
189        WRITE(msgBuf,'(A)') '> sRef=35.,'        WRITE(msgBuf,'(A)') '> sRef=35.,'
190        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
191          WRITE(msgBuf,'(A)') '> implicitFreeSurface=.TRUE.,'
192          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
193          WRITE(msgBuf,'(A)') '> rigidLid=.FALSE.,'
194          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
195          WRITE(msgBuf,'(A)') '> GMmaxSlope=1.d-2,'
196          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
197          WRITE(msgBuf,'(A)') '> GMlength=200.d3,'
198          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
199          WRITE(msgBuf,'(A)') '> GMalpha=200.d3,'
200          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
201          WRITE(msgBuf,'(A)') '> GMdepth=1000.,'
202          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
203          WRITE(msgBuf,'(A)') '> GMkBackground=0.,'
204          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
205        WRITE(msgBuf,'(A)') '>/                     '        WRITE(msgBuf,'(A)') '>/                     '
206        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
207    
# Line 234  C     -- Local variables -- Line 254  C     -- Local variables --
254        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
255        WRITE(msgBuf,'(A)') '>#   endTime - Integration ending time (s)'        WRITE(msgBuf,'(A)') '>#   endTime - Integration ending time (s)'
256        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
257          WRITE(msgBuf,'(A)') '>#   cAdjFreq - Convective adjustment period (s)'
258          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
259        WRITE(msgBuf,'(A)') '>#   chkPtFreq - Frequency at which check  '        WRITE(msgBuf,'(A)') '>#   chkPtFreq - Frequency at which check  '
260        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
261        WRITE(msgBuf,'(A)') '>#               pointing is done ( s ).   '        WRITE(msgBuf,'(A)') '>#               pointing is done ( s ).   '
# Line 264  C     -- Local variables -- Line 286  C     -- Local variables --
286        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
287        WRITE(msgBuf,'(A)') '> dumpFreq=2592000.,'        WRITE(msgBuf,'(A)') '> dumpFreq=2592000.,'
288        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
289          WRITE(msgBuf,'(A)') '> cAdjFreq=86400.,'
290          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
291        WRITE(msgBuf,'(A)') '>/                     '        WRITE(msgBuf,'(A)') '>/                     '
292        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
293    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22