382 |
|
|
383 |
C write(0,*) 'dynamics: pS ',minval(cg2d_x(1:sNx,1:sNy,:,:)), |
C write(0,*) 'dynamics: pS ',minval(cg2d_x(1:sNx,1:sNy,:,:)), |
384 |
C & maxval(cg2d_x(1:sNx,1:sNy,:,:)) |
C & maxval(cg2d_x(1:sNx,1:sNy,:,:)) |
385 |
write(0,*) 'dynamics: U ',minval(uVel(1:sNx,1:sNy,1,:,:),mask=uVel(1:sNx,1:sNy,1,:,:).NE.0.), |
C write(0,*) 'dynamics: U ',minval(uVel(1:sNx,1:sNy,1,:,:),mask=uVel(1:sNx,1:sNy,1,:,:).NE.0.), |
386 |
& maxval(uVel(1:sNx,1:sNy,1,:,:)) |
C & maxval(uVel(1:sNx,1:sNy,1,:,:)) |
387 |
write(0,*) 'dynamics: V ',minval(vVel(1:sNx,1:sNy,1,:,:),mask=vVel(1:sNx,1:sNy,1,:,:).NE.0.), |
C write(0,*) 'dynamics: V ',minval(vVel(1:sNx,1:sNy,1,:,:),mask=vVel(1:sNx,1:sNy,1,:,:).NE.0.), |
388 |
& maxval(vVel(1:sNx,1:sNy,1,:,:)) |
C & maxval(vVel(1:sNx,1:sNy,1,:,:)) |
389 |
write(0,*) 'dynamics: wVel(1) ', |
C write(0,*) 'dynamics: wVel(1) ', |
390 |
& minval(wVel(1:sNx,1:sNy,1),mask=wVel(1:sNx,1:sNy,1).NE.0.), |
C & minval(wVel(1:sNx,1:sNy,1),mask=wVel(1:sNx,1:sNy,1).NE.0.), |
391 |
& maxval(wVel(1:sNx,1:sNy,1)) |
C & maxval(wVel(1:sNx,1:sNy,1)) |
392 |
write(0,*) 'dynamics: wVel(2) ', |
C write(0,*) 'dynamics: wVel(2) ', |
393 |
& minval(wVel(1:sNx,1:sNy,2),mask=wVel(1:sNx,1:sNy,2).NE.0.), |
C & minval(wVel(1:sNx,1:sNy,2),mask=wVel(1:sNx,1:sNy,2).NE.0.), |
394 |
& maxval(wVel(1:sNx,1:sNy,2)) |
C & maxval(wVel(1:sNx,1:sNy,2)) |
395 |
cblk write(0,*) 'dynamics: K13',minval(K13(1:sNx,1:sNy,:)), |
cblk write(0,*) 'dynamics: K13',minval(K13(1:sNx,1:sNy,:)), |
396 |
cblk & maxval(K13(1:sNx,1:sNy,:)) |
cblk & maxval(K13(1:sNx,1:sNy,:)) |
397 |
cblk write(0,*) 'dynamics: K23',minval(K23(1:sNx,1:sNy,:)), |
cblk write(0,*) 'dynamics: K23',minval(K23(1:sNx,1:sNy,:)), |
406 |
C & maxval(gS(1:sNx,1:sNy,:,:,:)) |
C & maxval(gS(1:sNx,1:sNy,:,:,:)) |
407 |
C write(0,*) 'dynamics: S ',minval(salt(1:sNx,1:sNy,:,:,:)), |
C write(0,*) 'dynamics: S ',minval(salt(1:sNx,1:sNy,:,:,:)), |
408 |
C & maxval(salt(1:sNx,1:sNy,:,:,:)) |
C & maxval(salt(1:sNx,1:sNy,:,:,:)) |
409 |
write(0,*) 'dynamics: pH ',minval(pH/(Gravity*Rhonil),mask=ph.NE.0.), |
C write(0,*) 'dynamics: pH ',minval(pH/(Gravity*Rhonil),mask=ph.NE.0.), |
410 |
& maxval(pH/(Gravity*Rhonil)) |
C & maxval(pH/(Gravity*Rhonil)) |
411 |
|
|
412 |
RETURN |
RETURN |
413 |
END |
END |