Ignore:
Timestamp:
2008-04-22T18:15:19+02:00 (13 years ago)
Author:
rblod
Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r896 r899  
    130130      evmean   
    131131  
    132 #if defined key_cfg_1d 
     132#if defined key_c1d 
    133133   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   & 
    134134      rig                   ,  &  ! gradient Richardson number 
     
    352352                  zsh2   = 0.5 * 0.5 * ( zdku2 + zdkv2 ) * ze3sqr 
    353353                  zri    = MAX( rn2(ji,jj,jk), 0. ) / ( zsh2 + epsln )  
    354 #if defined key_cfg_1d 
     354#if defined key_c1d 
    355355                  ! save the gradient richardson number 
    356356                  rig(ji,jj,jk) = zri * tmask(ji,jj,jk) 
     
    515515            zucube     = zustar(ji,jj) * zustar(ji,jj) * zustar(ji,jj)  
    516516            zmoa(ji)   = zucube / ( vonk * ( zbuofdep + epsln ) )    
    517 #if defined key_cfg_1d 
     517#if defined key_c1d 
    518518            ! store the surface buoyancy forcing 
    519519            zstabl        = 0.5 + SIGN( 0.5, zbuofdep ) 
     
    744744               ! Save the Richardson number  
    745745               zria  (ji)   = zrib   
    746 #if defined key_cfg_1d 
     746#if defined key_c1d 
    747747               ! store buoyancy length scale 
    748748               buof(ji,jj,jk) = zbuofdep * tmask(ji,jj,jk)  
Note: See TracChangeset for help on using the changeset viewer.