/[MITgcm]/MITgcm/pkg/aim/AIM_DIAGS.h
ViewVC logotype

Contents of /MITgcm/pkg/aim/AIM_DIAGS.h

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

Revision 1.1.2.1 - (show annotations) (download)
Fri Jan 26 00:14:31 2001 UTC (23 years, 5 months ago) by cnh
Branch: branch-atmos-merge
CVS Tags: branch-atmos-merge-freeze
Changes since 1.1: +51 -0 lines
File MIME type: text/plain 
Adding AIM physics code as package along with simple
test.
So far only checked that code still compiles with
#undef ALLOW_AIM
Next step is to test the code in action!
Two things to note
  1. Modified genmake to have pgf77 defaults of
     r8, line longer than 72 and declaration checking off
     for files without IMPLCIT NONE. This is required
     to get Francos code to compile.

  2. Otherwise no changes to main code. Just package +
     verification test.
1 C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/aim/Attic/AIM_DIAGS.h,v 1.1.2.1 2001/01/26 00:14:31 cnh Exp $
2 C $Name: $
3
4 #ifdef ALLOW_AIM
5
6 C /==========================================================\
7 C | AIM_DIAGS.h |
8 C | o Header for AIM diagnostic output |
9 C |==========================================================|
10 C | Declares global arrays used for holding/accumulating |
11 C | diagnostic output from AIM. |
12 C \==========================================================/
13
14 #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
15
16 C Timer for AIM diags
17 _RL AIM_TimeAve(Nr,nSx,nSy)
18 COMMON /AIM_TAVE/ AIM_TimeAve
19
20 C USTRtave - u-stress (Pa)
21 C VSTRtave - v-stress (Pa)
22 C TSRtave - top-of-atm. shortwave radiation (W/m2)
23 C OLRtave - outgoing longwave radiation (W/m2)
24 C SSRtave - surface shortwave radiation (W/m2)
25 C SLRtave - surface longwave radiation (W/m2)
26 C SHFtave - sensible heat flux (W/m2)
27 C EVAPtave - evaporation [g/ (m2 s)]
28 C PRECNVtave- convective precipitation [g/ (m2 s)]
29 C PRECLStave- large-scale precipitation [g/ (m2 s)]
30 C CLOUDCtave- total cloud cover (fraction)
31 C
32 COMMON /AIM_TAVE_A/
33 & USTRTave,VSTRtave,
34 & TSRtave,OLRtave,SSRtave,SLRtave,SHFtave,
35 & EVAPtave,PRECNVtave,PRECLStave,CLOUDCtave
36 _RL USTRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37 _RL VSTRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38 _RL TSRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39 _RL OLRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
40 _RL SSRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
41 _RL SLRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42 _RL SHFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43 _RL EVAPtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
44 _RL PRECNVtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
45 _RL PRECLStave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46 _RL CLOUDCtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47
48 #endif /* INCLUDE_DIAGNOSTICS_INTERFACE_CODE */
49
50
51 #endif /* ALLOW_AIM */
  ViewVC Help
Powered by ViewVC 1.1.22