Changeset 952 for codes/icosagcm/devel/src/diagnostics/compute_temperature.F90

Timestamp:

07/15/19 12:23:41 (5 years ago)

Author:

dubos

Message:

devel : temperature diagnostics for unstructured mesh

File:

• codes/icosagcm/devel/src/diagnostics/compute_temperature.F90 (modified) (4 diffs)

codes/icosagcm/devel/src/diagnostics/compute_temperature.F90

@@ -8 +8 @@
   SAVE
 
-  PUBLIC :: temperature, compute_temperature
+  PUBLIC :: temperature, compute_temperature_unst, compute_temperature_hex, compute_temperature_manual
 
 #include "../unstructured/unstructured.h90"
@@ -15 +15 @@
   
   SUBROUTINE temperature(f_pmid,f_q,f_temp)
+    USE compute_diagnostics_mod, ONLY : compute_temperature
     USE icosa
     TYPE(t_field), POINTER :: f_pmid(:)         ! IN
@@ -117 +118 @@
   END SUBROUTINE compute_temperature_hex
 
-  SUBROUTINE compute_temperature(pmid,q,temp)
+  SUBROUTINE compute_temperature_manual(pmid,q,temp)
     USE icosa
     USE omp_para
@@ -147 +148 @@
        END DO
     END DO
-  END SUBROUTINE compute_temperature
+  END SUBROUTINE compute_temperature_manual
 
   SUBROUTINE Tv2T(f_Tv, f_q, f_T)