/[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.7 by jscott, Thu Aug 2 15:48:07 2007 UTC revision 1.8 by jscott, Fri Aug 24 19:26:15 2007 UTC
# Line 1880  c 820 WRITE (6,905) TAU,IDAY,TOFDAY Line 1880  c 820 WRITE (6,905) TAU,IDAY,TOFDAY
1880  C     DTATM time step of atm model in hours  C     DTATM time step of atm model in hours
1881  C     precip and evap in mm/day or kg/m**2/day  C     precip and evap in mm/day or kg/m**2/day
1882           do j=1,jm0           do j=1,jm0
1883  #if ( defined OCEAN_3D && defined CPL_OCEANCO2 )  Cjrs #if ( defined OCEAN_3D && defined CPL_OCEANCO2 )
1884             ncallatm=ncallatm+1  #ifdef OCEAN_3D
1885    !jrs           ncallatm=ncallatm+1
1886  ! 020107  ! 020107
1887  !          co24ocean(j)=pC_atm(j)*1.e6  !          co24ocean(j)=pC_atm(j)*1.e6
1888    ! jrs give CO2 even if ocn carbon off
1889             co24ocean(j)=atm_co2(j)             co24ocean(j)=atm_co2(j)
1890  ! 020107  #  ifdef CPL_OCEANCO2
1891             co24ocnan(j)=co24ocnan(j)+co24ocean(j)             co24ocnan(j)=co24ocnan(j)+co24ocean(j)
1892    #  endif
1893  #endif  #endif
1894  #ifdef ML_2D  #ifdef ML_2D
1895  cjrs block only MD_2D  cjrs block only MD_2D
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22