/[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.3 by jahn, Wed Dec 4 21:18:32 2013 UTC
# Line 106  C !LOCAL VARIABLES: ==================== Line 106  C !LOCAL VARIABLES: ====================
106        rmuu = darwin_rmuu        rmuu = darwin_rmuu
107    
108  c     find deepest wet layer  c     find deepest wet layer
109        kbot = kmax        kbot = MIN(kmax, Nr)
110        DO WHILE (H(kbot).EQ.0 .AND. kbot.GT.0)        DO WHILE (H(kbot).EQ.0 .AND. kbot.GT.1)
111          kbot = kbot - 1          kbot = kbot - 1
112        ENDDO        ENDDO
113          IF (H(kbot).EQ.0) kbot = kbot - 1
114    
115        DO nl = 1,tlam        DO nl = 1,tlam
116         DO k=1,Nr         DO k=1,Nr
# Line 200  C compute irradiances Line 201  C compute irradiances
201            amp1(nl,k) = c1            amp1(nl,k) = c1
202            amp2(nl,k) = c2            amp2(nl,k) = c2
203           ENDDO           ENDDO
204             IF (kbot .LT. Nr) THEN
205              Estop(nl,kbot+1) = Esbot(nl,kbot)
206              Eutop(nl,kbot+1) = Eubot(nl,kbot)
207             ENDIF
208    
209  C       endif thresh  C       endif thresh
210          ENDIF          ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22