Changeset 15626

Timestamp:

2022-01-04T18:24:17+01:00 (2 years ago)

Author:

techene

Message:

#2605 VORTEX should pass sette TBC

Location:

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE

Files:

• DOM/istate.F90 (modified) (1 diff)
• IOM/restart.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/istate.F90

@@ -169 +169 @@
          uu_b(:,:,Kbb) = uu_b(:,:,Kbb) * r1_hu(:,:,Kbb)
          vv_b(:,:,Kbb) = vv_b(:,:,Kbb) * r1_hv(:,:,Kbb)
+         !
+         uu_b(:,:,Kmm)   = uu_b(:,:,Kbb)   ! Kmm value set to Kbb for initialisation in Agrif_Regrid
+         vv_b(:,:,Kmm)   = vv_b(:,:,Kbb)
          ! 
 #if defined key_RK3

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/IOM/restart.F90

@@ -291 +291 @@
       CALL iom_get( numror, jpdom_auto, 'uu_b' , uu_b(:,:       ,Kbb), cd_type = 'U', psgn = -1._wp )
       CALL iom_get( numror, jpdom_auto, 'vv_b' , vv_b(:,:       ,Kbb), cd_type = 'V', psgn = -1._wp )
-      uu(:,:,:  ,Kmm) = uu(:,:,:  ,Kbb)         ! all now value set to before for initialisation (sbc_ssm_init)
+      uu(:,:,:  ,Kmm) = uu(:,:,:  ,Kbb)         ! Kmm values set to Kbb for initialisation (sbc_ssm_init)
       vv(:,:,:  ,Kmm) = vv(:,:,:  ,Kbb)
       ts(:,:,:,:,Kmm) = ts(:,:,:,:,Kbb)
+      !
+      uu_b(:,:,Kmm)   = uu_b(:,:,Kbb)           ! Kmm value set to Kbb for initialisation in Agrif_Regrid
+      vv_b(:,:,Kmm)   = vv_b(:,:,Kbb)
 #else
       !                             !*  Read Kmm fields   (MLF only)