Changeset 4874 for branches/2014/dev_r4765_CNRS_agrif

Timestamp:

2014-11-19T17:23:22+01:00 (9 years ago)

Author:

jchanut

Message:

Fix small restartability issue

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (2 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -208 +208 @@
 
 #if defined key_dynspg_ts
-   CALL Agrif_Bc_variable(sshn_id,calledweight=1.,procname=interpsshn)
+   Agrif_UseSpecialValue = .TRUE.
+   CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn )
+
+   Agrif_UseSpecialValue = ln_spc_dyn
    CALL Agrif_Bc_variable(unb_id,calledweight=1.,procname=interpunb)
    CALL Agrif_Bc_variable(vnb_id,calledweight=1.,procname=interpvnb)
@@ -721 +724 @@
    visc_dyn      = rn_sponge_dyn
    !
-   IF( agrif_oce_alloc()  > 0 )   CALL ctl_warn('agrif sol_oce_alloc: allocation of arrays failed')
+   IF( agrif_oce_alloc()  > 0 )   CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed')
 # if defined key_lim2
    IF( agrif_ice_alloc()  > 0 )   CALL ctl_stop('agrif agrif_ice_alloc: allocation of arrays failed')