Changeset 11426


Ignore:
Timestamp:
2019-08-09T12:49:37+02:00 (16 months ago)
Author:
davestorkey
Message:

branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap : Merge in changes from main IMMERSE branch.

Location:
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/DYN/sshwzv.F90

    r11057 r11426  
    109109      ! 
    110110#if defined key_agrif 
    111       Krhs_a = Kaa ; CALL agrif_ssh( kt ) 
     111      Kbb_a = Kbb; Kmm_a = Kmm; Krhs_a = Kaa; CALL agrif_ssh( kt ) 
    112112#endif 
    113113      ! 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/nemogcm.F90

    r11053 r11426  
    170170      ! 
    171171      ! Recursive update from highest nested level to lowest: 
    172       Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nnn    ! agrif_oce module copies of time level indices 
     172      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    173173      CALL Agrif_step_child_adj(Agrif_Update_All) 
    174174      ! 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/OCE/step.F90

    r11057 r11426  
    8787#if defined key_agrif 
    8888      kstp = nit000 + Agrif_Nb_Step() 
     89      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    8990      IF( lk_agrif_debug ) THEN 
    9091         IF( Agrif_Root() .and. lwp)   WRITE(*,*) '---' 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/SAS/nemogcm.F90

    r11053 r11426  
    8989      !                            !-----------------------! 
    9090#if defined key_agrif 
     91      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    9192      CALL Agrif_Declare_Var_dom   ! AGRIF: set the meshes for DOM 
    9293      CALL Agrif_Declare_Var       !  "      "   "   "      "  DYN/TRA  
     
    115116#if defined key_si3 
    116117      ! Recursive update from highest nested level to lowest: 
     118      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    117119      CALL Agrif_step_child_adj(Agrif_update_ice) 
    118120#endif 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/SAS/step.F90

    r11053 r11426  
    7979#if defined key_agrif 
    8080      kstp = nit000 + Agrif_Nb_Step() 
     81      Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs   ! agrif_oce module copies of time level indices 
    8182      IF ( lk_agrif_debug ) THEN 
    8283         IF ( Agrif_Root() .and. lwp) Write(*,*) '---' 
  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/tests/VORTEX/MY_SRC/domvvl.F90

    r11099 r11426  
    9393 
    9494 
    95    SUBROUTINE dom_vvl_init 
     95   SUBROUTINE dom_vvl_init( Kbb, Kmm, Kaa ) 
    9696      !!---------------------------------------------------------------------- 
    9797      !!                ***  ROUTINE dom_vvl_init  *** 
     
    104104      !! 
    105105      !! ** Action  : - e3t_(n/b) and tilde_e3t_(n/b) 
    106       !!              - Regrid: e3(u/v)_n 
    107       !!                        e3(u/v)_b        
     106      !!              - Regrid: e3[u/v](:,:,:,Kmm) 
     107      !!                        e3[u/v](:,:,:,Kmm)        
    108108      !!                        e3w(:,:,:,Kmm)            
    109       !!                        e3(u/v)w_b       
    110       !!                        e3(u/v)w_n       
     109      !!                        e3[u/v]w_b 
     110      !!                        e3[u/v]w_n       
    111111      !!                        gdept(:,:,:,Kmm), gdepw(:,:,:,Kmm) and gde3w 
    112112      !!              - h(t/u/v)_0 
     
    115115      !! Reference  : Leclair, M., and G. Madec, 2011, Ocean Modelling. 
    116116      !!---------------------------------------------------------------------- 
     117      INTEGER, INTENT(in) :: Kbb, Kmm, Kaa 
     118      ! 
    117119      INTEGER ::   ji, jj, jk 
    118120      INTEGER ::   ii0, ii1, ij0, ij1 
     
    130132      ! 
    131133      !                    ! Read or initialize e3t_(b/n), tilde_e3t_(b/n) and hdiv_lf 
    132       CALL dom_vvl_rst( nit000, 'READ' ) 
     134      CALL dom_vvl_rst( nit000, Kbb, Kmm, 'READ' ) 
    133135      e3t(:,:,jpk,Kaa) = e3t_0(:,:,jpk)  ! last level always inside the sea floor set one for all 
    134136      ! 
     
    266268 
    267269 
    268    SUBROUTINE dom_vvl_sf_nxt( kt, kcall )  
     270   SUBROUTINE dom_vvl_sf_nxt( kt, Kbb, Kmm, Kaa, kcall )  
    269271      !!---------------------------------------------------------------------- 
    270272      !!                ***  ROUTINE dom_vvl_sf_nxt  *** 
     
    288290      !! Reference  : Leclair, M., and Madec, G. 2011, Ocean Modelling. 
    289291      !!---------------------------------------------------------------------- 
    290       INTEGER, INTENT( in )           ::   kt      ! time step 
    291       INTEGER, INTENT( in ), OPTIONAL ::   kcall   ! optional argument indicating call sequence 
     292      INTEGER, INTENT( in )           ::   kt             ! time step 
     293      INTEGER, INTENT( in )           ::   Kbb, Kmm, Kaa  ! time step 
     294      INTEGER, INTENT( in ), OPTIONAL ::   kcall          ! optional argument indicating call sequence 
    292295      ! 
    293296      INTEGER                ::   ji, jj, jk            ! dummy loop indices 
     
    563566 
    564567 
    565    SUBROUTINE dom_vvl_sf_swp( kt ) 
     568   SUBROUTINE dom_vvl_sf_swp( kt, Kbb, Kmm, Kaa ) 
    566569      !!---------------------------------------------------------------------- 
    567570      !!                ***  ROUTINE dom_vvl_sf_swp  *** 
     
    587590      !!              Leclair, M., and G. Madec, 2011, Ocean Modelling. 
    588591      !!---------------------------------------------------------------------- 
    589       INTEGER, INTENT( in ) ::   kt   ! time step 
     592      INTEGER, INTENT( in ) ::   kt              ! time step 
     593      INTEGER, INTENT( in ) ::   Kbb, Kmm, Kaa   ! time level indices 
    590594      ! 
    591595      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
     
    669673      ! write restart file 
    670674      ! ================== 
    671       IF( lrst_oce  )   CALL dom_vvl_rst( kt, 'WRITE' ) 
     675      IF( lrst_oce  )   CALL dom_vvl_rst( kt, Kbb, Kmm, 'WRITE' ) 
    672676      ! 
    673677      IF( ln_timing )   CALL timing_stop('dom_vvl_sf_swp') 
     
    783787 
    784788 
    785    SUBROUTINE dom_vvl_rst( kt, cdrw ) 
     789   SUBROUTINE dom_vvl_rst( kt, Kbb, Kmm, cdrw ) 
    786790      !!--------------------------------------------------------------------- 
    787791      !!                   ***  ROUTINE dom_vvl_rst  *** 
     
    795799      !!                they are set to 0. 
    796800      !!---------------------------------------------------------------------- 
    797       INTEGER         , INTENT(in) ::   kt     ! ocean time-step 
    798       CHARACTER(len=*), INTENT(in) ::   cdrw   ! "READ"/"WRITE" flag 
     801      INTEGER         , INTENT(in) ::   kt        ! ocean time-step 
     802      INTEGER         , INTENT(in) ::   Kbb, Kmm  ! ocean time level indices 
     803      CHARACTER(len=*), INTENT(in) ::   cdrw      ! "READ"/"WRITE" flag 
    799804      ! 
    800805      INTEGER ::   ji, jj, jk 
     
    904909                           ssh(ji,jj,Kbb) = rn_wdmin1 - (ht_0(ji,jj) ) 
    905910                           ssh(ji,jj,Kmm) = rn_wdmin1 - (ht_0(ji,jj) ) 
    906                            ssh(ji,jj,Kaa) = rn_wdmin1 - (ht_0(ji,jj) ) 
    907911                        ENDIF 
    908912                     ENDDO 
Note: See TracChangeset for help on using the changeset viewer.