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

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

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

revision 1.2 by jahn, Mon Jul 30 15:21:51 2012 UTC revision 1.3 by jahn, Wed Dec 4 21:18:32 2013 UTC
# Line 104  CEOP Line 104  CEOP
104        rmuu = darwin_rmuu        rmuu = darwin_rmuu
105    
106  c     find deepest wet layer  c     find deepest wet layer
107        kbot = kmax        kbot = MIN(kmax, Nr)
108        DO WHILE (H(kbot).EQ.0 .AND. kbot.GT.1)        DO WHILE (H(kbot).EQ.0 .AND. kbot.GT.1)
109          kbot = kbot - 1          kbot = kbot - 1
110        ENDDO        ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22