/[MITgcm]/MITgcm/pkg/dic/alk_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/alk_surfforcing.F

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

revision 1.3 by stephd, Thu Feb 12 16:11:46 2004 UTC revision 1.4 by jmc, Sun Jul 18 01:13:50 2004 UTC
# Line 29  C  myIter               :: current times Line 29  C  myIter               :: current times
29  C  myTime               :: current time  C  myTime               :: current time
30  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
31  C  PTR_ALK              :: alkalinity field  C  PTR_ALK              :: alkalinity field
32  C  GALK                 :: tendency term of alkalinity  C  GALK                 :: surface flux of alkalinity
33        INTEGER myIter, myThid        INTEGER myIter, myThid
34        _RL myTime        _RL myTime
35        _RL  PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL  PTR_ALK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
# Line 57  C Positive EminusPforV => loss of water Line 57  C Positive EminusPforV => loss of water
57  C in salinity. Thus, also increase in other surface tracers  C in salinity. Thus, also increase in other surface tracers
58  C (i.e. positive virtual flux into surface layer)  C (i.e. positive virtual flux into surface layer)
59  cQQ           GALK(i,j)=gsm_ALK*ftotflux(i,j,bi,bj)/gsm_S  cQQ           GALK(i,j)=gsm_ALK*ftotflux(i,j,bi,bj)/gsm_S
60                GALK(i,j)=gsm_ALK*surfaceTendencyS(i,j,bi,bj)/gsm_S                GALK(i,j)=gsm_ALK*surfaceForcingS(i,j,bi,bj)/gsm_S
61  c OR  c OR
62  c let virtual flux be zero  c let virtual flux be zero
63  c             GALK(i,j)=0.d0  c             GALK(i,j)=0.d0
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22