Ignore:
Timestamp:
Nov 5, 2018, 3:24:59 PM (6 years ago)
Author:
Laurent Fairhead
Message:

Undoing merge with trunk (r3356) to properly register Yann's latest modifications

Location:
LMDZ6/branches/DYNAMICO-conv
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/DYNAMICO-conv

  • LMDZ6/branches/DYNAMICO-conv/libf/phylmd/StratAer/interp_sulf_input.F90

    r3356 r3411  
    3232  INTEGER, SAVE :: n_lev   ! number of levels in the input data
    3333  INTEGER n_mth   ! number of months in the input data
     34  REAL OCS_tmp, SO2_tmp
    3435  INTEGER, SAVE :: mth_pre
    3536!$OMP THREADPRIVATE(mth_pre)
    … …  
    237238    DO k=1, klev
    238239      !
    239       !--OCS and SO2 prescribed back to their clim values below p_bound
     240      OCS_tmp=tr_seri(i,k,id_OCS_strat)
     241      SO2_tmp=tr_seri(i,k,id_SO2_strat)
     242      !--OCS and SO2 prescribed below p_bound
    240243      IF (paprs(i,k).GT.p_bound) THEN
    241         budg_3D_backgr_ocs(i,k)=OCS_clim(i,k)-tr_seri(i,k,id_OCS_strat)
    242         budg_3D_backgr_so2(i,k)=SO2_clim(i,k)-tr_seri(i,k,id_SO2_strat)
    243244        tr_seri(i,k,id_OCS_strat)=OCS_clim(i,k)
    244245        tr_seri(i,k,id_SO2_strat)=SO2_clim(i,k)
    245246      ENDIF
     247      budg_3D_backgr_ocs(i,k)=tr_seri(i,k,id_OCS_strat)-OCS_tmp
     248      budg_3D_backgr_so2(i,k)=tr_seri(i,k,id_SO2_strat)-SO2_tmp
    246249    ENDDO
    247250  ENDDO
Note: See TracChangeset for help on using the changeset viewer.