/[MITgcm]/MITgcm_contrib/jscott/igsm/src/r95mit.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/src/r95mit.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jscott, Mon Apr 23 21:20:18 2007 UTC revision 1.3 by jscott, Wed Sep 2 15:30:28 2009 UTC
# Line 1  Line 1 
1  c source sokolov users 559243 Aug 15  2006 /home/sokolov/IGSM2/SRC/r95mit.F  C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5    
6  !       ==========================================================  !       ==========================================================
# Line 199  C Line 201  C
201  #include "B83XX.COM"                                                     180.    #include "B83XX.COM"                                                     180.  
202  #include "chem_para"  #include "chem_para"
203  #include "chem_com"  #include "chem_com"
204    #if ( defined OCEAN_3D )
205          PARAMETER (IM0=01,JM0=N_LAT,LM0=N_LEV,IO0=N_LON0,KAIJ0=75)
206    #include "AGRID.h"
207    #endif
208  #if ( defined CLM )  #if ( defined CLM )
209  #include "CLM.h"  #include "CLM.h"
210  #endif  #endif
# Line 500  C Line 506  C
506        EXPSNO=EXP(-SNOWOI/DMOICE)                                         478.          EXPSNO=EXP(-SNOWOI/DMOICE)                                         478.  
507        BOIVIS=AOIVIS*EXPSNO+BSNVIS*(1.-EXPSNO)                            479.          BOIVIS=AOIVIS*EXPSNO+BSNVIS*(1.-EXPSNO)                            479.  
508        BOINIR=AOINIR*EXPSNO+BSNNIR*(1.-EXPSNO)                            480.          BOINIR=AOINIR*EXPSNO+BSNNIR*(1.-EXPSNO)                            480.  
509    Cnext lines - use albedos from ice model
510    #if ( defined OCEAN_3D )
511          BOIVIS=mmsAlb(JLAT)
512          BOINIR=mmsAlbNIR(JLAT)
513    #endif
514        XOIVIS=BOIVIS                                                      481.          XOIVIS=BOIVIS                                                      481.  
515        XOINIR=BOINIR                                                      482.          XOINIR=BOINIR                                                      482.  
516  C                                                                        483.    C                                                                        483.  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22