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 8028 – NEMO

Changeset 8028


Ignore:
Timestamp:
2017-05-16T12:07:29+02:00 (7 years ago)
Author:
lovato
Message:

3.4 stable: bugfix for ticket #1528

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r5168 r8028  
    8888   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ssh_bkg, ssh_bkginc   ! Background sea surface height and its increment 
    8989   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   seaice_bkginc         ! Increment to the background sea ice conc 
     90#if defined key_cice 
     91   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ndaice_da             ! ice increment tendency into CICE 
     92#endif 
    9093 
    9194   !! * Substitutions 
     
    368371      ALLOCATE( ssh_iau(jpi,jpj)      ) 
    369372#endif 
     373#if defined key_cice 
     374      ALLOCATE( ndaice_da(jpi,jpj)      ) 
     375#endif  
    370376      t_bkginc(:,:,:) = 0.0 
    371377      s_bkginc(:,:,:) = 0.0 
     
    376382#if defined key_asminc 
    377383      ssh_iau(:,:)    = 0.0 
     384#endif 
     385#if defined key_cice 
     386      ndaice_da(jpi,jpj) = 0.0 
    378387#endif 
    379388      IF ( ( ln_trainc ).OR.( ln_dyninc ).OR.( ln_sshinc ).OR.( ln_seaiceinc ) ) THEN 
Note: See TracChangeset for help on using the changeset viewer.