/[MITgcm]/MITgcm/pkg/aim_v23/aim_do_co2.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_do_co2.F

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

revision 1.1 by dfer, Mon Jan 5 15:15:33 2009 UTC revision 1.3 by jmc, Tue Apr 28 23:27:24 2009 UTC
# Line 77  C- First compute global mole flux at air Line 77  C- First compute global mole flux at air
77       &               * rA(i,j,bi,bj) * deltaT       &               * rA(i,j,bi,bj) * deltaT
78           ENDDO           ENDDO
79          ENDDO          ENDDO
80          _GLOBAL_SUM_R8(total_flux,myThid)          _GLOBAL_SUM_RL(total_flux,myThid)
81    
82    
83          IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN          IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN
# Line 118  C- If restart, read moles number from pi Line 118  C- If restart, read moles number from pi
118            WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(ilo:ihi)            WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(ilo:ihi)
119            CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid)            CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid)
120    
121            CALL WRITE_0D_R8( atpco2_check, INDEX_NONE, 'atpco2_check =',            CALL WRITE_0D_RL( atpco2_check, INDEX_NONE, 'atpco2_check =',
122       &     ' /* pCo2 from pickup file */')       &     ' /* pCo2 from pickup file */')
123            CALL WRITE_0D_R8( atpco2, INDEX_NONE, 'atpco2 =',            CALL WRITE_0D_RL( atpco2, INDEX_NONE, 'atpco2 =',
124       &     ' /* pCo2 from Atm_CO2_Moles */')       &     ' /* pCo2 from Atm_CO2_Moles */')
125    
126  c        ELSE  c        ELSE
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22