|
Oasis3 4.0.2
|
|
Oasis3 4.0.2
|
00001 ! **************************** 00002 ! * DEALLOCATION SUBROUTINES * 00003 ! **************************** 00004 SUBROUTINE dealloc_anais 00005 ! 00006 !**** DEALLOC_ANAIS 00007 ! 00008 ! Purpose: 00009 ! Deallocate arrays defined in the "anais" module 00010 ! 00011 ! Interface: 00012 ! none 00013 ! 00014 ! Method: 00015 ! Deallocation of arrays allocated in "alloc_anais" or "inipar_alloc" 00016 ! 00017 ! External: 00018 ! none 00019 ! 00020 ! Files: 00021 ! none 00022 ! 00023 ! References: 00024 ! 00025 ! History: 00026 ! -------- 00027 ! Version Programmer Date Description 00028 ! ------------------------------------------------ 00029 ! 2.5 A.Caubel 2002/03/18 created 00030 ! 00031 !*----------------------------------------------------------------------- 00032 ! 00033 !** + DECLARATIONS 00034 ! 00035 !** ++ Use of modules 00036 ! 00037 USE mod_kinds_oasis 00038 USE mod_anais 00039 ! 00040 !** ++ Local declarations 00041 ! 00042 INTEGER (kind=ip_intwp_p) :: il_err 00043 ! 00044 !*----------------------------------------------------------------------- 00045 ! 00046 DEALLOCATE (varmul, stat=il_err) 00047 DEALLOCATE (niwtm) 00048 DEALLOCATE (niwtg) 00049 DEALLOCATE (linit) 00050 DEALLOCATE (ngint) 00051 DEALLOCATE (nmint) 00052 DEALLOCATE (nmesh) 00053 DEALLOCATE (agint) 00054 DEALLOCATE (amint) 00055 IF (allocated(naismfl)) DEALLOCATE (naismfl) 00056 IF (allocated(naismvoi)) DEALLOCATE (naismvoi) 00057 IF (allocated(naisgfl)) DEALLOCATE (naisgfl) 00058 IF (allocated(naisgvoi)) DEALLOCATE (naisgvoi) 00059 00060 ! 00061 !*----------------------------------------------------------------------- 00062 ! 00063 END SUBROUTINE dealloc_anais 00064 ! 00065 !*======================================================================== 00066 SUBROUTINE dealloc_analysis 00067 ! 00068 !**** DEALLOC_ANALYSIS 00069 ! 00070 ! Purpose: 00071 ! Deallocate arrays defined in the "analysis" module 00072 ! 00073 ! Interface: 00074 ! none 00075 ! 00076 ! Method: 00077 ! Deallocation of arrays allocated in "alloc_analysis". 00078 ! 00079 ! External: 00080 ! none 00081 ! 00082 ! Files: 00083 ! none 00084 ! 00085 ! References: 00086 ! 00087 ! History: 00088 ! -------- 00089 ! Version Programmer Date Description 00090 ! ------------------------------------------------ 00091 ! 2.5 A.Caubel 2002/03/18 created 00092 ! 00093 !*----------------------------------------------------------------------- 00094 ! 00095 !** + DECLARATIONS 00096 ! 00097 !** ++ Use of modules 00098 ! 00099 USE mod_analysis 00100 ! 00101 !*----------------------------------------------------------------------- 00102 ! 00103 IF (allocated(ntronca)) DEALLOCATE (ntronca) 00104 DEALLOCATE (ncofld) 00105 DEALLOCATE (neighborg) 00106 DEALLOCATE (nludat) 00107 DEALLOCATE (nlufil) 00108 DEALLOCATE (nlumap) 00109 DEALLOCATE (nlusub) 00110 DEALLOCATE (nluext) 00111 DEALLOCATE (nosper) 00112 DEALLOCATE (notper) 00113 DEALLOCATE (ntinpflx) 00114 DEALLOCATE (ntoutflx) 00115 DEALLOCATE (amskval) 00116 DEALLOCATE (amskvalnew) 00117 DEALLOCATE (acocoef) 00118 DEALLOCATE (abocoef) 00119 DEALLOCATE (abncoef) 00120 DEALLOCATE (afldcoef) 00121 DEALLOCATE (afldcobo) 00122 DEALLOCATE (afldcobn) 00123 DEALLOCATE (cxordbf) 00124 DEALLOCATE (cyordbf) 00125 DEALLOCATE (cxordaf) 00126 DEALLOCATE (cyordaf) 00127 DEALLOCATE (cgrdtyp) 00128 DEALLOCATE (cfldtyp) 00129 DEALLOCATE (cfilfic) 00130 DEALLOCATE (cfilmet) 00131 DEALLOCATE (cconmet) 00132 DEALLOCATE (cfldcoa) 00133 DEALLOCATE (cfldfin) 00134 DEALLOCATE (ccofld) 00135 DEALLOCATE (cbofld) 00136 DEALLOCATE (cbnfld) 00137 DEALLOCATE (ccofic) 00138 DEALLOCATE (cdqdt) 00139 DEALLOCATE (cgrdmap) 00140 DEALLOCATE (cmskrd) 00141 DEALLOCATE (cgrdsub) 00142 DEALLOCATE (ctypsub) 00143 DEALLOCATE (cgrdext) 00144 DEALLOCATE (csper) 00145 DEALLOCATE (ctper) 00146 DEALLOCATE (lsurf) 00147 DEALLOCATE (nscripvoi) 00148 DEALLOCATE (cmap_method) 00149 DEALLOCATE (cfldtype) 00150 DEALLOCATE (crsttype) 00151 DEALLOCATE (nbins) 00152 DEALLOCATE (cnorm_opt) 00153 DEALLOCATE (corder) 00154 !* Vector case 00155 IF (lg_vector) THEN 00156 DEALLOCATE (cg_assoc_input_field) 00157 DEALLOCATE (ig_assoc_input_field) 00158 DEALLOCATE (lrotate) 00159 ENDIF 00160 ! 00161 IF (allocated(cintmet)) DEALLOCATE(cintmet) 00162 IF (allocated(cextmet)) DEALLOCATE(cextmet) 00163 IF (allocated(neighbor)) DEALLOCATE(neighbor) 00164 IF (allocated(nextfl)) DEALLOCATE(nextfl) 00165 IF (allocated(nbofld)) DEALLOCATE(nbofld) 00166 IF (allocated(nbnfld)) DEALLOCATE(nbnfld) 00167 IF (allocated(nmapvoi)) DEALLOCATE(nmapvoi) 00168 IF (allocated(nmapfl)) DEALLOCATE(nmapfl) 00169 IF (allocated(nsubfl)) DEALLOCATE(nsubfl) 00170 IF (allocated(nsubvoi)) DEALLOCATE(nsubvoi) 00171 00172 ! 00173 !*----------------------------------------------------------------------- 00174 ! 00175 END SUBROUTINE dealloc_analysis 00176 ! 00177 !*======================================================================== 00178 SUBROUTINE dealloc_coast 00179 ! 00180 !**** DEALLOC_COAST 00181 ! 00182 ! Purpose: 00183 ! Deallocate arrays defined in the "coast" module 00184 ! 00185 ! Interface: 00186 ! none 00187 ! 00188 ! Method: 00189 ! Deallocation of arrays allocated in "alloc_coast". 00190 ! 00191 ! External: 00192 ! none 00193 ! 00194 ! Files: 00195 ! none 00196 ! 00197 ! References: 00198 ! 00199 ! History: 00200 ! -------- 00201 ! Version Programmer Date Description 00202 ! ------------------------------------------------ 00203 ! 2.5 A.Caubel 2002/03/18 created 00204 ! 00205 !*----------------------------------------------------------------------- 00206 ! 00207 !** + DECLARATIONS 00208 ! 00209 !** ++ Use of modules 00210 ! 00211 00212 00213 USE mod_coast 00214 ! 00215 !*----------------------------------------------------------------------- 00216 ! 00217 DEALLOCATE (npcoast) 00218 ! 00219 !*----------------------------------------------------------------------- 00220 ! 00221 END SUBROUTINE dealloc_coast 00222 ! 00223 !*======================================================================== 00224 SUBROUTINE dealloc_experiment 00225 ! 00226 !**** DEALLOC_EXPERIMENT 00227 ! 00228 ! Purpose: 00229 ! Deallocate arrays defined in the "experiment" module 00230 ! 00231 ! Interface: 00232 ! none 00233 ! 00234 ! Method: 00235 ! Deallocation of arrays allocated in "alloc_experiment". 00236 ! 00237 ! External: 00238 ! none 00239 ! 00240 ! Files: 00241 ! none 00242 ! 00243 ! References: 00244 ! 00245 ! History: 00246 ! -------- 00247 ! Version Programmer Date Description 00248 ! ------------------------------------------------ 00249 ! 2.5 A.Caubel 2002/03/18 created 00250 ! 00251 !*----------------------------------------------------------------------- 00252 ! 00253 !** + DECLARATIONS 00254 ! 00255 !** ++ Use of modules 00256 ! 00257 USE mod_experiment 00258 ! 00259 !*----------------------------------------------------------------------- 00260 ! 00261 DEALLOCATE (nbcplproc) 00262 DEALLOCATE (nbtotproc) 00263 DEALLOCATE (cmodnam) 00264 DEALLOCATE (cmpiarg) 00265 DEALLOCATE (iga_unitmod) 00266 ! 00267 !*----------------------------------------------------------------------- 00268 ! 00269 END SUBROUTINE dealloc_experiment 00270 ! 00271 !*======================================================================== 00272 SUBROUTINE dealloc_extrapol 00273 ! 00274 !**** DEALLOC_EXTRAPOL 00275 ! 00276 ! Purpose: 00277 ! Deallocate arrays defined in the "extrapol" module 00278 ! 00279 ! Interface: 00280 ! none 00281 ! 00282 ! Method: 00283 ! Deallocation of arrays allocated in "alloc_extrapol". 00284 ! 00285 ! External: 00286 ! none 00287 ! 00288 ! Files: 00289 ! none 00290 ! 00291 ! References: 00292 ! 00293 ! History: 00294 ! -------- 00295 ! Version Programmer Date Description 00296 ! ------------------------------------------------ 00297 ! 2.5 A.Caubel 2002/03/18 created 00298 ! 00299 !*----------------------------------------------------------------------- 00300 ! 00301 !** + DECLARATIONS 00302 ! 00303 !** ++ Use of modules 00304 ! 00305 USE mod_extrapol 00306 ! 00307 !*----------------------------------------------------------------------- 00308 ! 00309 DEALLOCATE (niwtn) 00310 DEALLOCATE (niwtng) 00311 IF (allocated(nninnfl)) DEALLOCATE(nninnfl) 00312 IF (allocated(nninnflg)) DEALLOCATE (nninnflg) 00313 DEALLOCATE (lextra) 00314 DEALLOCATE (lweight) 00315 DEALLOCATE (aextra) 00316 DEALLOCATE (nextra) 00317 DEALLOCATE (lextrapdone) 00318 IF (allocated(iaddress)) DEALLOCATE (iaddress) 00319 IF (allocated(iincre)) DEALLOCATE (iincre) 00320 IF (allocated(zweights)) DEALLOCATE (zweights) 00321 ! 00322 !*----------------------------------------------------------------------- 00323 ! 00324 END SUBROUTINE dealloc_extrapol 00325 ! 00326 !* CMCC optimization >> 00327 !* CMCC - routine for deallocation of variables introduced 00328 ! for the use of remapping weights arrays 00329 !*======================================================================== 00330 SUBROUTINE dealloc_scrip 00331 ! 00332 !**** DEALLOC_SCRIP 00333 ! 00334 ! Purpose: 00335 ! Deallocate arrays defined in the "scrip" module 00336 ! 00337 ! Interface: 00338 ! none 00339 ! 00340 ! External: 00341 ! none 00342 ! 00343 ! Files: 00344 ! none 00345 ! 00346 ! References: 00347 ! 00348 ! History: 00349 ! -------- 00350 ! Version Programmer Date Description 00351 ! ----------------------------------------------------- 00352 ! 3.3 S. Mocavero(CMCC) 08/11/16 created 00353 ! 00354 !*----------------------------------------------------------------------- 00355 ! 00356 !** + DECLARATIONS 00357 ! 00358 !** ++ Use of modules 00359 ! 00360 USE mod_scrip 00361 USE mod_comclim 00362 USE mod_parameter 00363 USE mod_unit 00364 USE mod_string 00365 00366 INTEGER jf 00367 00368 DO jf = 1, ig_nfield 00369 IF (ALLOCATED(sweight_flag)) THEN 00370 IF (sweight_flag(jf)) THEN 00371 DEALLOCATE (sdst_addr(jf)%dstarray) 00372 DEALLOCATE (sweigth(jf)%warray) 00373 DEALLOCATE (ssrc_addr(jf)%srcarray) 00374 ENDIF 00375 ENDIF 00376 END DO 00377 00378 IF (allocated(ssrc_addr)) DEALLOCATE (ssrc_addr) 00379 IF (allocated(sdst_addr)) DEALLOCATE (sdst_addr) 00380 IF (allocated(sweigth)) DEALLOCATE (sweigth) 00381 IF (allocated(snum_links)) DEALLOCATE (snum_links) 00382 IF (allocated(snum_wgts)) DEALLOCATE (snum_wgts) 00383 IF (allocated(sweight_flag)) DEALLOCATE (sweight_flag) 00384 00385 END SUBROUTINE dealloc_scrip 00386 !* CMCC optimization << 00387 00388 ! 00389 !*======================================================================== 00390 SUBROUTINE dealloc_memory 00391 ! 00392 !**** DEALLOC_MEMORY 00393 ! 00394 ! Purpose: 00395 ! Deallocate arrays defined in the "memory" module 00396 ! 00397 ! Interface: 00398 ! none 00399 ! 00400 ! Method: 00401 ! Deallocation of arrays allocated in "alloc_memory". 00402 ! 00403 ! External: 00404 ! none 00405 ! 00406 ! Files: 00407 ! none 00408 ! 00409 ! References: 00410 ! 00411 ! History: 00412 ! -------- 00413 ! Version Programmer Date Description 00414 ! ------------------------------------------------ 00415 ! 2.5 A.Caubel 2002/03/18 created 00416 ! 00417 !*----------------------------------------------------------------------- 00418 ! 00419 !** + DECLARATIONS 00420 ! 00421 !** ++ Use of modules 00422 ! 00423 USE mod_memory 00424 ! 00425 !*----------------------------------------------------------------------- 00426 ! 00427 DEALLOCATE (nsizold) 00428 DEALLOCATE (nsiznew) 00429 DEALLOCATE (nadrold) 00430 DEALLOCATE (nadrold_grid) 00431 DEALLOCATE (nadrnew) 00432 DEALLOCATE (nadrnew_grid) 00433 DEALLOCATE (mskold) 00434 DEALLOCATE (msknew) 00435 DEALLOCATE (fldold) 00436 DEALLOCATE (xgrold) 00437 DEALLOCATE (ygrold) 00438 DEALLOCATE (surold) 00439 DEALLOCATE (fldnew) 00440 DEALLOCATE (xgrnew) 00441 DEALLOCATE (ygrnew) 00442 DEALLOCATE (surnew) 00443 DEALLOCATE (nwork) 00444 DEALLOCATE (work) 00445 ! 00446 !*----------------------------------------------------------------------- 00447 ! 00448 END SUBROUTINE dealloc_memory 00449 ! 00450 !*======================================================================== 00451 SUBROUTINE dealloc_nproc 00452 ! 00453 !**** DEALLOC_NPROC 00454 ! 00455 ! Purpose: 00456 ! Deallocate arrays defined in the "nproc" module 00457 ! 00458 ! Interface: 00459 ! none 00460 ! 00461 ! Method: 00462 ! Deallocation of arrays allocated in "alloc_nproc". 00463 ! 00464 ! External: 00465 ! none 00466 ! 00467 ! Files: 00468 ! none 00469 ! 00470 ! References: 00471 ! 00472 ! History: 00473 ! -------- 00474 ! Version Programmer Date Description 00475 ! ------------------------------------------------ 00476 ! 2.5 A.Caubel 2002/03/18 created 00477 ! 00478 !*----------------------------------------------------------------------- 00479 ! 00480 !** + DECLARATIONS 00481 ! 00482 !** ++ Use of modules 00483 ! 00484 USE mod_nproc 00485 ! 00486 !*----------------------------------------------------------------------- 00487 ! 00488 DEALLOCATE (nproc) 00489 ! 00490 !*----------------------------------------------------------------------- 00491 ! 00492 END SUBROUTINE dealloc_nproc 00493 ! 00494 !*======================================================================== 00495 SUBROUTINE dealloc_parallel 00496 ! 00497 !**** DEALLOC_ANALYSIS 00498 ! 00499 ! Purpose: 00500 ! Deallocate arrays defined in the "parallel" module 00501 ! 00502 ! Interface: 00503 ! none 00504 ! 00505 ! Method: 00506 ! Deallocation of arrays allocated in "alloc_parallel". 00507 ! 00508 ! External: 00509 ! none 00510 ! 00511 ! Files: 00512 ! none 00513 ! 00514 ! References: 00515 ! 00516 ! History: 00517 ! -------- 00518 ! Version Programmer Date Description 00519 ! ------------------------------------------------ 00520 ! 2.5 A.Caubel 2002/03/18 created 00521 ! 00522 !*----------------------------------------------------------------------- 00523 ! 00524 !** + DECLARATIONS 00525 ! 00526 !** ++ Use of modules 00527 ! 00528 USE mod_parallel 00529 ! 00530 !*----------------------------------------------------------------------- 00531 ! 00532 DEALLOCATE (nparal) 00533 DEALLOCATE (cparal) 00534 ! 00535 !*----------------------------------------------------------------------- 00536 ! 00537 END SUBROUTINE dealloc_parallel 00538 ! 00539 !*======================================================================== 00540 SUBROUTINE dealloc_pipe 00541 ! 00542 !**** DEALLOC_PIPE 00543 ! 00544 ! Purpose: 00545 ! Deallocate arrays defined in the "pipe" module 00546 ! 00547 ! Interface: 00548 ! none 00549 ! 00550 ! Method: 00551 ! Deallocation of arrays allocated in "alloc_pipe". 00552 ! 00553 ! External: 00554 ! none 00555 ! 00556 ! Files: 00557 ! none 00558 ! 00559 ! References: 00560 ! 00561 ! History: 00562 ! -------- 00563 ! Version Programmer Date Description 00564 ! ------------------------------------------------ 00565 ! 2.5 A.Caubel 2002/03/18 created 00566 ! 00567 !*----------------------------------------------------------------------- 00568 ! 00569 !** + DECLARATIONS 00570 ! 00571 !** ++ Use of modules 00572 ! 00573 USE mod_pipe 00574 ! 00575 !*----------------------------------------------------------------------- 00576 ! 00577 DEALLOCATE (cprnam) 00578 DEALLOCATE (cpwnam) 00579 ! 00580 !*----------------------------------------------------------------------- 00581 ! 00582 END SUBROUTINE dealloc_pipe 00583 ! 00584 !*======================================================================== 00585 SUBROUTINE dealloc_rainbow 00586 ! 00587 !**** DEALLOC_RAINBOW 00588 ! 00589 ! Purpose: 00590 ! Deallocate arrays defined in the "rainbow" module 00591 ! 00592 ! Interface: 00593 ! none 00594 ! 00595 ! Method: 00596 ! Deallocation of arrays allocated in "alloc_rainbow". 00597 ! 00598 ! External: 00599 ! none 00600 ! 00601 ! Files: 00602 ! none 00603 ! 00604 ! References: 00605 ! 00606 ! History: 00607 ! -------- 00608 ! Version Programmer Date Description 00609 ! ------------------------------------------------ 00610 ! 2.5 A.Caubel 2002/03/18 created 00611 ! 00612 !*----------------------------------------------------------------------- 00613 ! 00614 !** + DECLARATIONS 00615 ! 00616 !** ++ Use of modules 00617 ! 00618 USE mod_rainbow 00619 ! 00620 !*----------------------------------------------------------------------- 00621 ! 00622 DEALLOCATE (lmapp) 00623 DEALLOCATE (lsubg) 00624 DEALLOCATE (amapp) 00625 DEALLOCATE (asubg) 00626 DEALLOCATE (nmapp) 00627 DEALLOCATE (nsubg) 00628 ! 00629 !*----------------------------------------------------------------------- 00630 ! 00631 END SUBROUTINE dealloc_rainbow 00632 ! 00633 !*======================================================================== 00634 SUBROUTINE dealloc_sipc 00635 ! 00636 !**** DEALLOC_SIPC 00637 ! 00638 ! Purpose: 00639 ! Deallocate arrays defined in the "sipc" module 00640 ! 00641 ! Interface: 00642 ! none 00643 ! 00644 ! Method: 00645 ! Deallocation of arrays allocated in "alloc_sipc". 00646 ! 00647 ! External: 00648 ! none 00649 ! 00650 ! Files: 00651 ! none 00652 ! 00653 ! References: 00654 ! 00655 ! History: 00656 ! -------- 00657 ! Version Programmer Date Description 00658 ! ------------------------------------------------ 00659 ! 2.5 A.Caubel 2002/03/18 created 00660 ! 00661 !*----------------------------------------------------------------------- 00662 ! 00663 !** + DECLARATIONS 00664 ! 00665 !** ++ Use of modules 00666 ! 00667 USE mod_sipc 00668 ! 00669 !*----------------------------------------------------------------------- 00670 ! 00671 DEALLOCATE (mpoolidin) 00672 DEALLOCATE (mpoolidou) 00673 DEALLOCATE (mpoolinitr) 00674 DEALLOCATE (mpoolinitw) 00675 ! 00676 !*----------------------------------------------------------------------- 00677 ! 00678 END SUBROUTINE dealloc_sipc 00679 !*======================================================================== 00680 SUBROUTINE dealloc_gsip 00681 ! 00682 !**** DEALLOC_GSIP 00683 ! 00684 ! Purpose: 00685 ! Deallocate arrays defined in the "gsip" module 00686 ! 00687 ! Interface: 00688 ! none 00689 ! 00690 ! Method: 00691 ! Deallocation of arrays allocated in "alloc_gsip". 00692 ! 00693 ! External: 00694 ! none 00695 ! 00696 ! Files: 00697 ! none 00698 ! 00699 ! References: 00700 ! 00701 ! History: 00702 ! -------- 00703 ! Version Programmer Date Description 00704 ! ------------------------------------------------ 00705 ! 3_2-3 S. Valcke 2004/10/28 created 00706 ! 00707 !*----------------------------------------------------------------------- 00708 ! 00709 !** + DECLARATIONS 00710 ! 00711 !** ++ Use of modules 00712 ! 00713 USE mod_gsip 00714 ! 00715 !*----------------------------------------------------------------------- 00716 ! 00717 DEALLOCATE (iga_gsipw) 00718 DEALLOCATE (iga_gsipr) 00719 ! 00720 !*----------------------------------------------------------------------- 00721 ! 00722 END SUBROUTINE dealloc_gsip 00723 ! 00724 !*======================================================================== 00725 SUBROUTINE dealloc_string 00726 ! 00727 !**** DEALLOC_STRING 00728 ! 00729 ! Purpose: 00730 ! Deallocate arrays defined in the "string" module 00731 ! 00732 ! Interface: 00733 ! none 00734 ! 00735 ! Method: 00736 ! Deallocation of arrays allocated in "alloc_string". 00737 ! 00738 ! External: 00739 ! none 00740 ! 00741 ! Files: 00742 ! none 00743 ! 00744 ! References: 00745 ! 00746 ! History: 00747 ! -------- 00748 ! Version Programmer Date Description 00749 ! ------------------------------------------------ 00750 ! 2.5 A.Caubel 2002/03/18 created 00751 ! 00752 !*----------------------------------------------------------------------- 00753 ! 00754 !** + DECLARATIONS 00755 ! 00756 !** ++ Use of modules 00757 ! 00758 USE mod_string 00759 USE mod_parameter 00760 ! 00761 !*----------------------------------------------------------------------- 00762 ! 00763 IF (lg_oasis_field) THEN 00764 DEALLOCATE (numlab) 00765 DEALLOCATE (nfexch) 00766 DEALLOCATE (nluinp) 00767 DEALLOCATE (nluout) 00768 DEALLOCATE (nseqn) 00769 DEALLOCATE (nlagn) 00770 DEALLOCATE (cnaminp) 00771 DEALLOCATE (cnamout) 00772 DEALLOCATE (cficinp) 00773 DEALLOCATE (cficout) 00774 DEALLOCATE (cstate) 00775 DEALLOCATE (ig_portin_id) 00776 DEALLOCATE (ig_portout_id) 00777 DEALLOCATE (cficbf) 00778 DEALLOCATE (cficaf) 00779 DEALLOCATE (nlonbf) 00780 DEALLOCATE (nlatbf) 00781 DEALLOCATE (nlonaf) 00782 DEALLOCATE (nlataf) 00783 DEALLOCATE (ig_ntrans) 00784 DEALLOCATE (canal) 00785 DEALLOCATE (ig_grid_nbrbf) 00786 DEALLOCATE (ig_grid_nbraf) 00787 ENDIF 00788 00789 DEALLOCATE (ig_lag) 00790 DEALLOCATE (lg_state) 00791 DEALLOCATE (ig_no_rstfile) 00792 DEALLOCATE (cg_name_rstfile) 00793 DEALLOCATE (ig_numlab) 00794 DEALLOCATE (ig_freq) 00795 DEALLOCATE (ig_total_nseqn) 00796 DEALLOCATE (cg_input_field) 00797 DEALLOCATE (cg_output_field) 00798 DEALLOCATE (ig_total_state) 00799 DEALLOCATE (ig_local_trans) 00800 DEALLOCATE (cg_input_file) 00801 DEALLOCATE (ig_number_field) 00802 DEALLOCATE (ig_total_ntrans) 00803 DEALLOCATE (cg_restart_file) 00804 DEALLOCATE (cga_locatorbf) 00805 DEALLOCATE (cga_locatoraf) 00806 DEALLOCATE (ig_invert) 00807 DEALLOCATE (ig_reverse) 00808 ! 00809 !*----------------------------------------------------------------------- 00810 ! 00811 END SUBROUTINE dealloc_string 00812 ! 00813 !*======================================================================== 00814 SUBROUTINE dealloc_timestep 00815 ! 00816 !**** DEALLOC_TIMESTEP 00817 ! 00818 ! Purpose: 00819 ! Deallocate arrays defined in the "timestep" module 00820 ! 00821 ! Interface: 00822 ! none 00823 ! 00824 ! Method: 00825 ! Deallocation of arrays allocated in "alloc_timestep". 00826 ! 00827 ! External: 00828 ! none 00829 ! 00830 ! Files: 00831 ! none 00832 ! 00833 ! References: 00834 ! 00835 ! History: 00836 ! -------- 00837 ! Version Programmer Date Description 00838 ! ------------------------------------------------ 00839 ! 2.5 A.Caubel 2002/03/18 created 00840 ! 00841 !*----------------------------------------------------------------------- 00842 ! 00843 !** + DECLARATIONS 00844 ! 00845 !** ++ Use of modules 00846 ! 00847 USE mod_timestep 00848 ! 00849 !*----------------------------------------------------------------------- 00850 ! 00851 DEALLOCATE (mstep) 00852 DEALLOCATE (mfcpl) 00853 DEALLOCATE (mdt) 00854 ! 00855 !*----------------------------------------------------------------------- 00856 ! 00857 END SUBROUTINE dealloc_timestep 00858 ! 00859 !*======================================================================== 00860 SUBROUTINE dealloc_unitncdf 00861 ! 00862 !**** DEALLOC_UNITNCDF 00863 ! 00864 ! Purpose: 00865 ! Deallocate arrays defined in the "unitncdf" module 00866 ! 00867 ! Interface: 00868 ! none 00869 ! 00870 ! Method: 00871 ! Deallocation of arrays allocated in "alloc_unitncdf". 00872 ! 00873 ! External: 00874 ! none 00875 ! 00876 ! Files: 00877 ! none 00878 ! 00879 ! References: 00880 ! 00881 ! History: 00882 ! -------- 00883 ! Version Programmer Date Description 00884 ! ------------------------------------------------ 00885 ! 2.5 A.Caubel 2002/03/18 created 00886 ! 00887 !*----------------------------------------------------------------------- 00888 ! 00889 !** + DECLARATIONS 00890 ! 00891 !** ++ Use of modules 00892 ! 00893 USE mod_unitncdf 00894 ! 00895 !*----------------------------------------------------------------------- 00896 ! 00897 DEALLOCATE (nc_inpid) 00898 DEALLOCATE (nc_outid) 00899 ! 00900 !*----------------------------------------------------------------------- 00901 ! 00902 END SUBROUTINE dealloc_unitncdf 00903 ! 00904 !*========================================================================
1.7.4 
