Changeset 9 for branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice.com

Timestamp:

04/04/16 10:56:46 (8 years ago)

Author:

vancop

Message:

New Gravity Drainage Scheme v1

File:

• branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice.com (modified) (2 diffs)

branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice.com

@@ -178 +178 @@
 
       COMMON/heateqcoe/lfus,cpg,cpw,gammac,betak,tmut,tpw,
-     &              cpoc,deltah, betak1, betak2, visc_br, beta_ocs
+     &              cpoc,deltah, betak1, betak2, visc_br, thdiff_br, 
+     &              beta_ocs
 
       COMMON/barrowconf/sal_read(11), hi_read(11), hgins, hnins,
@@ -194 +195 @@
      &                s_ini, ln_flo, ln_flu, ln_grd
 
-      CHARACTER*2 gravdr
+      CHARACTER*2 c_gravdr
       CHARACTER*4 alb_char, pre_char, sal_char
       CHARACTER*12 name_file_bar_par
       CHARACTER*17 name_file_bar_for
       CHARACTER*4  c_rad_scheme
-      CHARACTER*3  c_rad_discr
+      CHARACTER*3  c_rad_discr, c_sbr, c_perm, c_permeff
        
-      COMMON/chars/gravdr, alb_char, pre_char, sal_char, 
+      COMMON/chars/c_gravdr, alb_char, pre_char, sal_char, 
      &             name_file_bar_par, namefile_bar_for, 
-     &             c_rad_scheme, c_rad_discr
+     &             c_rad_scheme, c_rad_discr, c_sbr,
+     &             c_perm, c_permeff
 
       ! radiation transfer in sea ice