Ignore:
Timestamp:
2012-01-28T17:44:18+01:00 (9 years ago)
Author:
rblod
Message:

Merge of 3.4beta into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domngb.F90

    r2715 r3294  
    1111   !!---------------------------------------------------------------------- 
    1212   USE dom_oce        ! ocean space and time domain 
     13   USE in_out_manager ! I/O manager 
    1314   USE lib_mpp        ! for mppsum 
     15   USE wrk_nemo       ! Memory allocation 
     16   USE timing         ! Timing 
    1417 
    1518   IMPLICIT NONE 
     
    3437      !!                -> not good if located at too high latitude... 
    3538      !!---------------------------------------------------------------------- 
    36       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    37       USE wrk_nemo, ONLY:   zglam => wrk_2d_2 , zgphi => wrk_2d_3 , zmask => wrk_2d_4 , zdist => wrk_2d_5 
    3839      ! 
    3940      REAL(wp)        , INTENT(in   ) ::   plon, plat   ! longitude,latitude of the point 
     
    4344      INTEGER , DIMENSION(2) ::   iloc 
    4445      REAL(wp)               ::   zlon, zmini 
     46      REAL(wp), POINTER, DIMENSION(:,:) ::  zglam, zgphi, zmask, zdist 
    4547      !!-------------------------------------------------------------------- 
    4648      ! 
    47       IF( wrk_in_use(2, 2,3,4,5) )   CALL ctl_stop('dom_ngb: Requested workspaces already in use') 
     49      IF( nn_timing == 1 )  CALL timing_start('dom_ngb') 
     50      ! 
     51      CALL wrk_alloc( jpi, jpj, zglam, zgphi, zmask, zdist ) 
    4852      ! 
    4953      zmask(:,:) = 0._wp 
     
    7276      ENDIF 
    7377      ! 
    74       IF( wrk_not_released(2, 2,3,4,5) )   CALL ctl_stop('dom_ngb: error releasing workspaces') 
     78      CALL wrk_dealloc( jpi, jpj, zglam, zgphi, zmask, zdist ) 
     79      ! 
     80      IF( nn_timing == 1 )  CALL timing_stop('dom_ngb') 
    7581      ! 
    7682   END SUBROUTINE dom_ngb 
Note: See TracChangeset for help on using the changeset viewer.