/[MITgcm]/MITgcm/pkg/atm_ocn_coupler/ATMIDS.h
ViewVC logotype

Diff of /MITgcm/pkg/atm_ocn_coupler/ATMIDS.h

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

revision 1.3 by jmc, Mon Dec 2 23:21:47 2013 UTC revision 1.4 by jmc, Thu Nov 12 00:43:34 2015 UTC
# Line 18  C     *================================= Line 18  C     *=================================
18        CHARACTER*(8)  atmCompName        CHARACTER*(8)  atmCompName
19        PARAMETER( atmCompName         = 'UV-Atmos'       )        PARAMETER( atmCompName         = 'UV-Atmos'       )
20    
21        CHARACTER*(8)  atmLandName        CHARACTER*(13) atmCplParamsName
22        PARAMETER( atmLandName         = 'ATM Land'       )        PARAMETER( atmCplParamsName    = 'ATM CplParams'  )
23          INTEGER    atmParSize
24          PARAMETER( atmParSize = 6 )
25    
26    C--   fields sent from OCN to ATM:
27        CHARACTER*(10) atmMxlDName        CHARACTER*(10) atmMxlDName
28        PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )        PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )
29        CHARACTER*(7)  atmSSTName        CHARACTER*(7)  atmSSTName
# Line 28  C     *================================= Line 32  C     *=================================
32        PARAMETER( atmSSSName          = 'ATM SSS'        )        PARAMETER( atmSSSName          = 'ATM SSS'        )
33        CHARACTER*(9)  atmSSVsqName        CHARACTER*(9)  atmSSVsqName
34        PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )        PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )
35        CHARACTER*(8)  atmFCO2Name        CHARACTER*(11) atmCO2FluxName
36        PARAMETER( atmFCO2Name         = 'ATM FCO2'       )        PARAMETER( atmCO2FluxName      = 'ATM CO2Flux'    )
37    
38    C--   fields that can be sent in both direction:
39          CHARACTER*(12) atmSIceFracName
40          PARAMETER( atmSIceFracName     = 'ATM sIceFrac'   )
41          CHARACTER*(13) atmSIceThickName
42          PARAMETER( atmSIceThickName    = 'ATM sIceThick'  )
43          CHARACTER*(13) atmSIceSnowName
44          PARAMETER( atmSIceSnowName     = 'ATM sIceSnowH'  )
45          CHARACTER*(10) atmSIceQ1Name
46          PARAMETER( atmSIceQ1Name       = 'ATM sIceQ1'     )
47          CHARACTER*(10) atmSIceQ2Name
48          PARAMETER( atmSIceQ2Name       = 'ATM sIceQ2'     )
49    
50    C--   fields sent from ATM to OCN:
51          CHARACTER*(8)  atmLandName
52          PARAMETER( atmLandName         = 'ATM Land'       )
53        CHARACTER*(8)  atmSLPrName        CHARACTER*(8)  atmSLPrName
54        PARAMETER( atmSLPrName         = 'ATM SLPr'       )        PARAMETER( atmSLPrName         = 'ATM SLPr'       )
55        CHARACTER*(12) atmHeatFluxName        CHARACTER*(12) atmHeatFluxName
56        PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )        PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )
57        CHARACTER*(14) atmQshortWaveName        CHARACTER*(14) atmQshortWaveName
58        PARAMETER( atmQshortWaveName   = 'ATM Qshortwave' )        PARAMETER( atmQshortWaveName   = 'ATM Qshortwave' )
 c     CHARACTER*(13) atmQlongWaveName  
 c     PARAMETER( atmQlongWaveName    = 'ATM Qlongwave'  )  
 c     CHARACTER*(11) atmQlatentName  
 c     PARAMETER( atmQlatentName      = 'ATM Qlatent'    )  
 c     CHARACTER*(13) atmQsensibleName  
 c     PARAMETER( atmQsensibleName    = 'ATM Qsensible'  )  
 c     CHARACTER*(14) atmUvelgroundName  
 c     PARAMETER( atmUvelgroundName   = 'ATM Uvelground' )  
 c     CHARACTER*(14) atmVvelgroundName  
 c     PARAMETER( atmVvelgroundName   = 'ATM Vvelground' )  
59        CHARACTER*(8)  atmTauXName        CHARACTER*(8)  atmTauXName
60        PARAMETER( atmTauXName         = 'ATM tauX'       )        PARAMETER( atmTauXName         = 'ATM tauX'       )
61        CHARACTER*(8)  atmTauYName        CHARACTER*(8)  atmTauYName
# Line 59  c     PARAMETER( atmVvelgroundName   = ' Line 68  c     PARAMETER( atmVvelgroundName   = '
68        PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )        PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )
69        CHARACTER*(12) atmSaltFxName        CHARACTER*(12) atmSaltFxName
70        PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )        PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )
71        CHARACTER*(10) atmSeaIceName        CHARACTER*(12) atmSIceMassName
72        PARAMETER( atmSeaIceName       = 'ATM SeaIce'     )        PARAMETER( atmSIceMassName     = 'ATM sIceMass'   )
73          CHARACTER*(14) atmSaltPlmFlxName
74          PARAMETER( atmSaltPlmFlxName   = 'ATM SaltPlmFlx' )
75        CHARACTER*(10) atmAirCO2Name        CHARACTER*(10) atmAirCO2Name
76        PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )        PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )
77        CHARACTER*(8) atmWSpdName        CHARACTER*(11) atmWindSpdName
78        PARAMETER( atmWSpdName         = 'ATM WSpd'       )        PARAMETER( atmWindSpdName      = 'ATM WindSpd'    )
       CHARACTER*(8) atmFIceName  
       PARAMETER( atmFIceName         = 'ATM FIce'       )  
   
 C     Pass carbon/DIC variables only if flag set below  
       LOGICAL atmCpl_exchange_DIC  
       PARAMETER( atmCpl_exchange_DIC = .FALSE.)  
79    
80    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22