/[MITgcm]/MITgcm_contrib/bling/pkg/bling_light.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_light.F

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

revision 1.2 by mmazloff, Sun Feb 28 21:49:24 2016 UTC revision 1.3 by mmazloff, Sun May 15 00:30:35 2016 UTC
# Line 146  C convert to sfac Line 146  C convert to sfac
146  c ---------------------------------------------------------------------  c ---------------------------------------------------------------------
147  c  instantaneous light, mixed layer averaged light  c  instantaneous light, mixed layer averaged light
148    
 C$TAF LOOP = parallel  
149        DO j=jmin,jmax        DO j=jmin,jmax
 C$TAF LOOP = parallel  
150         DO i=imin,imax         DO i=imin,imax
151                
152  c  Photosynthetically-available radiations (PAR)  c  Photosynthetically-available radiations (PAR)
# Line 169  cav        ENDIF Line 167  cav        ENDIF
167          tmp_ML     = 0. _d 0          tmp_ML     = 0. _d 0
168  #endif  #endif
169    
 c C$TAF init ml_stuff = static, Nr  
170          DO k=1,Nr          DO k=1,Nr
 c C$TAF STORE SumMLDepth = ml_stuff  
171    
172           IF (hFacC(i,j,k,bi,bj).gt.0) THEN           IF (hFacC(i,j,k,bi,bj).gt.0) THEN
173    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22