Changeset 286 for codes/icosagcm/trunk/src/caldyn_gcm.f90

Timestamp:

10/20/14 23:42:26 (10 years ago)

Author:

dubos

Message:

Partial etat0 cleanup (removed calls to xyz2lonlat)

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -328 +328 @@
   INTEGER :: ij
   DO ij=ij_begin_ext,ij_end_ext
-     CALL xyz2lonlat(xyz_e(ij+u_right,:),lon,lat)
-     ulon(ij+u_right)=a*omega*cos(lat)
+     ulon(ij+u_right)=a*omega*cos(lat_e(ij+u_right))
      ulat(ij+u_right)=0
 
-     CALL xyz2lonlat(xyz_e(ij+u_lup,:),lon,lat)
-     ulon(ij+u_lup)=a*omega*cos(lat)
+     ulon(ij+u_lup)=a*omega*cos(lat_e(ij+u_lup))
      ulat(ij+u_lup)=0
 
-     CALL xyz2lonlat(xyz_e(ij+u_ldown,:),lon,lat)
-     ulon(ij+u_ldown)=a*omega*cos(lat)
+     ulon(ij+u_ldown)=a*omega*cos(lat_e(ij+u_ldown))
      ulat(ij+u_ldown)=0
   END DO