Changeset 214 for codes/icosagcm/trunk/src/physics_interface.f90

Timestamp:

07/15/14 18:23:54 (10 years ago)

Author:

dubos

Message:

New dyn/phys interface - halo points not passed to physics any more (cleanup follows)

File:

• codes/icosagcm/trunk/src/physics_interface.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/physics_interface.f90

@@ -4 +4 @@
 
   PRIVATE
-
-  INTEGER :: nb_extra_physics_2D, nb_extra_physics_3D
 
   TYPE t_physics_inout
@@ -18 +16 @@
      REAL(rstd), DIMENSION(:,:), POINTER :: dTemp, dulon, dulat
      REAL(rstd), DIMENSION(:,:,:), POINTER :: dq
-     ! extra output arrays (physics diagnostics)
-     REAL(rstd), DIMENSION(:,:), POINTER :: extra_2D
-     REAL(rstd), DIMENSION(:,:,:), POINTER :: extra_3D
   END TYPE t_physics_inout
 
-!------------------------ (new interface) --------------------------
 ! physics_inout is used to exchange information with physics
 ! Field ngrid is initialized by physics.f90/init_physics. Its other fields
@@ -33 +27 @@
   TYPE(t_physics_inout), SAVE :: physics_inout
  
-!------------------------ (new interface) --------------------------
 ! pack_info contains indices used by pack/unpack routines
 ! to pack together the data of all the domains managed by the MPI process
 ! It is initialized by physics.f90/init_physics 
+
   TYPE t_pack_info
      INTEGER :: ngrid, & ! number of non-halo points in that domain