/[MITgcm]/MITgcm/pkg/thsice/thsice_map_exf.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_map_exf.F

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

revision 1.3 by jmc, Fri Apr 27 15:51:28 2007 UTC revision 1.4 by jmc, Fri May 18 02:45:43 2007 UTC
# Line 67  C     i,j   :: current grid point indice Line 67  C     i,j   :: current grid point indice
67  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
68          totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh          totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
69  #endif  #endif
70  #if defined (ALLOW_RUNOFF) || defined (ALLOW_SEAICE)  #ifdef ALLOW_RUNOFF
71          totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh          totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh
72    #else
73            STOP 'ABNORMAL END: S/R THSICE_MAP_EXF: ALLOW_RUNOFF undef'
74  #endif  #endif
75  CML           flxSW (i,j) = -Qsw(i,j,bi,bj)  CML           flxSW (i,j) = -Qsw(i,j,bi,bj)
76  #ifdef ALLOW_DOWNWARD_RADIATION  #ifdef ALLOW_DOWNWARD_RADIATION
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22