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 |
|
|
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. |
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 |
|
|
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 |
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 |
|
|
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 |