| 1 |
C $Id: FORCING.h,v 1.1 1998/05/25 20:21:06 cnh Exp $ |
| 2 |
C/-------------------------------------------------------------------\ |
| 3 |
C||| External forcing data. ||| |
| 4 |
C|||===============================================================||| |
| 5 |
C||| In multi-threading mode the I/O associated with loading ||| |
| 6 |
C||| datasets etc... shuld be done outside the parallel threads. ||| |
| 7 |
C||| Using global data structures as illustrated here is a ||| |
| 8 |
C||| practical way to do this. ||| |
| 9 |
C\-------------------------------------------------------------------/ |
| 10 |
C /--------------------------------------------------------------\ |
| 11 |
C | FORCING_F | |
| 12 |
C |==============================================================| |
| 13 |
C | Floating point fields for forcing. | |
| 14 |
C | Udsk - Zonal velocity of disk. | |
| 15 |
C | Vdsk - Meridional velocity of disk. | |
| 16 |
C | lambdaVel - Disk to flow relaxation time scale. | |
| 17 |
C | Set to zero outside region of stress. | |
| 18 |
C | Heat - Surface temperature rate of change. | |
| 19 |
C | Ssurf - Surface salinity field ( S is a passive dye ). | |
| 20 |
C \--------------------------------------------------------------/ |
| 21 |
COMMON /FORCING_F/ Udsk, Vdsk, Heat, Ssurf, lambdaVel, |
| 22 |
& fu, fv |
| 23 |
REAL Udsk(Nx,Ny) |
| 24 |
REAL Vdsk(Nx,Ny) |
| 25 |
REAL lambdaVel(Nx,Ny) |
| 26 |
REAL Heat (Nx,Ny) |
| 27 |
REAL Ssurf(Nx,Ny) |
| 28 |
REAL fu(Nx,Ny) |
| 29 |
REAL fv(Nx,Ny) |
Parent Directory
| 
Revision Log
| 
Revision Graph