1 |
|
c source sokolov users 559243 Aug 15 2006 /home/sokolov/IGSM2/SRC/r95mit.F |
2 |
#include "ctrparam.h" |
#include "ctrparam.h" |
3 |
|
|
4 |
! ========================================================== |
! ========================================================== |
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. |
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 |
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 |
|
|
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. |
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. |