Changeset 7973 for branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2017-04-26T13:57:57+02:00 (7 years ago)

Author:

jchanut

Message:

Allow centred barotropic integration with AGRIF

File:

• branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (3 diffs)

branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -46 +46 @@
    USE iom
    USE ioipsl
-   USE dynspg_oce, ONLY: un_adv, vn_adv ! barotropic velocities     
+   USE dynspg_oce, ONLY: un_adv, vn_adv ! barotropic fluxes     
 
 #if defined key_lim2
@@ -214 +214 @@
       ENDIF
 #if defined key_dynspg_ts
-      CALL iom_put(  "ubar", un_adv(:,:)      )    ! barotropic i-current
+      CALL iom_put(  "ubar", un_adv(:,:)*hur(:,:) )! barotropic i-current
 #else
       CALL iom_put(  "ubar", un_b(:,:)        )    ! barotropic i-current
@@ -231 +231 @@
       ENDIF
 #if defined key_dynspg_ts
-      CALL iom_put(  "vbar", vn_adv(:,:)      )    ! barotropic j-current
+      CALL iom_put(  "vbar", vn_adv(:,:)*hvr(:,:) )! barotropic j-current
 #else
       CALL iom_put(  "vbar", vn_b(:,:)        )    ! barotropic j-current