Changeset 9632 for utils

Timestamp:

2018-05-25T12:23:11+02:00 (5 years ago)

Author:

jchanut

Message:

Correct child velocity points lat/lon interpolation, #2082

File:

• utils/tools/NESTING/src/agrif_create_coordinates.f90 (modified) (1 diff)

utils/tools/NESTING/src/agrif_create_coordinates.f90

@@ -91 +91 @@
 
   !      
-  CALL agrif_interp(G0%glamt,G1%glamt,'T')            
-  CALL agrif_interp(G0%glamf,G1%glamf,'F')       
-  G1%glamu = G1%glamf
-  G1%glamv = G1%glamt    
+  !> M. Dunphy ticket 2082:
+  CALL agrif_interp(G0%glamt,G1%glamt,'T')
+  CALL agrif_interp(G0%glamf,G1%glamf,'F')
+!  G1%glamu = G1%glamf
+!  G1%glamv = G1%glamt
+  CALL agrif_interp(G0%glamu,G1%glamu,'U')
+  CALL agrif_interp(G0%glamv,G1%glamv,'V') 
   !
   CALL agrif_interp(G0%gphit,G1%gphit,'T')
   CALL agrif_interp(G0%gphif,G1%gphif,'F')
-  G1%gphiu = G1%gphit
-  G1%gphiv = G1%gphif
+!  G1%gphiu = G1%gphit
+!  G1%gphiv = G1%gphif
+  CALL agrif_interp(G0%gphiu,G1%gphiu,'U')
+  CALL agrif_interp(G0%gphiv,G1%gphiv,'V')
+  !<  M. Dunphy ticket 2082
   !
   !