/[MITgcm]/MITgcm/pkg/dic/DIC_LOAD.h
ViewVC logotype

Annotation of /MITgcm/pkg/dic/DIC_LOAD.h

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


Revision 1.4 - (hide annotations) (download)
Tue Sep 12 19:58:01 2006 UTC (17 years, 9 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint58u_post, checkpoint58w_post, checkpoint58r_post, checkpoint58x_post, checkpoint58t_post, checkpoint58q_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58y_post, checkpoint58v_post, checkpoint58s_post
Changes since 1.3: +2 -3 lines
File MIME type: text/plain
o change which common block "WIND" is in, and where piston velocity (pisvel)
  is calcuated. Easier for coupling to atmsopheric model.

1 stephd 1.4 C $Header: /u/gcmpack/MITgcm/pkg/dic/DIC_LOAD.h,v 1.3 2005/10/13 16:25:12 stephd Exp $
2 edhill 1.2 C $Name: $
3    
4 stephd 1.1 #include "GCHEM_OPTIONS.h"
5    
6     COMMON /dic_load/
7     & wspeed0, wspeed1, ice0, ice1, atmosp0,
8     & atmosp1, silica0, silica1
9 stephd 1.3 #ifdef READ_PAR
10     & ,par0, par1
11     #endif
12 stephd 1.1 #ifdef ALLOW_FE
13     & ,feinput0,feinput1
14     #endif
15 stephd 1.4 _RS wspeed0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16 stephd 1.1 _RS wspeed1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
17     _RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18     _RS ice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19     _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20     _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21     _RS silica0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22     _RS silica1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23 stephd 1.3 #ifdef READ_PAR
24     _RS par0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25     _RS par1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26     #endif
27 stephd 1.1 #ifdef ALLOW_FE
28     _RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29     _RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30     #endif
31    
32 edhill 1.2
33     CEH3 ;;; Local Variables: ***
34     CEH3 ;;; mode:fortran ***
35     CEH3 ;;; End: ***

  ViewVC Help
Powered by ViewVC 1.1.22