/[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.3 by cnh, Mon May 25 20:05:55 1998 UTC revision 1.4 by cnh, Mon May 25 21:29:45 1998 UTC
# Line 89  C     -- Local variables -- Line 89  C     -- Local variables --
89        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
90        WRITE(msgBuf,'(A)') '>#             ( m^4/s ).'        WRITE(msgBuf,'(A)') '>#             ( m^4/s ).'
91        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
92          WRITE(msgBuf,'(A)') '>#   momStepping - On/Off flag for momentum'
93          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
94          WRITE(msgBuf,'(A)') '>#                  equation.          '
95          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
96        WRITE(msgBuf,'(A)') '>#   momViscosity - On/Off flag for momentum'        WRITE(msgBuf,'(A)') '>#   momViscosity - On/Off flag for momentum'
97        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
98        WRITE(msgBuf,'(A)') '>#                  mixing.                 '        WRITE(msgBuf,'(A)') '>#                  mixing.                 '
# Line 104  C     -- Local variables -- Line 108  C     -- Local variables --
108        WRITE(msgBuf,'(A)') '>#   useCoriolis  - On/Off flag for momentum'        WRITE(msgBuf,'(A)') '>#   useCoriolis  - On/Off flag for momentum'
109        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
110        WRITE(msgBuf,'(A)') '>#                  equation coriolis term. '        WRITE(msgBuf,'(A)') '>#                  equation coriolis term. '
111          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
112          WRITE(msgBuf,'(A)') '>#   tempStepping - On/Off flag for temperature'
113          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
114          WRITE(msgBuf,'(A)') '>#                  eqaution.         '
115          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
116        WRITE(msgBuf,'(A)') '>#   tempDiffusion- On/Off flag for temperature'        WRITE(msgBuf,'(A)') '>#   tempDiffusion- On/Off flag for temperature'
117        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
118        WRITE(msgBuf,'(A)') '>#                  mixing.                 '        WRITE(msgBuf,'(A)') '>#                  mixing.                 '
# Line 162  C     -- Local variables -- Line 171  C     -- Local variables --
171        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
172        WRITE(msgBuf,'(A)') '> diffK4S=0.'        WRITE(msgBuf,'(A)') '> diffK4S=0.'
173        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
174          WRITE(msgBuf,'(A)') '> momStepping=.TRUE.'
175          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
176        WRITE(msgBuf,'(A)') '> momViscosity=.TRUE.'        WRITE(msgBuf,'(A)') '> momViscosity=.TRUE.'
177        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
178        WRITE(msgBuf,'(A)') '> momAdvection=.TRUE.'        WRITE(msgBuf,'(A)') '> momAdvection=.TRUE.'
# Line 172  C     -- Local variables -- Line 183  C     -- Local variables --
183        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
184        WRITE(msgBuf,'(A)') '> useCoriolis=.TRUE.'        WRITE(msgBuf,'(A)') '> useCoriolis=.TRUE.'
185        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
186          WRITE(msgBuf,'(A)') '> tempStepping=.TRUE.'
187          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
188        WRITE(msgBuf,'(A)') '> tempDiffusion=.TRUE.'        WRITE(msgBuf,'(A)') '> tempDiffusion=.TRUE.'
189        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
190        WRITE(msgBuf,'(A)') '> tempAdvection=.TRUE.'        WRITE(msgBuf,'(A)') '> tempAdvection=.TRUE.'
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22