Changeset 565

Timestamp:

10/09/17 01:22:21 (7 years ago)

Author:

dubos

Message:

devel : fix compilation without -dysl

File:

• codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90

@@ -171 +171 @@
           B_il(ij,1) = A_ik(ij,1) + ml_g2 + tau2_g*rho_bot
           R_il(ij,1) = ml_g2*( Phi_il(ij,1)-Phi_star_il(ij,1))  &
-               + tau2_g*( p_ik(ij,1)-pbot+rho_bot*(Phi_il(ij,1)-Phi_bot) )
+               + tau2_g*( p_ik(ij,1)-pbot+rho_bot*(Phi_il(ij,1)-phis(ij)) )
        ENDDO
        ! inner interfaces
@@ -320 +320 @@
 
     IF(tau>0) THEN ! solve implicit problem for geopotential
-       CALL compute_NH_geopot(tau, rhodz, m_il, theta, W, geopot)
+       CALL compute_NH_geopot(tau, phis, rhodz, m_il, theta, W, geopot)
     END IF