Changeset 12732 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2020-04-09T21:06:01+02:00 (11 months ago)

Author:

techene

Message:

some cleaning and proper module/routine name, mini bug introduced and corrected in sbcice_cice

File:

• NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynspg_ts.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/dynspg_ts.F90

@@ -388 +388 @@
          zhup2_e(:,:) = hu(:,:,Kmm)
          zhvp2_e(:,:) = hv(:,:,Kmm)
-!!st not used ?         zhtp2_e(:,:) = ht_(:,:)
+         zhtp2_e(:,:) = ht(:,:)
       ENDIF
       !