Changeset 14992

Timestamp:

2021-06-14T22:26:12+02:00 (3 years ago)

Author:

techene

Message:

#2605 : debug restartability in debug mode

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90

@@ -325 +325 @@
       !
       IF( .NOT.lk_SWE ) THEN
-         IF( iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0 ) THEN
+         IF(.NOT. (iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0) ) THEN
+#if defined key_RK3
+            CALL eos( ts(:,:,:,:,:), Kbb, rhop)
+#else
+            CALL eos( ts(:,:,:,:,:), Kmm, rhop)
+         ELSE
             CALL iom_get( numror, jpdom_auto, 'rhop'   , rhop )   ! now    potential density
-         ELSE
-#if defined key_qco
-            ALLOCATE( zgdept(jpi,jpj,jpk) )
-            DO jk = 1, jpk
-               zgdept(:,:,jk) = gdept(:,:,jk,Kmm)
-            END DO
-            CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, zgdept )
-            DEALLOCATE( zgdept )
-#else
-            CALL eos( ts(:,:,:,:,Kmm), rhd, rhop, gdept(:,:,:,Kmm) )
 #endif
          ENDIF