Changeset 681 for codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

Timestamp:

02/14/18 00:06:52 (6 years ago)

Author:

dubos

Message:

devel/unstructured : local mesh setup + halo exchange

File:

• codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90 (modified) (3 diffs)

codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

@@ -6 +6 @@
 #endif
   USE caldyn_unstructured_mod
+  USE transfer_unstructured_mod
   IMPLICIT NONE
   PRIVATE
@@ -151 +152 @@
        DO stage=1, nb_stage
           
+          CALL update_halo(transfer_primal, rhodz)
+          CALL update_halo(transfer_primal, theta_rhodz(:,:,1)) ! FIXME
+
           IF(hydrostatic) THEN
              
@@ -163 +167 @@
              
              CALL compute_caldyn_fast(tauj(stage), pk,berni,theta,geopot, du_fast(:,:,stage), u)
-             
+             CALL update_halo(transfer_edge, u)
              CALL compute_pvort_only(rhodz,u,qv,qu)
+             CALL update_halo(transfer_edge, qu)
+
              CALL compute_caldyn_slow_hydro(rhodz,theta,u, berni,hflux,du_slow(:,:,stage))
              CALL compute_coriolis(hflux,theta,qu, bufu1, drhodz(:,:,stage), dtheta_rhodz(:,:,:,stage),du_slow(:,:,stage))