Changeset 8410


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

correction on the last commit

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
Files:
2 added
2 deleted
2 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 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

    r8409 r8410  
    3636 
    3737   PUBLIC   lim_itd_th_rem   ! called in limthd 
    38    PUBLIC   lim_itd_th_reb   ! called in icecor 
     38   PUBLIC   lim_itd_th_reb   ! called in iceerr 
    3939 
    4040   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.