Remove unnecessary initialisation of CurYear

CABLE-LSM · Nov 20, 2024 · 75a61e0 · 75a61e0
1 parent 02f4d7b
commit 75a61e0
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 6 deletions.
diff --git a/src/offline/cable_mpimaster.F90 b/src/offline/cable_mpimaster.F90
@@ -351,8 +351,6 @@ SUBROUTINE mpidrv_master (comm, trunk_sumbal)
        ENDIF
     ENDIF
 
-    CurYear = CABLE_USER%YearStart
-
     IF ( icycle .GE. 11 ) THEN
        icycle                     = icycle - 10
        CASAONLY                   = .TRUE.

diff --git a/src/offline/cable_mpiworker.F90 b/src/offline/cable_mpiworker.F90
@@ -236,8 +236,6 @@ SUBROUTINE mpidrv_worker (comm)
     IF (CABLE_USER%POPLUC .AND. TRIM(CABLE_USER%POPLUC_RunType) .EQ. 'static') &
          CABLE_USER%POPLUC= .FALSE.
 
-    CurYear = CABLE_USER%YearStart
-
     IF ( icycle .GE. 11 ) THEN
        icycle                     = icycle - 10
        CASAONLY                   = .TRUE.

diff --git a/src/offline/cable_serial.F90 b/src/offline/cable_serial.F90
@@ -286,8 +286,6 @@ SUBROUTINE serialdrv(trunk_sumbal)
      ENDIF
   ENDIF
 
-  CurYear = CABLE_USER%YearStart
-
   IF ( icycle .GE. 11 ) THEN
      icycle                     = icycle - 10
      CASAONLY                   = .TRUE.