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

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

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

Revision 1.4 - (hide annotations) (download)
Sat Dec 28 10:11:11 2002 UTC (21 years, 4 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint47j_post, checkpoint48d_pre, checkpoint47f_post, checkpoint48d_post, checkpoint48a_post, checkpoint48e_post, checkpoint47h_post, checkpoint48c_post, checkpoint47i_post, checkpoint48, checkpoint47g_post, checkpoint48b_post, checkpoint48c_pre
Branch point for: c24_e25_ice, ecco-branch
Changes since 1.3: +62 -44 lines
File MIME type: text/plain 
checkpoint47f_post
Merging from release1_p10:
o modifications for using pkg/exf with pkg/seaice
  - pkg/seaice CPP options SEAICE_EXTERNAL_FORCING
    and SEAICE_EXTERNAL_FLUXES
  - pkg/exf CPP options EXF_READ_EVAP and
    EXF_NO_BULK_COMPUTATIONS
  - usage examples are Experiments 8 and 9 in
    verification/lab_sea/README
  - verification/lab_sea default experiment now uses
    pkg/gmredi, pkg/kpp, pkg/seaice, and pkg/exf
1 heimbach 1.2 C $Header:
2    
3     #ifdef ALLOW_SEAICE
4    
5     C /==========================================================\
6     C | SEAICE_FFIELDS.h |
7     C | o Sea ice model forcing fields |
8     C |==========================================================|
9     C \==========================================================/
10     C
11 dimitri 1.4 C uwind - Surface (10-m) zonal wind velocity in m/s
12     C at North-East B-grid U point
13     C >0 from West to East
14     C vwind - Surface (10-m) meridional wind velocity in m/s
15     C at North-East B-grid V point
16     C >0 from South to North
17     C atemp - Surface (2-m) air temperature in deg K
18     C at North-East B-grid tracer point
19     C aqh - Surface (2m) specific humidity in kg/kg
20     C at North-East B-grid tracer point
21     C lwflux - Downward longwave radiation in W/m^2
22     C at North-East B-grid tracer point
23     C >0 for ocean warming
24     C swflux - Downward shortwave radiation in W/m^2
25     C at North-East B-grid tracer point
26     C >0 for ocean warming
27     C precip - Precipitation in m/s
28     C at North-East B-grid tracer point
29     C >0 decreases salinity
30     C evap - Evaporation in m/s
31     C at North-East B-grid tracer point
32     C >0 increases salinity
33     C runoff - River and glacier runoff in m/s
34     C at North-East B-grid tracer point
35     C >0 decreases salinity
36 heimbach 1.2 C
37 dimitri 1.4
38     #ifdef SEAICE_EXTERNAL_FORCING
39    
40     C-- Define forcing fields outside pkg/seaice.
41     #include "exf_fields.h"
42    
43     #else SEAICE_EXTERNAL_FORCING
44    
45     C-- Define forcing fields internally.
46     COMMON /SEAICE_FFIELDS/ uwind, vwind, atemp,
47     & aqh, lwflux, swflux, precip, evap, runoff
48     _RL uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49     _RL vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50     _RL atemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
51     _RL aqh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52     _RL lwflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53     _RL swflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54     _RL precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55 dimitri 1.3 _RL evap (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56     _RL runoff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57 heimbach 1.2
58 dimitri 1.4 COMMON /SEAICE_TDFIELDS/ uwind0, uwind1, vwind0, vwind1,
59     & atemp0, atemp1, aqh0, aqh1, lwflux0, lwflux1,
60     & swflux0, swflux1, precip0, precip1, evap0, evap1,
61 heimbach 1.2 & runoff0, runoff1, SSSsi0, SSSsi1, SSTsi0, SSTsi1
62 dimitri 1.4 _RS uwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
63     _RS uwind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
64     _RS vwind0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65     _RS vwind1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66     _RS atemp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67     _RS atemp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68     _RS aqh0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69     _RS aqh1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70     _RS lwflux0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
71     _RS lwflux1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
72     _RS swflux0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
73     _RS swflux1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
74     _RS precip0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
75     _RS precip1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76 heimbach 1.2 _RS evap0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77     _RS evap1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78     _RS runoff0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79     _RS runoff1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80     _RS SSSsi0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81     _RS SSSsi1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82     _RS SSTsi0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83     _RS SSTsi1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
84 dimitri 1.4
85     #endif SEAICE_EXTERNAL_FORCING
86 heimbach 1.2
87     #endif ALLOW_SEAICE
  ViewVC Help
Powered by ViewVC 1.1.22