Changeset 8028
- Timestamp:
- 2017-05-16T12:07:29+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r5168 r8028 88 88 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: ssh_bkg, ssh_bkginc ! Background sea surface height and its increment 89 89 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 90 93 91 94 !! * Substitutions … … 368 371 ALLOCATE( ssh_iau(jpi,jpj) ) 369 372 #endif 373 #if defined key_cice 374 ALLOCATE( ndaice_da(jpi,jpj) ) 375 #endif 370 376 t_bkginc(:,:,:) = 0.0 371 377 s_bkginc(:,:,:) = 0.0 … … 376 382 #if defined key_asminc 377 383 ssh_iau(:,:) = 0.0 384 #endif 385 #if defined key_cice 386 ndaice_da(jpi,jpj) = 0.0 378 387 #endif 379 388 IF ( ( ln_trainc ).OR.( ln_dyninc ).OR.( ln_sshinc ).OR.( ln_seaiceinc ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.