Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_cfc.h90
- Timestamp:
- 2007-12-13T14:52:50+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_cfc.h90
r719 r763 1 !!--------------------------------------------------------------------- 1 !!---------------------------------------------------------------------- 2 2 !! *** sms_cfc.h90 *** 3 !! CFC Source Minus Sink model4 !!--------------------------------------------------------------------- 3 !! TOP : CFC Source Minus Sink valiables 4 !!---------------------------------------------------------------------- 5 5 6 6 !!---------------------------------------------------------------------- 7 !! 7 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 8 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt9 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 10 10 !!---------------------------------------------------------------------- 11 11 12 INTEGER, PUBLIC :: & 13 ndate_beg, & ! initial calendar date (aammjj) for CFC 14 nyear_res, & ! restoring time constant (year) 15 nyear_beg ! initial year (aa) 12 INTEGER , PUBLIC :: ndate_beg ! initial calendar date (aammjj) for CFC 13 INTEGER , PUBLIC :: nyear_res ! restoring time constant (year) 14 INTEGER , PUBLIC :: nyear_beg ! initial year (aa) 16 15 17 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & 18 xphem ! spatial interpolation factor for patm 16 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: xphem ! spatial interpolation factor for patm 17 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jptra) :: p_cfc ! partial hemispheric pressure for CFC 18 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jptra) :: pp_cfc ! temporal interpolation of atmospheric concentrations 19 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jptra) :: qtr ! input function 20 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jptra) :: qint ! flux function 19 21 20 21 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jptra) :: &22 p_cfc ! partial hemispheric pressure for CFC23 24 25 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jptra) :: &26 pp_cfc ! temporal interpolation of atmospheric concentrations27 28 29 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jptra) :: &30 qtr, & ! input function31 qint ! flux function32
Note: See TracChangeset
for help on using the changeset viewer.