Changeset 12167


Ignore:
Timestamp:
2019-12-11T10:10:28+01:00 (8 months ago)
Author:
mathiot
Message:

change restore old location of rnf block for bit reproducibility

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/TRA/tranxt.F90

    r11987 r12167  
    330330                  ENDIF 
    331331                  ! 
     332                  ! solar penetration (temperature only) 
     333                  IF( ll_traqsr .AND. jn == jp_tem .AND. jk <= nksr )                            &  
     334                     &     ztc_f  = ztc_f  - zfact1 * ( qsr_hc(ji,jj,jk) - qsr_hc_b(ji,jj,jk) )  
     335                  ! 
    332336                  IF( ll_rnf .AND. jk <= nk_rnf(ji,jj) )                                          & 
    333337                     &     ztc_f  = ztc_f  - zfact1 * ( rnf_tsc(ji,jj,jn) - rnf_tsc_b(ji,jj,jn) ) &  
    334338                     &                              * e3t_n(ji,jj,jk) / h_rnf(ji,jj) 
    335                   ! 
    336                   ! solar penetration (temperature only) 
    337                   IF( ll_traqsr .AND. jn == jp_tem .AND. jk <= nksr )                            &  
    338                      &     ztc_f  = ztc_f  - zfact1 * ( qsr_hc(ji,jj,jk) - qsr_hc_b(ji,jj,jk) )  
    339339                  ! 
    340340                  ! ice shelf 
Note: See TracChangeset for help on using the changeset viewer.