Changeset 8030


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

trunk: bugfix for ticket #1528

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

    r6140 r8030  
    8686   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ssh_bkg, ssh_bkginc   ! Background sea surface height and its increment 
    8787   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   seaice_bkginc         ! Increment to the background sea ice conc 
     88#if defined key_cice && defined key_asminc 
     89   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   ndaice_da             ! ice increment tendency into CICE 
     90#endif 
    8891 
    8992   !! * Substitutions 
     
    339342      ALLOCATE( ssh_iau(jpi,jpj)      ) 
    340343#endif 
     344#if defined key_cice && defined key_asminc 
     345      ALLOCATE( ndaice_da(jpi,jpj)      ) 
     346#endif 
    341347      t_bkginc(:,:,:) = 0.0 
    342348      s_bkginc(:,:,:) = 0.0 
     
    347353#if defined key_asminc 
    348354      ssh_iau(:,:)    = 0.0 
     355#endif 
     356#if defined key_cice && defined key_asminc 
     357      ndaice_da(:,:) = 0.0 
    349358#endif 
    350359      IF ( ( ln_trainc ).OR.( ln_dyninc ).OR.( ln_sshinc ).OR.( ln_seaiceinc ) ) THEN 
Note: See TracChangeset for help on using the changeset viewer.