/[MITgcm]/MITgcm/pkg/bulk_force/BULKF.h
ViewVC logotype

Contents of /MITgcm/pkg/bulk_force/BULKF.h

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

Revision 1.1 - (show annotations) (download)
Thu Nov 21 19:11:42 2002 UTC (21 years, 7 months ago) by cheisey
Branch: MAIN
CVS Tags: checkpoint47a_post, checkpoint47b_post
File MIME type: text/plain 
Two packages:  bulk_force (Bulk forcing)
and therm_seaice (thermodynamic_seaice) - adopted from LANL CICE.v2.0.2
Earlier integration from Stephaine Dutkiewicz
and Patrick Heimbach.

Two ifdef statements for compile time,
ALLOW_THERM_SEAICE and ALLOW_BULK_FORCE

Two switches in data.pkg to turn on at run-time:

cat data.pkg
# Packages
 &PACKAGES
 useBulkForce=.TRUE.,
 useThermSeaIce=.TRUE.,
 &

WARNING:  useSEAICE and useThermSEAICE are mutually exclusive.

The bulk package requires an additional parameter file
with two namelists, data.ice and data.blk.

c ADAPTED FROM:
c LANL CICE.v2.0.2
c-----------------------------------------------------------------------
c.. thermodynamics (vertical physics) based on M. Winton 3-layer model
c.. See Bitz, C. M. and W. H. Lipscomb, 1999:  "An energy-conserving
c..       thermodynamic sea ice model for climate study."  J. Geophys.
c..       Res., 104, 15669 - 15677.
c..     Winton, M., 1999:  "A reformulated three-layer sea ice model."
c..       Submitted to J. Atmos. Ocean. Technol.

c.. authors Elizabeth C. Hunke and William Lipscomb
c..         Fluid Dynamics Group, Los Alamos National Laboratory
c-----------------------------------------------------------------------
1 #ifdef ALLOW_BULK_FORCE
2 cswdblk
3 c !ROUTINE: BULKF.h
4 c -------------------------------
5 c BULKF.h
6 C variable for forcing using bulk
7 c formula
8 c -------------------------------
9 c FORCING VARIABLES
10 c tair - air temperature
11 c qair - specific humidity at surface
12 c rain - precipitation, which may become snow
13 c solar - shortwave radiation
14 c flw - downward longwave flux
15 c uwind - zonal wind speed
16 c vwind - meridional wind speed
17 c wspeed - wind speed
18 c runoff - freshwater runoff
19 c qnetch - net heat flux (cheating)
20 c empch - E-P (cheating)
21 c cloud - fraction sky covered in cloud
22 c
23 COMMON /BULKF_FFIELDS_PARMS/
24 & Tair, Qair, Rain, Solar, flw,
25 & uwind, vwind, runoff, wspeed,
26 & qnetch, empch, cloud, evapora,
27 & AirTempFile, AirHumidityFile, RainFile,
28 & SolarFile, LongwaveFile, UWindFile, VWindFile,
29 & RunoffFile, WSpeedFile, readwindstress,
30 & readsurface,
31 & QnetFile,EmPFile, CloudFile, SnowFile
32
33 _RL Tair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34 _RL Qair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35 _RL Rain (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36 _RL Solar (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37 _RL flw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38 _RL uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39 _RL vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40 _RL runoff (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 qnetch (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43 _RL empch (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
44 _RL cloud (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
45 _RL evapora (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46 CHARACTER*(MAX_LEN_FNAM) AirTempFile
47 CHARACTER*(MAX_LEN_FNAM) AirHumidityFile
48 CHARACTER*(MAX_LEN_FNAM) RainFile
49 CHARACTER*(MAX_LEN_FNAM) SolarFile
50 CHARACTER*(MAX_LEN_FNAM) LongwaveFile
51 CHARACTER*(MAX_LEN_FNAM) UWindFile
52 CHARACTER*(MAX_LEN_FNAM) VWindFile
53 CHARACTER*(MAX_LEN_FNAM) RunoffFile
54 CHARACTER*(MAX_LEN_FNAM) WSpeedFile
55 CHARACTER*(MAX_LEN_FNAM) QnetFile
56 CHARACTER*(MAX_LEN_FNAM) EmPFile
57 CHARACTER*(MAX_LEN_FNAM) CloudFile
58 CHARACTER*(MAX_LEN_FNAM) SnowFile
59 LOGICAL readwindstress
60 LOGICAL readsurface
61 #endif
  ViewVC Help
Powered by ViewVC 1.1.22