--- MITgcm_contrib/jscott/igsm/src/r95mit.F	2007/04/23 21:20:18	1.2
+++ MITgcm_contrib/jscott/igsm/src/r95mit.F	2009/09/02 15:30:28	1.3
@@ -1,4 +1,6 @@
-c source sokolov users 559243 Aug 15  2006 /home/sokolov/IGSM2/SRC/r95mit.F
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jscott/igsm/src/r95mit.F,v 1.3 2009/09/02 15:30:28 jscott Exp $
+C $Name:  $
+
 #include "ctrparam.h"
 
 !	==========================================================
@@ -199,6 +201,10 @@
 #include "B83XX.COM"                                                     180.   
 #include "chem_para"
 #include "chem_com"
+#if ( defined OCEAN_3D )
+      PARAMETER (IM0=01,JM0=N_LAT,LM0=N_LEV,IO0=N_LON0,KAIJ0=75)
+#include "AGRID.h"
+#endif
 #if ( defined CLM )
 #include "CLM.h"
 #endif
@@ -500,6 +506,11 @@
       EXPSNO=EXP(-SNOWOI/DMOICE)                                         478.   
       BOIVIS=AOIVIS*EXPSNO+BSNVIS*(1.-EXPSNO)                            479.   
       BOINIR=AOINIR*EXPSNO+BSNNIR*(1.-EXPSNO)                            480.   
+Cnext lines - use albedos from ice model
+#if ( defined OCEAN_3D )
+      BOIVIS=mmsAlb(JLAT)
+      BOINIR=mmsAlbNIR(JLAT)
+#endif
       XOIVIS=BOIVIS                                                      481.   
       XOINIR=BOINIR                                                      482.   
 C                                                                        483.