psmile_store_data_rm_mask.F90

Go to the documentation of this file.
00001 !-----------------------------------------------------------------------
00002 ! Copyright 2010, DKRZ, Hamburg, Germany.
00003 ! All rights reserved. Use is subject to OASIS4 license terms.
00004 !-----------------------------------------------------------------------
00005 !
00006 ! !DESCRIPTION:
00007 !
00008 ! The routine psmile_store_data_rm_mask removes a mask that has been
00009 ! previously defined by psmile_store_data_mask (prism_set_mask).
00010 !
00011 !
00012 ! !REVISION HISTORY:
00013 !
00014 !   Date      Programmer   Description
00015 ! ----------  ----------   -----------
00016 ! 27.10.10    M. Hanke     created
00017 !
00018 !----------------------------------------------------------------------
00019 !
00020 !  $Id: psmile_store_data_rm_mask.F90 2743 2010-11-18 10:54:43Z hanke $
00021 !  $Author: hanke $
00022 !
00023 !----------------------------------------------------------------------
00024 
00025 subroutine psmile_store_data_rm_mask (mask_id, ierror)
00026 
00027    use psmile_user_data, only : test_user_mask_id, mask_data
00028    use psmile_common, only : ch_id
00029 
00030    implicit none
00031 
00032    integer, intent(in)  :: mask_id
00033    integer, intent(out) :: ierror
00034 
00035 #ifdef VERBOSE
00036    print 9990, trim(ch_id)
00037    call psmile_flushstd
00038 #endif /* VERBOSE */
00039 
00040    ierror = 0
00041    call test_user_mask_id (mask_id, ierror)
00042 
00043    deallocate (mask_data(mask_id)%mask_actual_shape)
00044    deallocate (mask_data(mask_id)%mask)
00045 
00046    nullify (mask_data(mask_id)%mask_actual_shape)
00047    nullify (mask_data(mask_id)%mask)
00048 
00049 #ifdef VERBOSE
00050    print 9980, trim(ch_id), ierror
00051    call psmile_flushstd
00052 #endif /* VERBOSE */
00053 
00054 9990 format (1x, a, ': psmile_store_data_rm_mask: ')
00055 9980 format (1x, a, ': psmile_store_data_rm_mask: eof ierror =', i5)
00056 
00057 end subroutine psmile_store_data_rm_mask