Ignore:
Timestamp:
2017-04-13T16:21:08+02:00 (4 years ago)
Author:
timgraham
Message:

All wrk_alloc removed

Location:
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/C1D
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/C1D/domc1d.F90

    r7646 r7910  
    1717   USE iom            ! I/O library (iom_get) 
    1818   USE in_out_manager ! I/O manager (ctmp1) 
    19    USE wrk_nemo                      ! Memory allocation 
    2019   USE timing                        ! Timing 
    2120 
     
    5958      REAL(wp) ::  zlam1, zcos_alpha, ze1, ze1deg  ! Case 5 local scalars 
    6059      REAL(wp) ::  zphi1, zsin_alpha, zim05, zjm05 !           
    61       REAL(wp) , POINTER, DIMENSION(:,:) ::  gphidta, glamdta, zdist ! Global lat/lon 
     60      REAL(wp) , DIMENSION(jpidta,jpjdta) ::  gphidta, glamdta, zdist ! Global lat/lon 
    6261      !! 
    6362      NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,   & 
     
    7877902   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
    7978 
    80       CALL wrk_alloc( jpidta,jpjdta,   gphidta, glamdta, zdist ) 
    8179 
    8280      ! ============================= ! 
     
    187185      jpjzoom = iloc(2) + njmpp - 2  ! corner index of the zoom domain. 
    188186 
    189       CALL wrk_dealloc( jpidta,jpjdta,   gphidta, glamdta, zdist ) 
    190187 
    191188      IF (lwp) THEN 
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

    r6140 r7910  
    1818   USE fldread        ! read input fields 
    1919   USE lib_mpp        ! MPP library 
    20    USE wrk_nemo       ! Memory allocation 
    2120   USE timing         ! Timing 
    2221 
     
    143142      INTEGER ::   ik, il0, il1, ii0, ii1, ij0, ij1  ! local integers 
    144143      REAL(wp)::   zl, zi                            ! local floats 
    145       REAL(wp), POINTER, DIMENSION(:) ::  zup, zvp   ! 1D workspace 
     144      REAL(wp), DIMENSION(jpk) ::  zup, zvp   ! 1D workspace 
    146145      !!---------------------------------------------------------------------- 
    147146      ! 
     
    155154      IF( ln_sco ) THEN                   !==   s- or mixed s-zps-coordinate   ==! 
    156155         ! 
    157          CALL wrk_alloc( jpk,   zup, zvp ) 
    158156         ! 
    159157         IF( kt == nit000 .AND. lwp )THEN 
     
    191189         END DO 
    192190         !  
    193          CALL wrk_dealloc( jpk,   zup, zvp ) 
    194191         !  
    195192      ELSE                                !==   z- or zps- coordinate   ==! 
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90

    r6140 r7910  
    2727   USE lib_mpp        ! MPP library 
    2828   USE prtctl         ! Print control 
    29    USE wrk_nemo       ! Memory allocation 
    3029   USE timing         ! Timing 
    3130   USE iom            ! I/O manager 
     
    154153      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    155154      REAL(wp) ::   zua, zva     ! local scalars 
    156       REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zuv_dta   ! Read in data  
     155      REAL(wp), DIMENSION(jpi,jpj,jpk,2) ::   zuv_dta   ! Read in data  
    157156      !!---------------------------------------------------------------------- 
    158157      ! 
    159158      IF( nn_timing == 1 )  CALL timing_start( 'dyn_dmp' ) 
    160159      ! 
    161       CALL wrk_alloc( jpi,jpj,jpk,2,   zuv_dta ) 
    162160      ! 
    163161      !                           !==   read and interpolate U & V current data at kt   ==! 
     
    225223         &                           tab3d_2=va(:,:,:), clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    226224      ! 
    227       CALL wrk_dealloc( jpi,jpj,jpk,2,   zuv_dta ) 
    228225      ! 
    229226      IF( nn_timing == 1 )  CALL timing_stop( 'dyn_dmp') 
Note: See TracChangeset for help on using the changeset viewer.