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 13159 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL – NEMO

Ignore:
Timestamp:
2020-06-26T10:26:32+02:00 (4 years ago)
Author:
gsamson
Message:

merge trunk@r13136 into ASINTER-06 branch; pass all SETTE tests; results identical to trunk@r13136; ticket #2419

Location:
NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@12931        sette 

  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90

    r12749 r13159  
    6262         &      avm_abl (1:jpi,1:jpj,1:jpka            ), & 
    6363         &      avt_abl (1:jpi,1:jpj,1:jpka            ), & 
    64          &      mxld_abl(1:jpi,1:jpj,1:jpka            ), &          
    65          &      mxlm_abl(1:jpi,1:jpj,1:jpka            ), &  
     64         &      mxld_abl(1:jpi,1:jpj,1:jpka            ), & 
     65         &      mxlm_abl(1:jpi,1:jpj,1:jpka            ), & 
    6666         &      fft_abl (1:jpi,1:jpj                   ), & 
    67          &      pblh    (1:jpi,1:jpj                   ), &          
     67         &      pblh    (1:jpi,1:jpj                   ), & 
    6868         &      msk_abl (1:jpi,1:jpj                   ), & 
    69          &      rest_eq (1:jpi,1:jpj                   ), &          
     69         &      rest_eq (1:jpi,1:jpj                   ), & 
    7070         &      e3t_abl (1:jpka), e3w_abl(1:jpka)       , & 
    7171         &      ght_abl (1:jpka), ghw_abl(1:jpka)       , STAT=ierr ) 

  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/ablrst.F90

    r12770 r13159  
    7474            ENDIF 
    7575            ! 
    76             CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka ) 
     76            CALL iom_open( TRIM(clpath)//TRIM(clname), numraw, ldwrt = .TRUE., kdlev = jpka, cdcomp = 'ABL' ) 
    7777            lrst_abl = .TRUE. 
    7878         ENDIF 
    … …  
    146146      ENDIF 
    147147 
    148       CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar, kdlev = jpka ) 
     148      CALL iom_open ( TRIM(cn_ablrst_indir)//'/'//cn_ablrst_in, numrar ) 
    149149 
    150150      ! Time info 

  • NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/sbcabl.F90

    r12808 r13159  
    335335      IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN 
    336336 
    337         !!------------------------------------------------------------------------------------------- 
    338         !! 2 - Compute Cd x ||U||, Ch x ||U||, Ce x ||U||, and SSQ using now fields 
    339         !!------------------------------------------------------------------------------------------- 
    340    
    341         CALL blk_oce_1( kt,  u_abl(:,:,2,nt_n      ),  v_abl(:,:,2,nt_n      ),   &   !   <<= in 
    342            &                tq_abl(:,:,2,nt_n,jp_ta), tq_abl(:,:,2,nt_n,jp_qa),   &   !   <<= in 
    343            &                sf(jp_slp )%fnow(:,:,1) , sst_m, ssu_m, ssv_m     ,   &   !   <<= in 
    344            &                sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) ,   &   !   <<= in 
    345            &                tsk_m, zssq, zcd_du, zsen, zevp                       )   !   =>> out 
     337         !!------------------------------------------------------------------------------------------- 
     338         !! 2 - Compute Cd x ||U||, Ch x ||U||, Ce x ||U||, and SSQ using now fields 
     339         !!------------------------------------------------------------------------------------------- 
     340 
     341         CALL blk_oce_1( kt,  u_abl(:,:,2,nt_n      ),  v_abl(:,:,2,nt_n      ),   &   !   <<= in 
     342            &                tq_abl(:,:,2,nt_n,jp_ta), tq_abl(:,:,2,nt_n,jp_qa),   &   !   <<= in 
     343            &                sf(jp_slp )%fnow(:,:,1) , sst_m, ssu_m, ssv_m     ,   &   !   <<= in 
     344            &                sf(jp_qsr )%fnow(:,:,1) , sf(jp_qlw )%fnow(:,:,1) ,   &   !   <<= in 
     345            &                tsk_m, zssq, zcd_du, zsen, zevp                       )   !   =>> out 
    346346 
    347347#if defined key_si3 
Note: See TracChangeset for help on using the changeset viewer.