Changeset 2424
- Timestamp:
- 2010-11-24T16:41:07+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r2287 r2424 34 34 INTEGER , PUBLIC :: npyear ! Number of years read in CFC1112 file 35 35 36 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) :: p_cfc ! partial hemispheric pressure for CFC36 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, 2 ) :: p_cfc ! partial hemispheric pressure for CFC 37 37 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: xphem ! spatial interpolation factor for patm 38 38 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jp_cfc) :: qtr_cfc ! flux at surface 39 39 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jp_cfc) :: qint_cfc ! cumulative flux 40 40 41 REAL(wp), DIMENSION(4, jp_cfc) :: soa ! coefficient for solubility of CFC [mol/l/atm]42 REAL(wp), DIMENSION(3, jp_cfc) :: sob ! " "43 REAL(wp), DIMENSION(4, jp_cfc) :: sca ! coefficients for schmidt number in degre Celcius41 REAL(wp), DIMENSION(4,2) :: soa ! coefficient for solubility of CFC [mol/l/atm] 42 REAL(wp), DIMENSION(3,2) :: sob ! " " 43 REAL(wp), DIMENSION(4,2) :: sca ! coefficients for schmidt number in degre Celcius 44 44 45 45 ! ! coefficients for conversion
Note: See TracChangeset
for help on using the changeset viewer.