Changeset 9632


Ignore:
Timestamp:
2018-05-25T12:23:11+02:00 (2 years ago)
Author:
jchanut
Message:

Correct child velocity points lat/lon interpolation, #2082

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_create_coordinates.f90

    r2143 r9632  
    9191 
    9292  !       
    93   CALL agrif_interp(G0%glamt,G1%glamt,'T')             
    94   CALL agrif_interp(G0%glamf,G1%glamf,'F')        
    95   G1%glamu = G1%glamf 
    96   G1%glamv = G1%glamt     
     93  !> M. Dunphy ticket 2082: 
     94  CALL agrif_interp(G0%glamt,G1%glamt,'T') 
     95  CALL agrif_interp(G0%glamf,G1%glamf,'F') 
     96!  G1%glamu = G1%glamf 
     97!  G1%glamv = G1%glamt 
     98  CALL agrif_interp(G0%glamu,G1%glamu,'U') 
     99  CALL agrif_interp(G0%glamv,G1%glamv,'V')  
    97100  ! 
    98101  CALL agrif_interp(G0%gphit,G1%gphit,'T') 
    99102  CALL agrif_interp(G0%gphif,G1%gphif,'F') 
    100   G1%gphiu = G1%gphit 
    101   G1%gphiv = G1%gphif 
     103!  G1%gphiu = G1%gphit 
     104!  G1%gphiv = G1%gphif 
     105  CALL agrif_interp(G0%gphiu,G1%gphiu,'U') 
     106  CALL agrif_interp(G0%gphiv,G1%gphiv,'V') 
     107  !<  M. Dunphy ticket 2082 
    102108  ! 
    103109  ! 
Note: See TracChangeset for help on using the changeset viewer.