Ignore:
Timestamp:
2010-12-19T16:07:50+01:00 (11 years ago)
Author:
rblod
Message:

Correct Agrif inconstency for ssh, nemo_v3_3_beta version, see ticket #669

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

    r2393 r2487  
    9393      !!   *** ROUTINE recompute_diags *** 
    9494      !!--------------------------------------------- 
    95       USE divcur 
    96       USE sshwzv 
    97 !      USE cla 
    98  
    9995      INTEGER, INTENT(in) :: kt 
    100  
    101       ta = hdivb 
    102       sa = rotb 
    103       Call div_cur(kt) 
    104  
    105       hdivb = ta 
    106       rotb  = sa 
    107  
    108 !      IF( n_cla == 1 ) CALL div_cla( kt ) 
    109 !      CALL wzv( kt ) 
    11096 
    11197   END SUBROUTINE recompute_diags 
Note: See TracChangeset for help on using the changeset viewer.