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 10785 for NEMO/releases/release-4.0/src/ICE/ice1d.F90 – NEMO

Ignore:
Timestamp:
2019-03-20T19:58:40+01:00 (5 years ago)
Author:
clem
Message:

fix tickets #2256 and #2257

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/release-4.0/src/ICE/ice1d.F90

    r10534 r10785  
    123123   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   sv_i_1d       !: 
    124124   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   oa_i_1d       !: 
     125   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   o_i_1d        !: 
    125126   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   a_ip_1d       !: 
    126127   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   v_ip_1d       !: 
    … …  
    209210         &      a_ip_1d (jpij) , v_ip_1d (jpij) , v_i_1d    (jpij) , v_s_1d  (jpij) ,                   & 
    210211         &      h_ip_1d (jpij) , a_ip_frac_1d(jpij) ,                                                   & 
    211          &      sv_i_1d (jpij) , oa_i_1d (jpij) , STAT=ierr(ii) ) 
     212         &      sv_i_1d (jpij) , oa_i_1d (jpij) , o_i_1d    (jpij) , STAT=ierr(ii) ) 
    212213      ! 
    213214      ii = ii + 1 
Note: See TracChangeset for help on using the changeset viewer.