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

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

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

revision 1.5 by jscott, Tue May 8 15:55:36 2007 UTC revision 1.7 by jscott, Thu Aug 2 15:48:07 2007 UTC
# Line 117  C  For TEM Line 117  C  For TEM
117  #endif  #endif
118    
119  #if ( defined  CPL_OCEANCO2 )  #if ( defined  CPL_OCEANCO2 )
120  #include "OCM.COM"  #include "OCM.h"
121        common /Garyflux/pC_atm(jm0),wind_amp,fluxco2(jm0)        common /Garyflux/pC_atm(jm0),wind_amp,fluxco2(jm0)
122  #  if ( defined ML_2D )  #  if ( defined ML_2D )
123        common/Garyclim/tggary(jm0),wsgary(jm0),areaml(jm0),arsrf(jm0)        common/Garyclim/tggary(jm0),wsgary(jm0),areaml(jm0),arsrf(jm0)
# Line 365  C**** INITIALIZE TIME PARAMETERS Line 365  C**** INITIALIZE TIME PARAMETERS
365        NSTEP2=NSTEP                                                        29.6          NSTEP2=NSTEP                                                        29.6  
366        MRCHT=0.                                                            29.7          MRCHT=0.                                                            29.7  
367        ITAU=(NSTEP+NSTEP0)*IDTHR                                           30.          ITAU=(NSTEP+NSTEP0)*IDTHR                                           30.  
368        TAU=FLOAT(ITAU)/XINT                                                31.    cjrs changed to dfloat 8/2/07
369          TAU=DFLOAT(ITAU)/XINT                                               31.  
370        IDAY=1+ITAU/I24                                                     32.          IDAY=1+ITAU/I24                                                     32.  
371        TOFDAY=(ITAU-(IDAY-1)*I24)/XINT                                     33.          TOFDAY=(ITAU-(IDAY-1)*I24)/XINT                                     33.  
372  !     if(ISTART.eq.2.or.ISTRT1.eq.0.and..not.CONTRR)then  !     if(ISTART.eq.2.or.ISTRT1.eq.0.and..not.CONTRR)then
# Line 1256  C**** UPDATE MODEL TIME AND CALL DAILY I Line 1257  C**** UPDATE MODEL TIME AND CALL DAILY I
1257  C****                                                                    189.    C****                                                                    189.  
1258    500 NSTEP=NSTEP+NDYN                                                   190.      500 NSTEP=NSTEP+NDYN                                                   190.  
1259        ITAU=(NSTEP+NSTEP0)*IDTHR                                          191.          ITAU=(NSTEP+NSTEP0)*IDTHR                                          191.  
1260        TAU=FLOAT(ITAU)/XINT                                               192.    cJRS fix to DFLOAT 8/2/07
1261          TAU=DFLOAT(ITAU)/XINT                                               192.  
1262        IDAY=1+ITAU/I24                                                    193.          IDAY=1+ITAU/I24                                                    193.  
1263        TOFDAYPR=TOFDAY+1.00        TOFDAYPR=TOFDAY+1.00
1264        TOFDAY=(ITAU-(IDAY-1)*I24)/XINT                                    194.          TOFDAY=(ITAU-(IDAY-1)*I24)/XINT                                    194.  
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22