/[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.2 by jahn, Fri Aug 24 19:45:36 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22