Changeset 868 for codes/icosagcm/devel/src/diagnostics

Timestamp:

05/16/19 23:52:50 (5 years ago)

Author:

dubos

Message:

devel : temporary deactivation of some features for unstructured mesh driver

Location:

codes/icosagcm/devel/src/diagnostics

Files:

• check_conserve.f90 (modified) (2 diffs)
• observable.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/diagnostics/check_conserve.f90

@@ -56 +56 @@
   USE caldyn_gcm_mod
   USE exner_mod 
-!  USE mpipara, ONLY : is_mpi_master, comm_icosa
   USE omp_para, ONLY : is_master
+  USE grid_param
     TYPE(t_field),POINTER :: f_ps(:)
     TYPE(t_field),POINTER :: f_dps(:)
@@ -69 +69 @@
     REAL(rstd) :: mtot, angtot, rmsdpdt
     REAL(rstd) :: etot, stot, ang_mass, ang_vel, ang_velp, ang_velm, rmsvtot, ztot
+
+    IF(grid_type == grid_unst) RETURN ! FIXME
 
     CALL transfert_request(f_ue,req_e1_vect)

codes/icosagcm/devel/src/diagnostics/observable.f90

@@ -48 +48 @@
     USE omega_mod
     USE kinetic_mod
-
+    USE grid_param
     LOGICAL, INTENT(IN) :: init
     INTEGER :: l
@@ -57 +57 @@
     TYPE(t_field),POINTER :: f_phis(:), f_ps(:), f_mass(:), f_geopot(:), f_theta_rhodz(:), f_u(:), f_W(:), f_q(:)
 !    IF (is_master) PRINT *,'CALL write_output_fields_basic'
+
+    IF(grid_type==grid_unst) RETURN ! FIXME
 
     CALL transfert_request(f_ps,req_i1)