Changeset 2424


Ignore:
Timestamp:
2010-11-24T16:41:07+01:00 (10 years ago)
Author:
cetlod
Message:

v3.3beta:minor bug correction of CFC's routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r2287 r2424  
    3434   INTEGER , PUBLIC    ::   npyear         ! Number of years read in CFC1112 file 
    3535    
    36    REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) ::   p_cfc    ! partial hemispheric pressure for CFC           
     36   REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, 2    ) ::   p_cfc    ! partial hemispheric pressure for CFC           
    3737   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)              ::   xphem    ! spatial interpolation factor for patm 
    3838   REAL(wp), PUBLIC, DIMENSION(jpi,jpj     ,jp_cfc) ::   qtr_cfc  ! flux at surface 
    3939   REAL(wp), PUBLIC, DIMENSION(jpi,jpj     ,jp_cfc) ::   qint_cfc ! cumulative flux  
    4040 
    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 Celcius 
     41   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 
    4444       
    4545   !                          ! coefficients for conversion 
Note: See TracChangeset for help on using the changeset viewer.