Changeset 8410

Timestamp:

2017-08-07T17:43:51+02:00 (7 years ago)

Author:

clem

Message:

correction on the last commit

Location:

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3

Files:

• icecor1.F90 (deleted)
• icecor2.F90 (deleted)
• iceerr1.F90 (added)
• iceerr2.F90 (added)
• icestp.F90 (modified) (3 diffs)
• limitd_th.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

@@ -40 +40 @@
    USE limwri          ! Ice outputs
    USE limrst          ! Ice restarts
-   USE icecor1         ! Ice corrections after dynamics
-   USE icecor2         ! Ice corrections after thermo
+   USE iceerr1         ! Ice corrections after dynamics
+   USE iceerr2         ! Ice corrections after thermo
    USE limvar          ! Ice variables switch
    USE limctl          !
@@ -157 +157 @@
             IF( nn_limdyn == 2 .AND. nn_monocat /= 2 )  &      ! -- ridging/rafting
                &                      CALL ice_rdgrft         
-            IF( nn_limdyn == 2 )      CALL ice_cor1( kt )      ! -- Corrections
+            IF( nn_limdyn == 2 )      CALL ice_err1( kt )      ! -- Corrections
             !
          ENDIF
@@ -196 +196 @@
          ! END MV MP 2016
 
-         IF( ln_limthd )              CALL ice_cor2( kt )       ! -- Corrections
+         IF( ln_limthd )              CALL ice_err2( kt )       ! -- Corrections
          ! ---
 # if defined key_agrif

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

@@ -36 +36 @@
 
    PUBLIC   lim_itd_th_rem   ! called in limthd
-   PUBLIC   lim_itd_th_reb   ! called in icecor
+   PUBLIC   lim_itd_th_reb   ! called in iceerr
 
    !!----------------------------------------------------------------------