Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diahth.F90

Timestamp:

2018-07-29T11:23:51+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diahth.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DIA/diahth.F90

@@ -311 +311 @@
       END DO
       ! surface boundary condition
-      IF( ln_linssh ) THEN   ;   zthick(:,:) = sshn(:,:)   ;   htc3(:,:) = tsn(:,:,1,jp_tem) * sshn(:,:) * tmask(:,:,1)  
-      ELSE                   ;   zthick(:,:) = 0._wp       ;   htc3(:,:) = 0._wp                                   
+      IF( ln_linssh ) THEN   ;   zthick(:,:) = ssh(:,:,Nnn)   ;   htc3(:,:) = tsn(:,:,1,jp_tem) * ssh(:,:,Nnn) * tmask(:,:,1)
+      ELSE                   ;   zthick(:,:) = 0._wp          ;   htc3(:,:) = 0._wp                                   
       ENDIF
       ! integration down to ilevel