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

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

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

revision 1.2 by jscott, Tue Aug 22 20:25:52 2006 UTC revision 1.3 by jscott, Mon Apr 23 21:20:17 2007 UTC
# Line 1  Line 1 
1    c source sokolov users 75004 Aug 15  2006 /home/sokolov/IGSM2/SRC/condse.F
2  #include "ctrparam.h"  #include "ctrparam.h"
3    
4  !       ==========================================================  !       ==========================================================
# Line 33  C**** Line 33  C****
33  C  C
34  #if ( defined OCEAN_3D || defined ML_2D)  #if ( defined OCEAN_3D || defined ML_2D)
35  #include "AGRID.h"  #include "AGRID.h"
36  C#include "HRD4OCN.COM"  cjrs elimated this com file #include "HRD4OCN.COM"
37  #endif  #endif
38    
39  #if ( defined CLM )  #if ( defined CLM )
40  #include "CLM.COM"  #include "CLM.h"
41  #endif  #endif
42  c  c
43  #if ( defined CPL_CHEM )  #if ( defined CPL_CHEM )
# Line 246  c     RH0OLD=.65 Line 246  c     RH0OLD=.65
246  #if ( !defined CLM )  #if ( !defined CLM )
247           RHKP(l,j)=0.95*RHNEW(j)  ! 2905.06           RHKP(l,j)=0.95*RHNEW(j)  ! 2905.06
248           RHKP(l,j)=0.9375*RHNEW(j)  ! 2906.06           RHKP(l,j)=0.9375*RHNEW(j)  ! 2906.06
249             RHKP(l,j)=0.945*RHNEW(j)  ! 2907.06
250  #endif  #endif
251          enddo          enddo
252          do l=4,6        ! Middle clouds          do l=4,6        ! Middle clouds
# Line 264  c     RH0OLD=.65 Line 265  c     RH0OLD=.65
265           RHKP(l,j)=0.985*RHNEW(j) ! 2358           RHKP(l,j)=0.985*RHNEW(j) ! 2358
266  #if ( !defined CLM )  #if ( !defined CLM )
267           RHKP(l,j)=0.99*RHNEW(j)  ! 2905.06           RHKP(l,j)=0.99*RHNEW(j)  ! 2905.06
268           RHKP(l,j)=0.995*RHNEW(j)  ! 2906.06           RHKP(l,j)=0.995*RHNEW(j)  ! 2906.06 2907.06
269  #endif  #endif
270          enddo          enddo
271        do l=10,LM        do l=10,LM
# Line 1680  C**** TOTAL HEATING AND MOISTURE ADJUSTM Line 1681  C**** TOTAL HEATING AND MOISTURE ADJUSTM
1681    
1682  c     prhr(j)=PREC(1,J)  c     prhr(j)=PREC(1,J)
1683  c     PRCP=(PRCPMC+PRCPSS)*100./GRAV                                    3490.  c     PRCP=(PRCPMC+PRCPSS)*100./GRAV                                    3490.
1684        pcpl4clm(j)=PRCPSS*100./GRAV        i=1
1685        pcpc4clm(j)=PRCPMC*100./GRAV        pcpl4clm(i,j)=PRCPSS*100./GRAV
1686        tpr4clm(j)=TPREC(1,J)        pcpc4clm(i,j)=PRCPMC*100./GRAV
1687          tpr4clm(i,j)=TPREC(1,J)
1688  #endif  #endif
1689  C  C
1690  #if ( defined OCEAN_3D || defined ML_2D )  #if ( defined OCEAN_3D || defined ML_2D )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22