Changeset 9059

Timestamp:

2017-12-14T16:55:30+01:00 (6 years ago)

Author:

jchanut

Message:

Add SSH initialization in domvvl routine for any user defined test case
previously done for WAD only

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -911 +911 @@
                   END DO 
                END DO 
- 
                !
             ELSE
                !
-               e3t_b(:,:,:) = e3t_0(:,:,:)
-               e3t_n(:,:,:) = e3t_0(:,:,:)
-               sshn(:,:) = 0.0_wp
+               ! Just to read set ssh in fact, called latter once vertical grid
+               ! is set up:
+               CALL usr_def_istate( gdept_0, tmask, tsb, ub, vb, sshb  )
+               !
+               DO jk=1,jpk
+                  e3t_b(:,:,jk) =  e3t_0(:,:,jk) * ( ht_0(:,:) + sshb(:,:) ) &
+                     &            / ( ht_0(:,:) + 1._wp -ssmask(:,:) ) * tmask(:,:,jk)
+               END DO
+               e3t_n(:,:,:) = e3t_b(:,:,:)
                !
             END IF           ! end of ll_wd edits