New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3640 – NEMO

Changeset 3640


Ignore:
Timestamp:
2012-11-23T14:57:56+01:00 (12 years ago)
Author:
pabouttier
Message:

Missing allocation/deallocation in TAM routines - See ticket #1013

Location:
branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/SBC/sbcmod_tam.F90

    r3612 r3640  
    247247!!      CALL sbc_ice_lim_2_adj_tst( kumadt ) ! LIM 2.0 ice model 
    248248!!      CALL sbc_ice_lim_adj_tst( kumadt )   ! LIM 3.0 ice model 
     249#if defined key_gyre 
    249250      CALL sbc_gyre_adj_tst( kumadt )      ! analytical formulation : GYRE configuration 
     251#endif 
    250252!!      CALL sbc_ana_adj_tst( kumadt )       ! analytical formulation : uniform sbc 
    251253      CALL sbc_flx_adj_tst( kumadt )        ! flux formulation 

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/eosbn2_tam.F90

    r3627 r3640  
    769769         ! 
    770770      END SELECT 
     771      CALL wrk_dealloc( jpi, jpj, zws ) 
    771772      ! 
    772773   END SUBROUTINE eos_insitu_2d_tan 

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/trabbl_tam.F90

    r3627 r3640  
    9696         ALLOCATE( utr_bbl_tl  (jpi,jpj), vtr_bbl_tl  (jpi,jpj), & 
    9797            &      ahu_bbl_tl  (jpi,jpj), ahv_bbl_tl  (jpi,jpj), & 
     98            &      ahu_bbl_0_tl  (jpi,jpj), ahv_bbl_0_tl  (jpi,jpj), & 
    9899            &      STAT= ierr(1) ) 
    99100         ll_alloctl = .TRUE. 
    … …  
    103104         ALLOCATE( utr_bbl_ad  (jpi,jpj), vtr_bbl_ad  (jpi,jpj), & 
    104105            &      ahu_bbl_ad  (jpi,jpj), ahv_bbl_ad  (jpi,jpj), & 
     106            &      ahu_bbl_0_ad  (jpi,jpj), ahv_bbl_0_ad  (jpi,jpj), & 
    105107            &      STAT= ierr(2) ) 
    106108         ll_allocad = .TRUE. 
    … …  
    125127      IF ( ( kmode == 0 ) .OR. ( kmode == 1 ) .AND. ( ll_alloctl ) ) THEN 
    126128         DEALLOCATE( utr_bbl_tl, vtr_bbl_tl, & 
    127             &      ahu_bbl_tl, ahv_bbl_tl, & 
     129            &      ahu_bbl_0_tl, ahv_bbl_0_tl, & 
    128130            &      STAT= ierr(1) ) 
    129131         ll_alloctl = .FALSE. 
    … …  
    133135         DEALLOCATE( utr_bbl_ad, vtr_bbl_ad, & 
    134136            &      ahu_bbl_ad, ahv_bbl_ad, & 
     137            &      ahu_bbl_0_ad, ahv_bbl_0_ad, & 
    135138            &      STAT= ierr(2) ) 
    136139         ll_allocad = .FALSE. 

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/TRA/traqsr_tam.F90

    r3627 r3640  
    484484      qsr_hc_b_ad(:,:,:) = 0._wp 
    485485 
     486      CALL wrk_dealloc( jpi, jpj,      zekb, zekg, zekr        ) 
     487      CALL wrk_dealloc( jpi, jpj, jpk, ze0ad, ze1ad, ze2ad, ze3ad, zeaad ) 
     488 
    486489      IF( nn_timing == 1 )  CALL timing_stop('tra_qsr_adj') 
    487490 

  • branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/dotprodfld.F90

    r3611 r3640  
    6161         & pvec2 
    6262      !! * Local declarations 
    63       dot_product_3d = glob_sum(pvec1(:,:,:) * pvec2(:,:,:))!= glob_sum( & 
    64          !&                       PACK( pvec1(nldi:nlei,nldj:nlej,:),.TRUE.) * & 
    65          !&                       PACK( pvec2(nldi:nlei,nldj:nlej,:),.TRUE.),  & 
    66          !&                       (nlei-nldi+1) * (nlej-nldj+1) * jpk ) 
     63 
     64      dot_product_3d = glob_sum( & 
     65         &                       PACK( pvec1(nldi:nlei,nldj:nlej,:),.TRUE.) * & 
     66         &                       PACK( pvec2(nldi:nlei,nldj:nlej,:),.TRUE.),  & 
     67         &                       (nlei-nldi+1) * (nlej-nldj+1) * jpk ) 
    6768 
    6869   END FUNCTION dot_product_3d 
Note: See TracChangeset for help on using the changeset viewer.