Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/NST/agrif_user.F90

Timestamp:

2018-07-29T11:23:51+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/NST/agrif_user.F90 (modified) (10 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/NST/agrif_user.F90

@@ -190 +190 @@
    Agrif_UseSpecialValue = .TRUE.
    CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn )
-   hbdy_w(:,:) = 0.e0 ; hbdy_e(:,:) = 0.e0 ; hbdy_n(:,:) = 0.e0 ; hbdy_s(:,:) = 0.e0
-   ssha(:,:) = 0.e0
+   hbdy_w(:,:) = 0._wp   ;   hbdy_e(:,:) = 0._wp 
+   hbdy_n(:,:) = 0._wp   ;   hbdy_s(:,:) = 0._wp
+   !
+   ssh   (:,:,Naa) = 0._wp
 
    IF ( ln_dynspg_ts ) THEN
@@ -199 +201 @@
       CALL Agrif_Bc_variable(ub2b_interp_id,calledweight=1.,procname=interpub2b)
       CALL Agrif_Bc_variable(vb2b_interp_id,calledweight=1.,procname=interpvb2b)
-      ubdy_w(:,:) = 0.e0 ; vbdy_w(:,:) = 0.e0
-      ubdy_e(:,:) = 0.e0 ; vbdy_e(:,:) = 0.e0
-      ubdy_n(:,:) = 0.e0 ; vbdy_n(:,:) = 0.e0
-      ubdy_s(:,:) = 0.e0 ; vbdy_s(:,:) = 0.e0
+      ubdy_w(:,:) = 0._wp   ;   vbdy_w(:,:) = 0._wp
+      ubdy_e(:,:) = 0._wp   ;   vbdy_e(:,:) = 0._wp
+      ubdy_n(:,:) = 0._wp   ;   vbdy_n(:,:) = 0._wp
+      ubdy_s(:,:) = 0._wp   ;   vbdy_s(:,:) = 0._wp
    ENDIF
 
    Agrif_UseSpecialValue = .FALSE. 
-   ! reset velocities to zero
-   ua(:,:,:) = 0.
-   va(:,:,:) = 0.
+   
+   ua(:,:,:) = 0._wp   ! reset velocities to zero
+   va(:,:,:) = 0._wp
 
    ! 3. Some controls
@@ -214 +216 @@
    check_namelist = .TRUE.
 
-   IF( check_namelist ) THEN 
-
-      ! Check time steps           
+   IF( check_namelist ) THEN          
+      ! Check time steps 
       IF( NINT(Agrif_Rhot()) * NINT(rn_Dt) /= Agrif_Parent(rn_Dt) ) THEN
          WRITE(cl_check1,*)  NINT(Agrif_Parent(rn_Dt))
@@ -222 +223 @@
          WRITE(cl_check3,*)  NINT(Agrif_Parent(rn_Dt)/Agrif_Rhot())
          CALL ctl_stop( 'Incompatible time step between ocean grids',   &
-               &               'parent grid value : '//cl_check1    ,   & 
-               &               'child  grid value : '//cl_check2    ,   & 
-               &               'value on child grid should be changed to : '//cl_check3 )
+            &                  'parent grid value : '//cl_check1    ,   & 
+            &                  'child  grid value : '//cl_check2    ,   & 
+            &                  'value on child grid should be changed to : '//cl_check3 )
       ENDIF
 
@@ -292 +293 @@
 END SUBROUTINE Agrif_InitValues_cont
 
+
 SUBROUTINE agrif_declare_var
    !!----------------------------------------------------------------------
@@ -450 +452 @@
 
 #if defined key_si3
+
 SUBROUTINE Agrif_InitValues_cont_ice
    !!----------------------------------------------------------------------
@@ -493 +496 @@
    !
 END SUBROUTINE Agrif_InitValues_cont_ice
+
 
 SUBROUTINE agrif_declare_var_ice
@@ -548 +552 @@
 
 END SUBROUTINE agrif_declare_var_ice
+
 #endif
 
 
 # if defined key_top
+
 SUBROUTINE Agrif_InitValues_cont_top
    !!----------------------------------------------------------------------
@@ -808 +814 @@
 
 #else
+
 SUBROUTINE Subcalledbyagrif
    !!----------------------------------------------------------------------
@@ -814 +821 @@
    WRITE(*,*) 'Impossible to be here'
 END SUBROUTINE Subcalledbyagrif
+
 #endif