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 4930 for branches/2014/dev_CNRS1_2014 – NEMO

Ignore:
Timestamp:
2014-12-01T10:57:20+01:00 (9 years ago)
Author:
cetlod
Message:

dev_CNRS1_2014 : merging rev 4614 to 4927 into dev_CNRS1_2014

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_CNRS1_2014/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r4907 r4930  
    112112      REAL(wp), POINTER, DIMENSION(:,:) ::   zsmv_i_1d ! 1-D version of smv_i 
    113113 
    114       REAL(wp), POINTER, DIMENSION(:,:,:) ::   ze_i_1d !: 1-D version of e_i 
     114      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ze_i_1d   !: 1-D version of e_i 
    115115 
    116116      REAL(wp), POINTER, DIMENSION(:,:) ::   zvrel                   ! relative ice / frazil velocity 
     
    479479               qh_i_old(ji,nlay_i+1) = ze_newice(ji) * zv_newfra 
    480480            ENDDO 
    481  
    482481            ! --- Ice enthalpy remapping --- ! 
    483482            CALL lim_thd_ent( 1, nbpac, ze_i_1d(1:nbpac,:,jl) )  
    484  
    485483         ENDDO 
    486484 
Note: See TracChangeset for help on using the changeset viewer.