Context Navigation

zdfphy.F90

Timestamp:

2020-11-27T17:26:33+01:00 (4 years ago)

Author:

mathiot

Message:

ticket #1900: update branch to trunk and add ICB test case

Location:

NEMO/branches/2020/tickets_icb_1900

Files:

Property svn:externals

-                      old
+                      new
 ^/utils/build/makenemo@HEAD   makenemo
 ^/utils/build/mk@HEAD         mk
 ^/utils/tools/@HEAD           tools
+^/utils/tools@HEAD            tools
 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF
 ^/vendors/FCM@HEAD            ext/FCM
 …
 # SETTE
 ^/utils/CI/sette@12931        sette
+^/utils/CI/sette@13559        sette

-                      r13226
+                      r13899
    USE sbc_oce        ! surface module (only for nn_isf in the option compatibility test)
    USE sbcrnf         ! surface boundary condition: runoff variables
+   USE sbc_ice        ! sea ice drag
 #if defined key_agrif
    USE agrif_oce_interp   ! interpavm
 …
       ENDIF
+      !
+#if defined key_si3
+      IF ( ln_drgice_imp) THEN
+         IF ( ln_isfcav ) THEN
+            rCdU_top(:,:) = rCdU_top(:,:) + ssmask(:,:) * tmask(:,:,1) * rCdU_ice(:,:)
+         ELSE
+            rCdU_top(:,:) = rCdU_ice(:,:)
+         ENDIF
+      ENDIF
+#endif
+      !
       !                       !==  Kz from chosen turbulent closure  ==!   (avm_k, avt_k)
+      !
 …
+      !
    END SUBROUTINE zdf_phy
    INTEGER FUNCTION zdf_phy_alloc()
       !!----------------------------------------------------------------------

Note: See TracChangeset for help on using the changeset viewer.