/[MITgcm]/MITgcm/pkg/cheapaml/CHEAPAML.h
ViewVC logotype

Diff of /MITgcm/pkg/cheapaml/CHEAPAML.h

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

revision 1.2 by jmc, Tue Aug 24 14:07:52 2010 UTC revision 1.3 by jmc, Sun Sep 5 03:56:18 2010 UTC
# Line 15  C     qair :: atmosphere specific humidi Line 15  C     qair :: atmosphere specific humidi
15  C     uwind :: zonal wind  C     uwind :: zonal wind
16  C     vwind :: meridional wind  C     vwind :: meridional wind
17  C     solar :: short wave insolation  C     solar :: short wave insolation
18  C  
19        COMMON /CHEAPAML_PARMS/        COMMON /CHEAPAML_VARS/
20       &       Tr,qr,uwind,vwind,solar,       &       Tr, qr,
21       &       ustress, vstress,Tair,gTairm,       &       Tair, gTairm,
22  c     &       ustress, vstress,  c    &       qair,
23       &       cheapaml_h,       &       uwind, vwind, solar,
24  c     &       cheapaml_kdiff, cheapaml_taurelax1,       &       ustress, vstress
25  c     &       cheapaml_taurelax2, cheapaml_xf,  
 c     &       cheapaml_dtc,rhoa,cpair,stefan,  
      &       cheapaml_kdiff,  
      &       cheapaml_taurelax2,  
      &       rhoa,cpair,stefan,  
      &       dsolms,dsolmn,  
      &       xphaseinit,  
      &       cdrag_1,cdrag_2,cdrag_3,cheapaml_ntim,  
      &       AirTempFile, AirQFile,SolarFile, UWindFile,  
      &       VWindFile, TrFile, QrFile, useFreshwaterFlux  
       
26        _RL    Tr  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    Tr  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27        _RL    qr  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    qr  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28        _RL    Tair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    Tair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29        _RL    gTairm  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL    gTairm  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30        _RL    qair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL    qair  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
       _RL    Solar (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
31        _RL    uwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL    uwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
32        _RL    vwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL    vwind (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
33          _RL    Solar (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
34        _RL    ustress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL    ustress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
35        _RL    vstress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL    vstress (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
36    
37          COMMON /CHEAPAML_PARMS_R/
38         &       cheapaml_h,
39         &       cheapaml_kdiff,
40    c    &       cheapaml_taurelax1,
41         &       cheapaml_taurelax2,
42    c    &       cheapaml_xf,
43    c    &       cheapaml_dtc,
44         &       rhoa,cpair,stefan,
45         &       dsolms,dsolmn,
46         &       xphaseinit,
47         &       cdrag_1,cdrag_2,cdrag_3
48        _RL    cheapaml_h        _RL    cheapaml_h
49        _RL    cheapaml_kdiff, cheapaml_taurelax1        _RL    cheapaml_kdiff
50        _RL    cheapaml_taurelax2, cheapaml_xf  c     _RL    cheapaml_taurelax1
51        _RL    cheapaml_dtc,rhoa,cpair,stefan        _RL    cheapaml_taurelax2
52    c     _RL    cheapaml_xf
53    c     _RL    cheapaml_dtc
54          _RL    rhoa, cpair, stefan
55        _RL    cdrag_1, cdrag_2, cdrag_3        _RL    cdrag_1, cdrag_2, cdrag_3
56        _RL     dsolms,dsolmn        _RL     dsolms,dsolmn
57        _RL     xphaseinit        _RL     xphaseinit
58    
59          COMMON /CHEAPAML_PARMS_I/
60         &       cheapaml_ntim
61        INTEGER cheapaml_ntim        INTEGER cheapaml_ntim
62    
63          COMMON /CHEAPAML_PARMS_L/
64         &       useFreshwaterFlux
65          LOGICAL useFreshwaterFlux
66    
67          COMMON /CHEAPAML_PARMS_C/
68         &       AirTempFile, AirQFile,SolarFile, UWindFile,
69         &       VWindFile, TrFile, QrFile
70        CHARACTER*(MAX_LEN_FNAM) AirTempFile        CHARACTER*(MAX_LEN_FNAM) AirTempFile
71        CHARACTER*(MAX_LEN_FNAM) AirQFile        CHARACTER*(MAX_LEN_FNAM) AirQFile
72        CHARACTER*(MAX_LEN_FNAM) SolarFile        CHARACTER*(MAX_LEN_FNAM) SolarFile
73        CHARACTER*(MAX_LEN_FNAM) UWindFile        CHARACTER*(MAX_LEN_FNAM) UWindFile
74        CHARACTER*(MAX_LEN_FNAM) VWindFile        CHARACTER*(MAX_LEN_FNAM) VWindFile
75        CHARACTER*(MAX_LEN_FNAM) TRFile        CHARACTER*(MAX_LEN_FNAM) TRFile
76        CHARACTER*(MAX_LEN_FNAM) QrFile        CHARACTER*(MAX_LEN_FNAM) QrFile
       LOGICAL useFreshwaterFlux  
77  c #endif /* ALLOW_CHEAPAML */  c #endif /* ALLOW_CHEAPAML */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22