Changeset 214 for codes/icosagcm/trunk/src/physics_dcmip.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_dcmip.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/physics_dcmip.f90

@@ -12 +12 @@
   REAL(rstd),ALLOCATABLE :: precl_packed(:)
 
-  PUBLIC :: compute_phys_wrap, init_physics, &
-       init_physics_new, full_physics, write_physics
+  PUBLIC :: init_physics, full_physics, write_physics
 
 CONTAINS
 
-!-------------------------- New interface ----------------------
-
-  SUBROUTINE init_physics_new
+  SUBROUTINE init_physics
     USE physics_interface_mod
     IMPLICIT NONE
@@ -63 +60 @@
     CALL output_field("precl",f_precl)
   END SUBROUTINE write_physics
-
-!------------------------ Draft interface -----------------------
-
-  SUBROUTINE init_physics
-    USE physics_interface_mod
-    IMPLICIT NONE
-    testcase=1 ! OK for 4.2 (moist baroclinic instability)
-    CALL getin("dcmip_physics",testcase)
-    nb_extra_physics_2D=1 ! precl
-    nb_extra_physics_3D=0
-  END SUBROUTINE init_physics
-
-  SUBROUTINE compute_phys_wrap(args)
-    USE physics_interface_mod
-    TYPE(t_physics_inout) :: args
-    CALL compute_physics(args%ngrid, args%dt_phys, args%lat, &
-         args%p, args%Temp, args%ulon, args%ulat, args%q(:,:,1), &
-         args%dTemp, args%dulon, args%dulat, args%dq(:,:,1), args%extra_2D(:,1))
-  END SUBROUTINE compute_phys_wrap
-
-!------------------ Interface-independent wrapper ---------------------------
 
   SUBROUTINE compute_physics(ngrid,dt_phys,lat, p,Temp,u,v,q, dTemp,du,dv,dq, precl)