Ignore:
Timestamp:
2018-11-02T18:15:27+01:00 (3 years ago)
Author:
emmafiedler
Message:

Freeboard assimilation updates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r10181 r10276  
    122122   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   fr_i              !: ice fraction = 1 - lead fraction      (between 0 to 1) 
    123123   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   thick_i           !: ice thickness [m] 
     124   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   thick_s           !: snow depth [m - I think]    
    124125   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vol_i             !: ice volume [m3]    
    125126#if defined key_cpl_carbon_cycle 
     
    198199         ! 
    199200      ALLOCATE( tprecip(jpi,jpj) , sprecip(jpi,jpj) , fr_i(jpi,jpj) ,     & 
    200          & thick_i(jpi,jpj) ,  vol_i(jpi,jpj) ,                           &       
     201         & thick_i(jpi,jpj) ,  thick_s(jpi,jpj) , vol_i(jpi,jpj) ,        &       
    201202#if defined key_cpl_carbon_cycle 
    202203         &      atm_co2(jpi,jpj) ,                                        & 
Note: See TracChangeset for help on using the changeset viewer.