Changeset 7977


Ignore:
Timestamp:
2017-04-26T18:31:32+02:00 (3 years ago)
Author:
jchanut
Message:

Uncomplete removal of key_vvl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

    r7971 r7977  
    325325                  DO ji=i1,i2 
    326326                     IF( tabres(ji,jj,jk,jn) .NE. 0. ) THEN  
    327 #if defined key_vvl 
    328327                        tsn(ji,jj,jk,jn) = tabres(ji,jj,jk,jn) / fse3t_n(ji,jj,jk) 
    329 #else 
    330                         tsn(ji,jj,jk,jn) = tabres(ji,jj,jk,jn) 
    331 #endif 
    332328                     END IF 
    333329                  END DO 
Note: See TracChangeset for help on using the changeset viewer.