Changeset 14125 for NEMO/trunk/src/OCE/DOM/domain.F90

Timestamp:

2020-12-07T20:46:03+01:00 (4 years ago)

Author:

jchanut

Message:

#2222, restore correct ssh initialization from parent grid + suppress useless ice initializations (Clement)

File:

• NEMO/trunk/src/OCE/DOM/domain.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/DOM/domain.F90

@@ -34 +34 @@
 #endif
    USE sshwzv  , ONLY : ssh_init_rst   ! set initial ssh
+#if defined key_agrif
+   USE agrif_oce_interp, ONLY : Agrif_istate_ssh ! ssh interpolated from parent
+#endif
    USE sbc_oce        ! surface boundary condition: ocean
    USE trc_oce        ! shared ocean & passive tracers variab
@@ -178 +181 @@
       !                                 != ssh initialization
       IF( .NOT.l_offline .AND. .NOT.l_SAS ) THEN
-         CALL ssh_init_rst( Kbb, Kmm, Kaa )
+#if defined key_agrif
+         IF ( .NOT.Agrif_root().AND.(ln_init_chfrpar) ) THEN
+            ! Interpolate initial ssh from parent:
+            CALL Agrif_istate_ssh( Kbb, Kmm )
+         ELSE
+#endif
+            CALL ssh_init_rst( Kbb, Kmm, Kaa )
+#if defined key_agrif
+         ENDIF
+#endif
       ELSE
          ssh(:,:,:) = 0._wp