Set cable_runtime%offline in cable_driver_init

CABLE-LSM · Nov 14, 2024 · 93c6cfb · 93c6cfb
1 parent e6b19d9
commit 93c6cfb
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 6 deletions.
diff --git a/src/offline/cable_driver_init.F90 b/src/offline/cable_driver_init.F90
@@ -100,6 +100,8 @@ SUBROUTINE cable_driver_init(mpi_grp)
     READ(10, NML=CABLE)
     CLOSE(10)
 
+    cable_runtime%offline = .TRUE.
+
   END SUBROUTINE cable_driver_init
 
 END MODULE cable_driver_init_mod
diff --git a/src/offline/cable_mpimaster.F90 b/src/offline/cable_mpimaster.F90
@@ -416,8 +416,6 @@ SUBROUTINE mpidrv_master (comm)
        cable_user%MetType = 'gswp'
     ENDIF
 
-    cable_runtime%offline = .TRUE.
-
     IF( l_casacnp  .AND. ( icycle == 0 .OR. icycle > 3 ) )                   &
          STOP 'icycle must be 1 to 3 when using casaCNP'
     IF( ( l_laiFeedbk .OR. l_vcmaxFeedbk ) .AND. ( .NOT. l_casacnp ) )       &

diff --git a/src/offline/cable_mpiworker.F90 b/src/offline/cable_mpiworker.F90
@@ -299,8 +299,6 @@ SUBROUTINE mpidrv_worker (comm)
        cable_user%MetType = 'gswp'
     ENDIF
 
-    cable_runtime%offline = .TRUE.
-
     IF( l_casacnp  .AND. ( icycle == 0 .OR. icycle > 3 ) )                   &
          STOP 'icycle must be 1 to 3 when using casaCNP'
     IF( ( l_laiFeedbk .OR. l_vcmaxFeedbk ) .AND. ( .NOT. l_casacnp ) )       &

diff --git a/src/offline/cable_serial.F90 b/src/offline/cable_serial.F90
@@ -283,8 +283,6 @@ SUBROUTINE serialdrv()
 
 ! END header
 
-  cable_runtime%offline = .TRUE.
-
   ! Open, read and close the consistency check file.
   ! Check triggered by cable_user%consistency_check = .TRUE. in cable.nml
   IF(cable_user%consistency_check) THEN