Changeset 11265

Timestamp:

2019-07-12T16:02:06+02:00 (5 years ago)

Author:

smasson

Message:

dev_r10984_HPC-13 : bugfix for AGRIF, see #2285

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynspg_ts.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynspg_ts.F90

@@ -285 +285 @@
       !                                   !=  Add bottom stress contribution from baroclinic velocities  =!
       !                                   !  -----------------------------------------------------------  !
-      CALL drg_init( zu_frc, zv_frc,  zCdU_u, zCdU_v )      ! also provide the barotropic drag coefficients
+      CALL dyn_drg_init( zu_frc, zv_frc,  zCdU_u, zCdU_v )      ! also provide the barotropic drag coefficients
       !
       !                                   !=  Add atmospheric pressure forcing  =!
@@ -1446 +1446 @@
 
 
-   SUBROUTINE drg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v )
-      !!----------------------------------------------------------------------
-      !!                  ***  ROUTINE drg_init  ***
+   SUBROUTINE dyn_drg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v )
+      !!----------------------------------------------------------------------
+      !!                  ***  ROUTINE dyn_drg_init  ***
       !!                    
       !! ** Purpose : - add the baroclinic top/bottom drag contribution to 
@@ -1565 +1565 @@
       ENDIF
       !
-   END SUBROUTINE drg_init
+   END SUBROUTINE dyn_drg_init
 
    SUBROUTINE ts_bck_interp( jn, ll_init,       &   ! <== in