--- MITgcm_contrib/jscott/igsm/src/atmosphere.F	2007/10/17 21:07:21	1.10
+++ MITgcm_contrib/jscott/igsm/src/atmosphere.F	2009/09/01 21:56:40	1.11
@@ -1,4 +1,5 @@
-c source 2007 sokolov users  76203 Apr 25 15:29 atmosphere.F
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jscott/igsm/src/atmosphere.F,v 1.11 2009/09/01 21:56:40 jscott Exp $
+C $Name:  $
 
 #include "ctrparam.h"
 
@@ -920,7 +921,8 @@
 
 	call chemmass66(1.0, 1.0,zco2,zco2mass)
 
-	call chemmass6(150.0,1.0,xn2o,xn2omass)
+!call chemmass6(150.0,1.0,xn2o,xn2omass)
+        call chemmass6(120.0,1.0,xn2o,xn2omass)
 	call chemmass2(1.0,ch4, ch4mass )
 
         ! === if hfc, pfc, and sf6 are included:
@@ -1081,7 +1083,9 @@
       i=1
       do j=1,jm
          pcpl4clm(i,j)=pcpl4clm(i,j)*prlnd2total(j,mndriver)
+     &     *3600./(NDYN*DT)
          pcpc4clm(i,j)=pcpc4clm(i,j)*prlnd2total(j,mndriver)
+     &     *3600./(NDYN*DT)
       enddo
 !     print *,' main after surf4clm',' TAU=',TAU
 !       print  ('2(12f7.2,/,11f7.2,/)'),ps4clm,pcpl4clm,