--- MITgcm_contrib/jscott/igsm/src/atmosphere.F	2007/08/24 19:26:15	1.8
+++ MITgcm_contrib/jscott/igsm/src/atmosphere.F	2007/10/15 15:03:55	1.9
@@ -335,8 +335,6 @@
           READ (546)  
   245    continue
       endif
-      WRITE(503) OFFSSW                                                   17.1  
-      REWIND 503                                                          17.2  
 c     CALL FRTR0(IO)                                                      18.   
       KBGN=KINC+1                                                         18.5  
       KM2=KM*2-1                                                          18.51 
@@ -452,20 +450,17 @@
 c      New run
 c      Reading from flin_nep
         read(537)adupt,temco2
-       else
+      else
 c      Restart of the run
 c      Reading from last_nep
-        read(367)adupt,temco2
-!    &          ,temch4,temn2o
-        rewind 367
-       endif
-!
-!      adupt= 1.459814341652516
-!      adupt= 0.9078891180588442
-!      adupt= 0.25
-!      adupt= -0.1123070421398009
-!
-!      adupt= adupt+0.9 ! for vs23
+cjrs   file previously opened in input.F
+       read(367)adupt,temco2
+       CLOSE(367) 
+cjrs        rewind 367
+      endif
+
+cjrs next line per Andrei instruction 10/12/07
+      adupt= 0.0
 
        aduptd=adupt/(365.*JM)
        temnepgl=0.0
@@ -663,13 +658,10 @@
       PERCNT=100.*MELSE/(MSTART-MNOW+1.E-5)                               56.   
       MLAST=MNOW                                                          59.   
 C**** TEST FOR TERMINATION OF RUN                                         60.   
-  200 READ (503,END=210) LABSSW                                           61.   
+  200 continue
 c     HPRNT=TAU.gt.45.0.and.TAU.lt.60.0
 c     HPRNT=TAU.gt.470.0.and.TAU.lt.550.0
       NCOMP=0
-  210 REWIND 503                                                          61.1  
-      IF(LABSSW.EQ.LABEL1) KSS6=1                                         61.2  
-      IF(KSS6.EQ.1) GO TO 800                                             62.   
       IF(TAU+.06125.GE.TAUE) GO TO 820                                    63.   
       JDAY00=JDAY
 C**** IF TIME TO ZERO OUT DIAGNOSTIC ACCUMULATING ARRAYS, DO SO           64.   
@@ -2082,7 +2074,6 @@
       return
 C     CALL ENQJOB                                                        309.   
 C     CALL ENQJOB                                                        310.   
-      IF(KSS6.EQ.1) STOP 12                                              310.1  
       IF(IPFLAG.EQ.0) STOP 13                                            311.   
       STOP 1                                                             312.   
 C****                                                                    313.