--- MITgcm_contrib/jscott/igsm/src/input.F	2007/10/17 21:07:21	1.6
+++ MITgcm_contrib/jscott/igsm/src/input.F	2009/09/01 22:03:56	1.7
@@ -1,3 +1,5 @@
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jscott/igsm/src/input.F,v 1.7 2009/09/01 22:03:56 jscott Exp $
+C $Name:  $
 
 #include "ctrparam.h"
 
@@ -90,7 +92,7 @@
      & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat
 cjrs DRIVER.h fnememiss &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,
      &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,
-     & chem_init,chem_init2,chemrstfl
+     & chem_init,chem_init2,chem_init4pfc,chemrstfl
       common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf
      *,t3file,tsfile,zmfile,ochemfile,deepco2in
       character * 120 ghostfile
@@ -133,7 +135,7 @@
      &  S0C_data,cfvolaer,
      &  dirdat1,dirdat2
      &  ,chemdata,chemout,last_nep,init_4nem,pov_deepo,fnememiss
-     &  ,chem_init,chem_init2,chemrstfl
+     &  ,chem_init,chem_init2,chem_init4pfc,chemrstfl
      &	  ,oco2file,co2rfile,caruptfile,emiss_data,SO2ERATIO,flrco2av
      &  ,flin_nep,last_clm,SEN_dat,nemdatdir
      &  ,GHSFALB,GHSF,ALBCF,FVOLADD,ghostfile,fl_volaer
@@ -142,6 +144,7 @@
      &  ,fclmlice,fbaresoil,fwmax,fprratio,o3datadir,CLIMO3
      &  ,OCNGEOM,ocngmfile,ocndata4atm
      &  ,bc_data
+     &  ,PRTREND
 Cjrs     &  ,dtatm,dtocn
 #if ( defined IPCC_EMI )
      &  ,init_co2
@@ -276,6 +279,7 @@
       GSOEQ=.false.
       VEGCH=.false.
       TRVEG=.false.
+      PRTREND=.false.
       OCNGEOM=.false.
       do L=1,LM+1
         ghostfv(L)=0.
@@ -347,6 +351,7 @@
       chemdata = 'DATA'
       chem_init = 'init-data_46x11_1991'
       chem_init2 = 'init-data2_46x11_1991'
+      chem_init4pfc = 'undefined'
       chemrstfl = 'undefined'
       nemdatdir = 'TEMDATA'
       emiss_data='edaily.dat'
@@ -618,6 +623,11 @@
       else
         print *,'No diffusion into deep ocean'
       endif
+      if (PRTREND) then
+         print *,' With changes in  stochastic precip'
+      else
+         print *,' Without changes in  stochastic precip'
+      endif
 !#if ( defined PREDICTED_AEROSOL )
 #if ( defined CPL_CHEM )
 Cold  AFBYCF=0.6725
@@ -1027,7 +1037,11 @@
        print *,TSCNTR,' form EXP=',EXPTSF
 !      read(576)EXPTSF
 !      print *,' TSURF form EXP=',EXPTSF
-       read(576)TSURFC,TLANDC
+#if ( defined CLM )
+        read(576)TSURFC,TLANDC
+#else
+        read(576)TSURFC
+#endif
 !      read(576)TLANDC
       endif
         CORSR=1.0