Changeset 8030
- Timestamp:
- 2017-05-16T12:19:47+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r6140 r8030 86 86 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: ssh_bkg, ssh_bkginc ! Background sea surface height and its increment 87 87 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 88 91 89 92 !! * Substitutions … … 339 342 ALLOCATE( ssh_iau(jpi,jpj) ) 340 343 #endif 344 #if defined key_cice && defined key_asminc 345 ALLOCATE( ndaice_da(jpi,jpj) ) 346 #endif 341 347 t_bkginc(:,:,:) = 0.0 342 348 s_bkginc(:,:,:) = 0.0 … … 347 353 #if defined key_asminc 348 354 ssh_iau(:,:) = 0.0 355 #endif 356 #if defined key_cice && defined key_asminc 357 ndaice_da(:,:) = 0.0 349 358 #endif 350 359 IF ( ( ln_trainc ).OR.( ln_dyninc ).OR.( ln_sshinc ).OR.( ln_seaiceinc ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.