Changeset 529 for codes/icosagcm/devel/src/hevi_scheme.f90

Timestamp:

01/27/17 16:54:36 (7 years ago)

Author:

dubos

Message:

Updated devel to r526

File:

• codes/icosagcm/devel/src/hevi_scheme.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/hevi_scheme.f90

@@ -4 +4 @@
   USE field_mod
   USE euler_scheme_mod
-  USE caldyn_kernels_base_mod, ONLY : DEC
   IMPLICIT NONE
   PRIVATE
@@ -60 +59 @@
     REAL(rstd),POINTER :: hflux(:,:),wflux(:,:),hfluxt(:,:),wfluxt(:,:)
 
-    IF(DEC) CALL legacy_to_DEC(f_ps, f_u)
+    CALL legacy_to_DEC(f_ps, f_u)
     DO j=1,nb_stage
        CALL caldyn_hevi((j==1) .AND. (MOD(it,itau_out)==0), taujj(j), &
@@ -97 +96 @@
        END DO
     END DO
-    IF(DEC) CALL DEC_to_legacy(f_ps, f_u)
+    CALL DEC_to_legacy(f_ps, f_u)
   END SUBROUTINE HEVI_scheme