New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8410 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 – NEMO

Ignore:
Timestamp:
2017-08-07T17:43:51+02:00 (7 years ago)
Author:
clem
Message:

correction on the last commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8409 r8410  
    4040   USE limwri          ! Ice outputs 
    4141   USE limrst          ! Ice restarts 
    42    USE icecor1         ! Ice corrections after dynamics 
    43    USE icecor2         ! Ice corrections after thermo 
     42   USE iceerr1         ! Ice corrections after dynamics 
     43   USE iceerr2         ! Ice corrections after thermo 
    4444   USE limvar          ! Ice variables switch 
    4545   USE limctl          ! 
     
    157157            IF( nn_limdyn == 2 .AND. nn_monocat /= 2 )  &      ! -- ridging/rafting 
    158158               &                      CALL ice_rdgrft          
    159             IF( nn_limdyn == 2 )      CALL ice_cor1( kt )      ! -- Corrections 
     159            IF( nn_limdyn == 2 )      CALL ice_err1( kt )      ! -- Corrections 
    160160            ! 
    161161         ENDIF 
     
    196196         ! END MV MP 2016 
    197197 
    198          IF( ln_limthd )              CALL ice_cor2( kt )       ! -- Corrections 
     198         IF( ln_limthd )              CALL ice_err2( kt )       ! -- Corrections 
    199199         ! --- 
    200200# if defined key_agrif 
Note: See TracChangeset for help on using the changeset viewer.