- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/NST/agrif_oce_update.F90
r13216 r13899 85 85 86 86 Agrif_UseSpecialValueInUpdate = .FALSE. 87 Agrif_SpecialValueFineGrid = 0.87 Agrif_SpecialValueFineGrid = 0._wp 88 88 89 89 use_sign_north = .TRUE. 90 sign_north = -1.90 sign_north = -1._wp 91 91 92 92 ! … … 144 144 ! 145 145 Agrif_UseSpecialValueInUpdate = .TRUE. 146 Agrif_SpecialValueFineGrid = 0. 146 Agrif_SpecialValueFineGrid = 0._wp 147 147 # if ! defined DECAL_FEEDBACK_2D 148 148 CALL Agrif_Update_Variable(sshn_id,procname = updateSSH) … … 156 156 IF ( ln_dynspg_ts.AND.ln_bt_fw ) THEN 157 157 use_sign_north = .TRUE. 158 sign_north = -1. 158 sign_north = -1._wp 159 159 ! Refluxing on ssh: 160 160 # if defined DECAL_FEEDBACK_2D
Note: See TracChangeset
for help on using the changeset viewer.