Changeset 3376 for branches/2012/dev_r3337_NOCS10_ICB
- Timestamp:
- 2012-05-01T08:25:59+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90
r3373 r3376 164 164 !!---------------------------------------------------------------------- 165 165 INTEGER, INTENT( in ) :: kt 166 !167 TYPE(iceberg), POINTER :: this, next168 166 !!---------------------------------------------------------------------- 169 170 ! expanded arrays for bilinear interpolation171 DEALLOCATE( uo_e )172 DEALLOCATE( vo_e )173 DEALLOCATE( ff_e )174 DEALLOCATE( ua_e )175 DEALLOCATE( va_e )176 #if defined key_lim2 || defined key_lim3177 DEALLOCATE( ui_e )178 DEALLOCATE( vi_e )179 #endif180 DEALLOCATE( ssh_e )181 182 DEALLOCATE( nicbfldpts )183 DEALLOCATE( nicbflddest )184 DEALLOCATE( nicbfldproc )185 186 IF (.NOT.ASSOCIATED(berg_grid)) RETURN187 167 188 168 ! only write a restart if not done in icb_stp … … 192 172 IF( nn_sample_rate .GT. 0 ) CALL icb_trj_end() 193 173 194 ! Delete bergs and structures195 this=>first_berg196 DO WHILE (ASSOCIATED(this))197 next=>this%next198 CALL icb_utl_destroy(this)199 this=>next200 END DO201 202 174 CALL icb_dia_end() 203 204 DEALLOCATE(berg_grid%calving)205 DEALLOCATE(berg_grid%calving_hflx)206 DEALLOCATE(berg_grid%stored_heat)207 DEALLOCATE(berg_grid%floating_melt)208 DEALLOCATE(berg_grid%maxclass)209 DEALLOCATE(berg_grid%tmp)210 DEALLOCATE(berg_grid%stored_ice)211 DEALLOCATE(berg_grid)212 213 DEALLOCATE(first_width)214 DEALLOCATE(first_length)215 175 216 176 IF(lwp) WRITE(numout,'(a,i6)') 'icebergs: icb_end complete', narea -
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbutl.F90
r3374 r3376 466 466 IF (ASSOCIATED(berg%next)) berg%next%prev => berg%prev 467 467 ! 468 ! Bye-bye berg469 468 CALL icb_utl_destroy(berg) 470 469 ! … … 485 484 IF( ASSOCIATED( berg%current_point ) ) DEALLOCATE( berg%current_point ) 486 485 ! 487 ! Bye-bye berg488 486 DEALLOCATE(berg) 489 487 !
Note: See TracChangeset
for help on using the changeset viewer.