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 5146 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC – NEMO

Ignore:
Timestamp:
2015-03-11T18:30:22+01:00 (9 years ago)
Author:
vancop
Message:

Fixes on the LIM3 coupled interface (important for ESMs)

Location:
trunk/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r5123 r5146  
    11991199            ENDDO 
    12001200         ELSE 
     1201            qns_tot(:,:   ) = qns_tot(:,:) + zicefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 
    12011202            DO jl=1,jpl 
    1202                qns_tot(:,:   ) = qns_tot(:,:) + zicefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) 
    12031203               qns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) 
    12041204            ENDDO 
     
    12581258            ENDDO 
    12591259         ELSE 
     1260            qsr_tot(:,:   ) = qsr_tot(:,:) + zicefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 
    12601261            DO jl=1,jpl 
    1261                qsr_tot(:,:   ) = qsr_tot(:,:) + zicefr(:,:) * frcv(jpr_qsrice)%z3(:,:,1) 
    12621262               qsr_ice(:,:,jl) = frcv(jpr_qsrice)%z3(:,:,1) 
    12631263            ENDDO 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r5128 r5146  
    602602      hfx_spr(:,:) = 0._wp   ;   hfx_dif(:,:) = 0._wp  
    603603      hfx_err(:,:) = 0._wp   ;   hfx_err_rem(:,:) = 0._wp 
     604      hfx_err_dif(:,:) = 0._wp 
    604605 
    605606      afx_tot(:,:) = 0._wp   ; 
Note: See TracChangeset for help on using the changeset viewer.