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 10688 for NEMO/branches – NEMO

Changeset 10688 for NEMO/branches


Ignore:
Timestamp:
2019-02-15T14:42:09+01:00 (5 years ago)
Author:
mathiot
Message:

cosmetic change (ticket #2229)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/fix_ticket2229/src/OCE/ICB/icb_oce.F90

    r10678 r10688  
    170170      ! 
    171171      ! expanded arrays for bilinear interpolation 
    172       ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) ,      & 
    173          &      vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) ,      & 
     172      ALLOCATE( uo_e(0:jpi+1,0:jpj+1) , ua_e(0:jpi+1,0:jpj+1) ,    & 
     173         &      vo_e(0:jpi+1,0:jpj+1) , va_e(0:jpi+1,0:jpj+1) ,    & 
    174174#if defined key_si3 || defined key_cice 
    175          &      ui_e(0:jpi+1,0:jpj+1) ,                              & 
    176          &      vi_e(0:jpi+1,0:jpj+1) ,                              & 
     175         &      ui_e(0:jpi+1,0:jpj+1) ,                            & 
     176         &      vi_e(0:jpi+1,0:jpj+1) ,                            & 
    177177#endif 
    178          &      ff_e(0:jpi+1,0:jpj+1)   , fr_e(0:jpi+1,0:jpj+1)  ,   & 
    179          &      tt_e(0:jpi+1,0:jpj+1)   , ssh_e(0:jpi+1,0:jpj+1) ,   & 
    180          &      hicth(0:jpi+1,0:jpj+1),                              & 
    181          &      first_width(nclasses) , first_length(nclasses) ,     & 
    182          &      src_calving (jpi,jpj) ,                              & 
     178         &      ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1)  ,   & 
     179         &      tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) ,   & 
     180         &      hicth(0:jpi+1,0:jpj+1),                            & 
     181         &      first_width(nclasses) , first_length(nclasses) ,   & 
     182         &      src_calving (jpi,jpj) ,                            & 
    183183         &      src_calving_hflx(jpi,jpj) , STAT=ill) 
    184184      icb_alloc = icb_alloc + ill 
Note: See TracChangeset for help on using the changeset viewer.