/[MITgcm]/MITgcm/verification/cpl_aim+ocn/shared_code/ATMIDS.h
ViewVC logotype

Diff of /MITgcm/verification/cpl_aim+ocn/shared_code/ATMIDS.h

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

revision 1.4 by jmc, Mon Dec 2 23:32:15 2013 UTC revision 1.5 by jmc, Thu Nov 12 01:16:10 2015 UTC
# Line 9  C     *================================= Line 9  C     *=================================
9        CHARACTER*(8)  atmCompName        CHARACTER*(8)  atmCompName
10        PARAMETER( atmCompName         = 'UV-Atmos'       )        PARAMETER( atmCompName         = 'UV-Atmos'       )
11    
12        CHARACTER*(8)  atmLandName        CHARACTER*(13) atmCplParamsName
13        PARAMETER( atmLandName         = 'ATM Land'       )        PARAMETER( atmCplParamsName    = 'ATM CplParams'  )
14          INTEGER    atmParSize
15          PARAMETER( atmParSize = 6 )
16    
17    C--   fields sent from OCN to ATM:
18        CHARACTER*(10) atmMxlDName        CHARACTER*(10) atmMxlDName
19        PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )        PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )
20        CHARACTER*(7)  atmSSTName        CHARACTER*(7)  atmSSTName
# Line 19  C     *================================= Line 23  C     *=================================
23        PARAMETER( atmSSSName          = 'ATM SSS'        )        PARAMETER( atmSSSName          = 'ATM SSS'        )
24        CHARACTER*(9)  atmSSVsqName        CHARACTER*(9)  atmSSVsqName
25        PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )        PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )
26        CHARACTER*(8)  atmFCO2Name        CHARACTER*(11) atmCO2FluxName
27        PARAMETER( atmFCO2Name         = 'ATM FCO2'       )        PARAMETER( atmCO2FluxName      = 'ATM CO2Flux'    )
28    
29    C--   fields that can be sent in both direction:
30          CHARACTER*(12) atmSIceFracName
31          PARAMETER( atmSIceFracName     = 'ATM sIceFrac'   )
32          CHARACTER*(13) atmSIceThickName
33          PARAMETER( atmSIceThickName    = 'ATM sIceThick'  )
34          CHARACTER*(13) atmSIceSnowName
35          PARAMETER( atmSIceSnowName     = 'ATM sIceSnowH'  )
36          CHARACTER*(10) atmSIceQ1Name
37          PARAMETER( atmSIceQ1Name       = 'ATM sIceQ1'     )
38          CHARACTER*(10) atmSIceQ2Name
39          PARAMETER( atmSIceQ2Name       = 'ATM sIceQ2'     )
40    
41    C--   fields sent from ATM to OCN:
42          CHARACTER*(8)  atmLandName
43          PARAMETER( atmLandName         = 'ATM Land'       )
44        CHARACTER*(8)  atmSLPrName        CHARACTER*(8)  atmSLPrName
45        PARAMETER( atmSLPrName         = 'ATM SLPr'       )        PARAMETER( atmSLPrName         = 'ATM SLPr'       )
46        CHARACTER*(12) atmHeatFluxName        CHARACTER*(12) atmHeatFluxName
47        PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )        PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )
48        CHARACTER*(14) atmQshortWaveName        CHARACTER*(14) atmQshortWaveName
49        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' )  
50        CHARACTER*(8)  atmTauXName        CHARACTER*(8)  atmTauXName
51        PARAMETER( atmTauXName         = 'ATM tauX'       )        PARAMETER( atmTauXName         = 'ATM tauX'       )
52        CHARACTER*(8)  atmTauYName        CHARACTER*(8)  atmTauYName
# Line 50  c     PARAMETER( atmVvelgroundName   = ' Line 59  c     PARAMETER( atmVvelgroundName   = '
59        PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )        PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )
60        CHARACTER*(12) atmSaltFxName        CHARACTER*(12) atmSaltFxName
61        PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )        PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )
62        CHARACTER*(10) atmSeaIceName        CHARACTER*(12) atmSIceMassName
63        PARAMETER( atmSeaIceName       = 'ATM SeaIce'     )        PARAMETER( atmSIceMassName     = 'ATM sIceMass'   )
64          CHARACTER*(14) atmSaltPlmFlxName
65          PARAMETER( atmSaltPlmFlxName   = 'ATM SaltPlmFlx' )
66        CHARACTER*(10) atmAirCO2Name        CHARACTER*(10) atmAirCO2Name
67        PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )        PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )
68        CHARACTER*(8) atmWSpdName        CHARACTER*(11) atmWindSpdName
69        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.)  
70    
71    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22