/[MITgcm]/MITgcm/pkg/seaice/SEAICE_FFIELDS.h
ViewVC logotype

Diff of /MITgcm/pkg/seaice/SEAICE_FFIELDS.h

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

revision 1.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC revision 1.10 by edhill, Sun Apr 17 00:25:46 2005 UTC
# Line 1  Line 1 
1  C  C $Header$
2    C $Name$
 #ifdef ALLOW_SEAICE  
3    
4  C     /==========================================================\  C     /==========================================================\
5  C     | SEAICE_FFIELDS.h                                         |  C     | SEAICE_FFIELDS.h                                         |
# Line 8  C     | o Sea ice model forcing fields Line 7  C     | o Sea ice model forcing fields
7  C     |==========================================================|  C     |==========================================================|
8  C     \==========================================================/  C     \==========================================================/
9  C  C
10  C     gairx  - Surface (10-m) zonal wind velocity in m/s  C
11  C                 (>0 from West to East)  C     uwind     :: Surface (10-m) zonal wind velocity in m/s
12  C     gairy  - Surface (10-m) meridional wind velocity in m/s  C                  > 0 for increase in uVel, which is west to
13  C                 (>0 from South to North)  C                      east for cartesian and spherical polar grids
14  C     tair   - Surface (2-m) air temperature in deg K  C                  Typical range: -10 < uwind < 10
15  C  C
16  C     qa     - Surface (2m) specific humidity  C     vwind     :: Surface (10-m) meridional wind velocity in m/s
17  C  C                  > 0 for increase in vVel, which is south to
18  C     flo    - Downward longwave radiation in W/m^2  C                      north for cartesian and spherical polar grids
19  C                 (>0 for ocean warming)  C                  Typical range: -10 < vwind < 10
20  C     fsh    - Downward shortwave radiation in W/m^2  C
21  C                 (>0 for ocean warming)  C     evap      :: Evaporation in m/s
22  C     rain   - Precipitation in m/s (>0 decreases salinity)  C                  > 0 for increase in salt (ocean salinity)
23  C  C                  Typical range: 0 < evap < 2.5e-7
24  C     evap   - Evaporation in m/s (>0 increases salinity)  C
25  C  C     precip    :: Precipitation in m/s
26  C     runoff - River and glacier runoff (>0 decreases salinity)  C                  > 0 for decrease in salt (ocean salinity)
27  C  C                  Typical range: 0 < precip < 5e-7
28  C  C
29        COMMON /SEAICE_FFIELDS/  C     runoff    :: River and glacier runoff in m/s
30       &        gairx, gairy, tair, qa, flo, fsh, rain, evap, runoff  C                  > 0 for decrease in salt (ocean salinity)
31        _RS  gairx    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C                  Typical range: 0 < runoff < ????
32        _RS  gairy    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C
33        _RS  tair     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C     atemp     :: Surface (2-m) air temperature in deg K
34        _RS  qa       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C                  Typical range: 200 < atemp < 300
35        _RS  flo      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C
36        _RS  fsh      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C     aqh       :: Surface (2m) specific humidity in kg/kg
37        _RS  rain     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C                  Typical range: 0 < aqh < 0.02
38        _RS  evap     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C
39        _RS  runoff   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  C     swdown    :: Downward shortwave radiation in W/m^2
40    C                  > 0 for increase in theta (ocean warming)
41        COMMON /SEAICE_TDFIELDS/  C                  Typical range: 0 < swdown < 450
42       &     gairx0, gairx1, gairy0, gairy1, tair0, tair1, qa0, qa1,  C
43       &     flo0, flo1, fsh0, fsh1, rain0, rain1, evap0, evap1,  C     lwdown    :: Downward longwave radiation in W/m^2
44    C                  > 0 for increase in theta (ocean warming)
45    C                  Typical range: 50 < lwdown < 450
46    C
47    C
48    C     NOTES:
49    C     ======
50    C
51    C     All surface forcing fields are defined at the center of
52    C     each grid (the rVel location in model/inc/GRID.h).
53    C
54    C     #ifdef SEAICE_EXTERNAL_FORCING, sea-ice forcing fields
55    C     are defined in exf_fields.h
56    C
57    C     #ifdef SEAICE_EXTERNAL_FLUXES, additional forcing fields, fu,
58    C     fv, Qnet, Qsw, and EmPmR, as defined in FFIELDS.h, are required.
59    C
60    C     Downward and net radiative fluxes are not the same !!!
61    C     Downward radiative fluxes, swdown and lwdown, are used by
62    C     radiation bulk formulae to compute net radiative fluxes.
63    C
64    
65    #ifdef SEAICE_EXTERNAL_FORCING
66    
67    C--   Define forcing fields outside pkg/seaice.
68    #include "exf_fields.h"
69    
70    #else /* SEAICE_EXTERNAL_FORCING undefined */
71    
72    C--   Define forcing fields internally.
73          COMMON /SEAICE_FFIELDS/ uwind, vwind, atemp,
74         &     aqh, lwdown, swdown, precip, evap, runoff
75          _RL  uwind    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76          _RL  vwind    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77          _RL  atemp    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78          _RL  aqh      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79          _RL  lwdown   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80          _RL  swdown   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81          _RL  precip   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82          _RL  evap     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83          _RL  runoff   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
84    
85          COMMON /SEAICE_TDFIELDS/ uwind0, uwind1, vwind0, vwind1,
86         &     atemp0, atemp1, aqh0, aqh1, lwdown0, lwdown1,
87         &     swdown0, swdown1, precip0, precip1, evap0, evap1,
88       &     runoff0, runoff1, SSSsi0, SSSsi1, SSTsi0, SSTsi1       &     runoff0, runoff1, SSSsi0, SSSsi1, SSTsi0, SSTsi1
89        _RS  gairx0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  uwind0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90        _RS  gairx1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  uwind1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
91        _RS  gairy0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  vwind0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92        _RS  gairy1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  vwind1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
93        _RS  tair0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  atemp0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
94        _RS  tair1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  atemp1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
95        _RS  qa0      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  aqh0     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
96        _RS  qa1      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  aqh1     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
97        _RS  flo0     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  lwdown0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
98        _RS  flo1     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  lwdown1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
99        _RS  fsh0     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  swdown0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
100        _RS  fsh1     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  swdown1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
101        _RS  rain0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  precip0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
102        _RS  rain1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  precip1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
103        _RS  evap0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  evap0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
104        _RS  evap1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  evap1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
105        _RS  runoff0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  runoff0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 66  C Line 109  C
109        _RS  SSTsi0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  SSTsi0   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
110        _RS  SSTsi1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  SSTsi1   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
111    
112  #endif ALLOW_SEAICE  #endif /* SEAICE_EXTERNAL_FORCING */
113    
114    CEH3 ;;; Local Variables: ***
115    CEH3 ;;; mode:fortran ***
116    CEH3 ;;; End: ***
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22