Changeset 9065 for branches/2017/dev_merge_2017

Timestamp:

2017-12-14T18:00:50+01:00 (6 years ago)

Author:

jchanut

Message:

Revert to previous version

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

@@ -916 +916 @@
                ! 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(:,:,:)
+!               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(:,:,:)
+                sshn(:,:)=0._wp
+                e3t_n(:,:,:)=e3t_0(:,:,:)
+                e3t_b(:,:,:)=e3t_0(:,:,:)
                !
             END IF           ! end of ll_wd edits