Changeset 8031


Ignore:
Timestamp:
2017-05-16T12:20:01+02:00 (3 years ago)
Author:
lovato
Message:

3.6 stable: bugfix for ticket #1528

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r5540 r8031  
    8787   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ssh_bkg, ssh_bkginc   ! Background sea surface height and its increment 
    8888   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   seaice_bkginc         ! Increment to the background sea ice conc 
     89#if defined key_cice && defined key_asminc 
     90   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ndaice_da             ! ice increment tendency into CICE 
     91#endif 
    8992 
    9093   !! * Substitutions 
     
    336339      ALLOCATE( ssh_iau(jpi,jpj)      ) 
    337340#endif 
     341#if defined key_cice && defined key_asminc 
     342      ALLOCATE( ndaice_da(jpi,jpj)      ) 
     343#endif 
    338344      t_bkginc(:,:,:) = 0.0 
    339345      s_bkginc(:,:,:) = 0.0 
     
    344350#if defined key_asminc 
    345351      ssh_iau(:,:)    = 0.0 
     352#endif 
     353#if defined key_cice && defined key_asminc 
     354      ndaice_da(:,:) = 0.0 
    346355#endif 
    347356      IF ( ( ln_trainc ).OR.( ln_dyninc ).OR.( ln_sshinc ).OR.( ln_seaiceinc ) ) THEN 
Note: See TracChangeset for help on using the changeset viewer.