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

codes/icosagcm/trunk/src/physics_interface.f90

@@ -194 +194 @@
        CALL swap_geometry(ind)
        CALL pack_domain_2D(pack_info(ind), Ai, physics_inout%Ai)
-       CALL pack_lonlat(pack_info(ind))
+       CALL pack_domain_2D(pack_info(ind), lon_i, physics_inout%lon)
+       CALL pack_domain_2D(pack_info(ind), lat_i, physics_inout%lat)
     END DO
   END SUBROUTINE init_pack_after
-
-  SUBROUTINE pack_lonlat(info)
-    USE icosa
-    IMPLICIT NONE
-    TYPE(t_pack_info) :: info
-    REAL(rstd) :: lon(iim*jjm), lat(iim*jjm)
-    INTEGER :: ij
-    DO ij=1,iim*jjm
-       CALL xyz2lonlat(xyz_i(ij,:),lon(ij),lat(ij)) 
-    ENDDO
-    CALL pack_domain_2D(info, lon, physics_inout%lon)
-    CALL pack_domain_2D(info, lat, physics_inout%lat)
-  END SUBROUTINE pack_lonlat
 
 !-------------------------------- Pack / Unpack 2D ---------------------------