Changeset 685 for codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin

Timestamp:

03/07/18 18:43:51 (6 years ago)

Author:

dubos

Message:

devel/unstructured : towards vertical remapping

File:

• codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin (modified) (3 diffs)

codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin

@@ -1 +1 @@
 {% macro compute_p_and_Aik() %}
 {% set p_and_c2_from_theta=caller %}
-    SEQUENCE_EXT
+    SEQUENCE_C1
       BODY('1,llm')
           rho_ij = (g*m_ik(CELL))/(Phi_il(UP(CELL))-Phi_il(CELL))
@@ -20 +20 @@
 
   ! compute Phi_star
-  SEQUENCE_EXT
+  SEQUENCE_C1
     BODY('1,llm+1')
       Phi_star_il(CELL) = Phi_il(CELL) + tau*g2*(W_il(CELL)/m_il(CELL)-tau)
@@ -50 +50 @@
     ! Solve -A(l-1)x(l-1) + B(l)x(l) - A(l)x(l+1) = R(l) using Thomas algorithm
 
-    SEQUENCE_EXT
+    SEQUENCE_C1
       ! Compute residual R_il and B_il
       PROLOGUE(1)