Changeset 286 for codes/icosagcm/trunk/src/check_conserve.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/check_conserve.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/check_conserve.f90

@@ -256 +256 @@
           ij=(j-1)*iim+i
           IF (domain(ind)%own(i,j)) THEN
-!            CALL xyz2lonlat(xyz_i(ij,:),lon,lat) 
-! very bad inlining with intel compiler (>14 ?)
-             xyz(:)=xyz_i(ij,:)
-             xyz(:)=xyz(:)/sqrt(sum(xyz(:)**2))
-             lat=asin(xyz(3))
-             lon=atan2(xyz(2),xyz(1))
-  
+            lat=lat_i(ij)  
             ang=ang+rad*cos(lat)*masse(ij,l)*(ulon(ij,l)+ radomeg*cos(lat))
           END IF