/[MITgcm]/MITgcm/pkg/longstep/LONGSTEP.h
ViewVC logotype

Diff of /MITgcm/pkg/longstep/LONGSTEP.h

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

revision 1.2 by jmc, Sun Jun 28 16:34:22 2009 UTC revision 1.3 by jahn, Wed Sep 9 22:48:02 2009 UTC
# Line 78  C Line 78  C
78  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
79  C     LS_Qsw :: longstep average of net upward shortwave radiation after ice  C     LS_Qsw :: longstep average of net upward shortwave radiation after ice
80  C  C
81        _RS LS_Qsw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL LS_Qsw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82        INTEGER LS_QswCount(nSx,nSy)        INTEGER LS_QswCount(nSx,nSy)
83        COMMON /LONGSTEP_EXTRA_R/ LS_Qsw        COMMON /LONGSTEP_EXTRA_R/ LS_Qsw
84        COMMON /LONGSTEP_EXTRA_I/ LS_QswCount        COMMON /LONGSTEP_EXTRA_I/ LS_QswCount
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22