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

codes/icosagcm/trunk/src/dissip_gcm.f90

@@ -540 +540 @@
 
            nn = ij+shift_u
-           CALL xyz2lonlat(xyz_e(nn,:),lon,lat)
            zcoords = 1 ; hybrid_eta = .FALSE. ! use z instead of p or hyam/hybm
-           CALL test2_schaer_mountain(lon,lat,p,z,zcoords,hybrid_eta, &
+           CALL test2_schaer_mountain(lon_e(nn),lat_e(nn),p,z,zcoords,hybrid_eta, &
                 hyam,hybm,shear,ulon,ulat,w,t,phis,ps,rho,q)
 !           u3d = ulon*elon_e(nn,:) + ulat*elat_e(nn,:)