/[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.1 by jscott, Fri Aug 11 19:35:31 2006 UTC revision 1.2 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 1  Line 1 
1    c source sokolov users 559243 Aug 15  2006 /home/sokolov/IGSM2/SRC/r95mit.F
2  #include "ctrparam.h"  #include "ctrparam.h"
3    
4  !       ==========================================================  !       ==========================================================
# Line 200  C Line 200  C
200  #include "chem_para"  #include "chem_para"
201  #include "chem_com"  #include "chem_com"
202  #if ( defined CLM )  #if ( defined CLM )
203  #include "CLM.COM"  #include "CLM.h"
204  #endif  #endif
205    
206        DIMENSION ALVISK(11,4),ALNIRK(11,4),FIELDC(11,3),VTMASK(11)        241.          DIMENSION ALVISK(11,4),ALNIRK(11,4),FIELDC(11,3),VTMASK(11)        241.  
# Line 444  C$    XEANIR=XEANIR+XSNNIR*(1.-EXPSNE) Line 444  C$    XEANIR=XEANIR+XSNNIR*(1.-EXPSNE)
444    
445  #if ( defined CLM )  #if ( defined CLM )
446  c     if(ncallclm.ge.1)then  c     if(ncallclm.ge.1)then
447        BEAVIS=0.7*asdirclm(JLAT)+0.3*asdifclm(JLAT)        i=1
448        BEANIR=0.7*aldirclm(JLAT)+0.3*aldifclm(JLAT)        BEAVIS=0.7*asdirclm(i,JLAT)+0.3*asdifclm(i,JLAT)
449          BEANIR=0.7*aldirclm(i,JLAT)+0.3*aldifclm(i,JLAT)
450        XEAVIS=BEAVIS        XEAVIS=BEAVIS
451        XEANIR=BEANIR        XEANIR=BEANIR
452  c     endif  c     endif
# Line 539  C Line 540  C
540    
541  #if ( defined CLM )  #if ( defined CLM )
542  c     if(ncallclm.ge.1)then  c     if(ncallclm.ge.1)then
543        BLIVIS=0.7*asdirclm(JLAT)+0.3*asdifclm(JLAT)        i=1
544        BLINIR=0.7*aldirclm(JLAT)+0.3*aldifclm(JLAT)        BLIVIS=0.7*asdirclm(i,JLAT)+0.3*asdifclm(i,JLAT)
545          BLINIR=0.7*aldirclm(i,JLAT)+0.3*aldifclm(i,JLAT)
546  c     endif  c     endif
547  #endif  #endif
548    
# Line 698  C Line 700  C
700  C                                                                        685.    C                                                                        685.  
701        IF(LASTVC.GE.0) GO TO 107                                          686.          IF(LASTVC.GE.0) GO TO 107                                          686.  
702  C                                                                        687.    C                                                                        687.  
       print *,' Before DO 105'  
703        DO 105 L=1,NL                                                      688.          DO 105 L=1,NL                                                      688.  
704        P=PLB(L)                                                           689.          P=PLB(L)                                                           689.  
705        DO 101 N=2,8                                                       690.          DO 101 N=2,8                                                       690.  
# Line 1809  C Line 1810  C
1810    
1811  #include "B83XX.COM"  #include "B83XX.COM"
1812  #if ( defined CLM )  #if ( defined CLM )
1813  #include "CLM.COM"  #include "CLM.h"
1814  #endif  #endif
1815        
1816        DATA R6,R24/.1666667,4.166667E-02/                                1577.          DATA R6,R24/.1666667,4.166667E-02/                                1577.  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22