/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_calc_tensor.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_calc_tensor.F

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

revision 1.3 by dimitri, Fri May 30 22:24:25 2008 UTC revision 1.4 by dimitri, Fri May 30 23:18:08 2008 UTC
# Line 1010  CBFK Add the submesoscale contribution, Line 1010  CBFK Add the submesoscale contribution,
1010  CBFK Add in the mu vertical structure factor  CBFK Add in the mu vertical structure factor
1011          DO j=1-Oly+1,sNy+Oly-1          DO j=1-Oly+1,sNy+Oly-1
1012           DO i=1-Olx+1,sNx+Olx-1           DO i=1-Olx+1,sNx+Olx-1
 #ifdef ALLOW_KPP  
           hml=KPPhbl(i,j,bi,bj)  
 #else  
1013            hml=hMixLayer(i,j,bi,bj)            hml=hMixLayer(i,j,bi,bj)
 #endif  
1014            IF (hml.gt.0 _d 0) THEN            IF (hml.gt.0 _d 0) THEN
1015             recip_hml=1 _d 0/hml             recip_hml=1 _d 0/hml
1016            ELSE            ELSE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22