/[MITgcm]/MITgcm/compare01/src/set_defaults.F
ViewVC logotype

Diff of /MITgcm/compare01/src/set_defaults.F

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

revision 1.1 by cnh, Mon May 25 20:21:05 1998 UTC revision 1.2 by cnh, Mon Jun 8 21:42:59 1998 UTC
# Line 103  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREEND Line 103  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREEND
103    
104    
105  CSTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORE  CSTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORESTARTIGNORE
106        phiMin      = 0.            phiMin      = -30.
107        dPhi        = 4.0        dPhi        = 1.0
108        dTheta      = 4.0        dTheta      = 1.0
109  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNORE  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNOREENDIGNORE
110    
111    
# Line 185  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREEND Line 185  CENDIGNOREENDIGNOREENDIGNOREENDIGNOREEND
185    
186        THS(1)   = 20.D0        THS(1)   = 20.D0
187        THS(2)   = 10.D0        THS(2)   = 10.D0
188  C     THS(3)   = 10.D0        THS(3)   =  8.D0
189  C     THS(4)   =  6.D0        THS(4)   =  6.D0
190        SSPPT = 10.D0        SSPPT = 10.D0
191        T(_I3(1,:,:)) = 20.0D0        T(_I3(1,:,:)) = 20.0D0
192        T(_I3(2,:,:)) = 10.0D0        T(_I3(2,:,:)) = 10.0D0
193  C     T(_I3(3,:,:)) = 10.0D0        T(_I3(3,:,:)) =  8.0D0
194  C     T(_I3(4,:,:)) =  6.0D0        T(_I3(4,:,:)) =  6.0D0
195  C     T(_I3(1,:,:)) = 1.D-12  C     T(_I3(1,:,:)) = 1.D-12
196  C     T(_I3(2,:,:)) = 0.  C     T(_I3(2,:,:)) = 0.
197  C     T(_I3(3,:,:)) = 0.  C     T(_I3(3,:,:)) = 0.
# Line 203  C     T(_I3(4,:,:)) = 20.0D0 Line 203  C     T(_I3(4,:,:)) = 20.0D0
203        S = 10.0D0            S = 10.0D0    
204        DELTAZ(1) =  500.0D0        DELTAZ(1) =  500.0D0
205        DELTAZ(2) =  500.0D0        DELTAZ(2) =  500.0D0
206  C     DELTAZ(3) = 1500.0D0        DELTAZ(3) =  500.0D0
207  C     DELTAZ(4) = 2500.0D0        DELTAZ(4) =  500.0D0
208    
209  C     Geometry  C     Geometry
210        DM        = 20. D3        DM        = 20. D3
211          DM        = 1.
212        WRITE(20,*) ' DM',DM        WRITE(20,*) ' DM',DM
213    
214    
# Line 305  C      tAlpha     = 0.D-4 Line 306  C      tAlpha     = 0.D-4
306    
307  C     Numerics parameters  C     Numerics parameters
308        abEps     = 0.1        abEps     = 0.1
309        rAja      = 0.0D0        rAja      = 9.930555555555556D-1
310    C     rAja      = 0.
311        dUnit               = 10        dUnit               = 10
312        scrUnit1            = 11        scrUnit1            = 11
313        scrUnit2            = 12        scrUnit2            = 12
# Line 322  C     Wall at Y = Ly Line 324  C     Wall at Y = Ly
324        PMASK(_I3(:,:,ny))  = LAND  ! Land in northern most cell        PMASK(_I3(:,:,ny))  = LAND  ! Land in northern most cell
325  C     bathySource = textBathymetry  C     bathySource = textBathymetry
326  C     Island  C     Island
327  C     PMASK(_I3(:,1,24))  = LAND        PMASK(_I3(Nz,1,24))  = LAND
328    
329  C  C
330    
# Line 355  CcnhDebugStarts Line 357  CcnhDebugStarts
357  Cdbg  WRITE(0,*) ' lY    = ', lY  Cdbg  WRITE(0,*) ' lY    = ', lY
358  Cdbg  WRITE(0,*) ' distY = ', distY  Cdbg  WRITE(0,*) ' distY = ', distY
359  Cdbg  WRITE(0,*) ' tauMax = ', tauMax  Cdbg  WRITE(0,*) ' tauMax = ', tauMax
360  Cdbg  WRITE(0,*) ' fu '        WRITE(0,*) ' fu '
361  Cdbg  CALL PLOT_FIELD(fu,Nx,Ny)        CALL PLOT_FIELD(fu,Nx,Ny)
362  Cdbg  STOP  Cdbg  STOP
363  CcnhDebugEnds  CcnhDebugEnds
364  C  C
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22