/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_radtrans_direct.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_radtrans_direct.F

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

revision 1.1 by jahn, Thu Aug 23 21:53:00 2012 UTC revision 1.2 by jahn, Fri Aug 24 19:45:36 2012 UTC
# Line 200  C compute irradiances Line 200  C compute irradiances
200            amp1(nl,k) = c1            amp1(nl,k) = c1
201            amp2(nl,k) = c2            amp2(nl,k) = c2
202           ENDDO           ENDDO
203             IF (kbot .LT. Nr) THEN
204              Estop(nl,kbot+1) = Esbot(nl,kbot)
205              Eutop(nl,kbot+1) = Eubot(nl,kbot)
206             ENDIF
207    
208  C       endif thresh  C       endif thresh
209          ENDIF          ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22