Changeset 1047 for codes/icosagcm/trunk/src/time/timeloop_gcm.F90

Timestamp:

08/26/20 11:34:31 (4 years ago)

Author:

ymipsl

Message:

GPU port of sponge layer

YM

File:

• codes/icosagcm/trunk/src/time/timeloop_gcm.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/time/timeloop_gcm.F90

@@ -360 +360 @@
           CALL euler_scheme(.FALSE.)  ! update only u, theta
           IF (iflag_sponge > 0) THEN
-             CALL abort_acc("iflag_sponge>0")
              CALL sponge(f_u,f_du,f_theta_rhodz,f_dtheta_rhodz)
              CALL euler_scheme(.FALSE.)  ! update only u, theta