Changeset 13265 for NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbthm.F90

Timestamp:

2020-07-08T13:34:28+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #2494 and #2375: ticket #2494 changes and part of ticket #2375 (lbc_icb_lnk on extended variable at T point removed), ff_e initialisation and lbc_lnk move in the icbini.F90; tests on possible useless lbc_lnk in icbclv not yet done

File:

• NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbthm.F90 (modified) (1 diff)

NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbthm.F90

@@ -83 +83 @@
          pt => this%current_point
          nknberg = this%number(1)
-         CALL icb_utl_interp( pt%xi, pt%e1, pt%uo, pt%ui, pt%ua, pt%ssh_x,   &
-            &                 pt%yj, pt%e2, pt%vo, pt%vi, pt%va, pt%ssh_y,   &
-            &                 pt%sst, pt%cn, pt%hi, zff )
+         IF ( nn_sample_rate > 0 .AND. MOD(kt-1,nn_sample_rate) == 0 ) THEN
+            CALL icb_utl_interp( pt%xi, pt%yj, pe1=pt%e1, pe2=pt%e2,                 &
+               &                 puo=pt%uo, pui=pt%ui, pua=pt%ua, pssh_i=pt%ssh_x,   &
+               &                 pvo=pt%vo, pvi=pt%vi, pva=pt%va, pssh_j=pt%ssh_y,   &
+               &                 psst=pt%sst, pcn=pt%cn, phi=pt%hi,                  &
+               &                 plat=pt%lat, plon=pt%lon                            )
+         ELSE
+            CALL icb_utl_interp( pt%xi, pt%yj,           &   ! position
+               &                 puo=pt%uo, pua=pt%ua,   &   ! oce/atm velocities
+               &                 pvo=pt%vo, pva=pt%va,   &   ! oce/atm velocities
+               &                 psst=pt%sst, pcn=pt%cn )    ! sst and ice concentration
+               ! preparation Nacho add t3d and uo, vo, to basal
+         END IF
          !
          zSST = pt%sst