Changeset 10276 for branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

Timestamp:

2018-11-02T18:15:27+01:00 (5 years ago)

Author:

emmafiedler

Message:

Freeboard assimilation updates

File:

• branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

@@ -122 +122 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   fr_i              !: ice fraction = 1 - lead fraction      (between 0 to 1)
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   thick_i           !: ice thickness [m]
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   thick_s           !: snow depth [m - I think]   
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vol_i             !: ice volume [m3]   
 #if defined key_cpl_carbon_cycle
@@ -198 +199 @@
          !
       ALLOCATE( tprecip(jpi,jpj) , sprecip(jpi,jpj) , fr_i(jpi,jpj) ,     &
-         & thick_i(jpi,jpj) ,  vol_i(jpi,jpj) ,                           &      
+         & thick_i(jpi,jpj) ,  thick_s(jpi,jpj) , vol_i(jpi,jpj) ,        &      
 #if defined key_cpl_carbon_cycle
          &      atm_co2(jpi,jpj) ,                                        &