New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13669 for NEMO/branches/UKMO/NEMO_4.0.1_implicit_ice_drag/src/OCE/ZDF/zdfphy.F90 – NEMO

Ignore:
Timestamp:
2020-10-23T19:23:00+02:00 (3 years ago)
Author:
dancopsey
Message:

Merge in implicit sea ice drag code from NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_implicit_ice_drag/src/OCE/ZDF/zdfphy.F90

    r11715 r13669  
    2828   USE sbc_oce        ! surface module (only for nn_isf in the option compatibility test) 
    2929   USE sbcrnf         ! surface boundary condition: runoff variables 
     30   USE sbc_ice        ! sea ice drag 
     31 
    3032#if defined key_agrif 
    3133   USE agrif_oce_interp   ! interpavm 
     
    252254      ENDIF 
    253255      ! 
     256      IF ( ln_drgice_imp) THEN 
     257         IF ( ln_isfcav ) THEN 
     258            rCdU_top(:,:) = rCdU_top(:,:) + ssmask(:,:) * tmask(:,:,1) * rCdU_ice(:,:) 
     259         ELSE 
     260            rCdU_top(:,:) = rCdU_ice(:,:) 
     261         ENDIF 
     262      ENDIF 
     263      !  
    254264      !                       !==  Kz from chosen turbulent closure  ==!   (avm_k, avt_k) 
    255265      ! 
Note: See TracChangeset for help on using the changeset viewer.