1 |
C $Header: /u/gcmpack/MITgcm/pkg/bulk_force/BULKF.h,v 1.6 2006/03/14 15:57:31 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_BULK_FORCE |
5 |
C !ROUTINE: BULKF.h |
6 |
C ------------------------------- |
7 |
C BULKF.h |
8 |
C variable for forcing using bulk formula |
9 |
C ------------------------------- |
10 |
C FORCING FIELD VARIABLES |
11 |
C- Mandatory: |
12 |
C tair :: air temperature (K) |
13 |
C qair :: specific humidity at surface (kg/kg) |
14 |
C rain :: total precipitation (= rain + snow) (m/s), (>0: rain) |
15 |
C solar :: downward shortwave radiation (W/m^2), (>0: downward) |
16 |
C flwdwn :: downward longwave radiation (W/m^2), (>0: downward) |
17 |
C wspeed :: wind speed (m/s) |
18 |
C- Optional: |
19 |
C uwind :: zonal wind speed (m/s), at cell center (A-grid) |
20 |
C vwind :: meridional wind speed (m/s), at cell center (A-grid) |
21 |
C runoff :: freshwater runoff (m/s) |
22 |
C Qnetch :: net heat flux (cheating) |
23 |
C EmPch :: E-P (cheating) |
24 |
C cloud :: fraction sky covered in cloud |
25 |
C thAir :: Air potential temp. in the BL [K] |
26 |
C (used in AIM-formula stability function) |
27 |
|
28 |
COMMON /BULKF_FFIELDS/ |
29 |
& Tair, Qair, Rain, Solar, flwdwn, |
30 |
& wspeed, uwind, vwind, runoff, |
31 |
& Qnetch, EmPch, cloud |
32 |
#ifdef ALLOW_FORMULA_AIM |
33 |
& , thAir |
34 |
#endif |
35 |
|
36 |
_RL Tair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
37 |
_RL Qair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
38 |
_RL Rain (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
39 |
_RL Solar (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
40 |
_RL flwdwn (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
41 |
_RL wspeed (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
42 |
_RL uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
43 |
_RL vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
44 |
_RL runoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
45 |
_RL Qnetch (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
46 |
_RL EmPch (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
47 |
_RL cloud (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
#ifdef ALLOW_FORMULA_AIM |
49 |
_RL thAir (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
50 |
#endif |
51 |
|
52 |
#endif /* ALLOW_BULK_FORCE */ |