Changeset 11265


Ignore:
Timestamp:
2019-07-12T16:02:06+02:00 (13 months ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : bugfix for AGRIF, see #2285

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynspg_ts.F90

    r11262 r11265  
    285285      !                                   !=  Add bottom stress contribution from baroclinic velocities  =! 
    286286      !                                   !  -----------------------------------------------------------  ! 
    287       CALL drg_init( zu_frc, zv_frc,  zCdU_u, zCdU_v )      ! also provide the barotropic drag coefficients 
     287      CALL dyn_drg_init( zu_frc, zv_frc,  zCdU_u, zCdU_v )      ! also provide the barotropic drag coefficients 
    288288      ! 
    289289      !                                   !=  Add atmospheric pressure forcing  =! 
     
    14461446 
    14471447 
    1448    SUBROUTINE drg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v ) 
    1449       !!---------------------------------------------------------------------- 
    1450       !!                  ***  ROUTINE drg_init  *** 
     1448   SUBROUTINE dyn_drg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v ) 
     1449      !!---------------------------------------------------------------------- 
     1450      !!                  ***  ROUTINE dyn_drg_init  *** 
    14511451      !!                     
    14521452      !! ** Purpose : - add the baroclinic top/bottom drag contribution to  
     
    15651565      ENDIF 
    15661566      ! 
    1567    END SUBROUTINE drg_init 
     1567   END SUBROUTINE dyn_drg_init 
    15681568 
    15691569   SUBROUTINE ts_bck_interp( jn, ll_init,       &   ! <== in 
Note: See TracChangeset for help on using the changeset viewer.