Ignore:
Timestamp:
2019-04-16T10:02:58+02:00 (2 years ago)
Author:
davestorkey
Message:

branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps : changes to top-level modules.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/step.F90

    r10874 r10876  
    4444 
    4545   PUBLIC   stp   ! called by nemogcm.F90 
     46   PUBLIC   update_pointers ! called by nemo_init 
    4647 
    4748   !!---------------------------------------------------------------------- 
     
    329330   END SUBROUTINE stp 
    330331    
     332   SUBROUTINE update_pointers 
     333      !!---------------------------------------------------------------------- 
     334      !!                     ***  ROUTINE update_pointers  *** 
     335      !! 
     336      !! ** Purpose :   Associate temporary pointer arrays. 
     337      !!                For IMMERSE development phase only - to be deleted 
     338      !! 
     339      !! ** Method  : 
     340      !!---------------------------------------------------------------------- 
     341 
     342      ub => uu(:,:,:,Nbb); un => uu(:,:,:,Nnn); ua => uu(:,:,:,Naa) 
     343      vb => vv(:,:,:,Nbb); vn => vv(:,:,:,Nnn); va => vv(:,:,:,Naa) 
     344      wn => ww(:,:,:) 
     345      hdivn => hdiv(:,:,:) 
     346 
     347      tsb => ts(:,:,:,:,Nbb); tsn => ts(:,:,:,:,Nnn); tsa => ts(:,:,:,:,Naa) 
     348 
     349      e3t_b => e3t(:,:,:,Nbb); e3t_n => e3t(:,:,:,Nnn); e3t_a => e3t(:,:,:,Naa) 
     350      e3u_b => e3u(:,:,:,Nbb); e3u_n => e3u(:,:,:,Nnn); e3u_a => e3u(:,:,:,Naa) 
     351      e3v_b => e3v(:,:,:,Nbb); e3v_n => e3v(:,:,:,Nnn); e3v_a => e3v(:,:,:,Naa) 
     352 
     353      e3f_n => e3f(:,:,:) 
     354 
     355      e3w_b  => e3w (:,:,:,Nbb); e3w_n  => e3w (:,:,:,Nnn) 
     356      e3uw_b => e3uw(:,:,:,Nbb); e3uw_n => e3uw(:,:,:,Nnn) 
     357      e3vw_b => e3vw(:,:,:,Nbb); e3vw_n => e3vw(:,:,:,Nnn) 
     358 
     359      gdept_b => gdept(:,:,:,Nbb); gdept_n => gdept(:,:,:,Nnn)  
     360      gdepw_b => gdepw(:,:,:,Nbb); gdepw_n => gdepw(:,:,:,Nnn)  
     361      gde3w_n => gde3w(:,:,:) 
     362 
     363   END SUBROUTINE update_pointers 
     364 
    331365   !!====================================================================== 
    332366END MODULE step 
Note: See TracChangeset for help on using the changeset viewer.