/[MITgcm]/MITgcm/model/src/external_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/external_forcing.F

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

revision 1.4 by adcroft, Wed May 5 14:52:49 1999 UTC revision 1.6 by adcroft, Tue Jun 29 18:39:45 1999 UTC
# Line 155  C     Add heat in top-layer Line 155  C     Add heat in top-layer
155         ENDDO         ENDDO
156        ENDIF        ENDIF
157    
158    #ifdef SHORTWAVE_HEATING
159    C Penetrating SW radiation
160          DO j=jMin,jMax
161           DO i=iMin,iMax
162            gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
163         &    - maskC(i,j)*Qsw(i,j,bi,bj)*swfracb(k)
164         &      *recip_Cp*recip_rhoNil*recip_dRf(k)
165           ENDDO
166          ENDDO
167    #endif
168    
169        RETURN        RETURN
170        END        END
171  CStartOfInterface  CStartOfInterface
# Line 203  C     Add fresh-water in top-layer Line 214  C     Add fresh-water in top-layer
214           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
215       &   +maskC(i,j)*(       &   +maskC(i,j)*(
216       &   -lambdaSaltClimRelax*(salt(i,j,kLev,bi,bj)-SSS(i,j,bi,bj))       &   -lambdaSaltClimRelax*(salt(i,j,kLev,bi,bj)-SSS(i,j,bi,bj))
217  #ifndef USE_NATURAL_BCS  #ifdef USE_NATURAL_BCS
218         &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*salt(i,j,kLev,bi,bj)
219    #else
220       &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*35.       &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*35.
221  #endif  #endif
222       &   )       &   )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22