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 13214 for NEMO/trunk/src/ABL/abl.F90 – NEMO

Ignore:
Timestamp:
2020-07-02T11:09:01+02:00 (4 years ago)
Author:
smasson
Message:

trunk: Mid-year merge, merge back dev_r12563_ASINTER-06_ABL_improvement

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ABL/abl.F90

    r12489 r13214  
    2929   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   avm_abl      !: turbulent viscosity   [m2/s] 
    3030   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   avt_abl      !: turbulent diffusivity [m2/s] 
    31    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   mxl_abl      !: mixing length         [m] 
     31   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   mxld_abl     !: dissipative mixing length    [m] 
     32   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   mxlm_abl     !: master mixing length         [m] 
    3233   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:)   ::   tke_abl      !: turbulent kinetic energy [m2/s2] 
    3334   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       ::   fft_abl      !: Coriolis parameter    [1/s] 
    … …  
    5556      !!---------------------------------------------------------------------- 
    5657      ! 
    57       ALLOCATE( u_abl  (1:jpi,1:jpj,1:jpka,jptime), & 
    58          &      v_abl  (1:jpi,1:jpj,1:jpka,jptime), & 
    59          &      tq_abl (1:jpi,1:jpj,1:jpka,jptime,jptq), & 
    60          &      avm_abl(1:jpi,1:jpj,1:jpka), & 
    61          &      avt_abl(1:jpi,1:jpj,1:jpka), & 
    62          &      mxl_abl(1:jpi,1:jpj,1:jpka), &          
    63          &      tke_abl(1:jpi,1:jpj,1:jpka,jptime), & 
    64          &      fft_abl(1:jpi,1:jpj), & 
    65          &      pblh   (1:jpi,1:jpj), &          
    66          &      msk_abl(1:jpi,1:jpj), & 
    67          &      rest_eq(1:jpi,1:jpj), &          
    68          &      e3t_abl(1:jpka), e3w_abl(1:jpka), ght_abl(1:jpka), ghw_abl(1:jpka),                 STAT=ierr ) 
     58      ALLOCATE( u_abl   (1:jpi,1:jpj,1:jpka,jptime     ), & 
     59         &      v_abl   (1:jpi,1:jpj,1:jpka,jptime     ), & 
     60         &      tq_abl  (1:jpi,1:jpj,1:jpka,jptime,jptq), & 
     61         &      tke_abl (1:jpi,1:jpj,1:jpka,jptime     ), & 
     62         &      avm_abl (1:jpi,1:jpj,1:jpka            ), & 
     63         &      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            ), & 
     66         &      fft_abl (1:jpi,1:jpj                   ), & 
     67         &      pblh    (1:jpi,1:jpj                   ), & 
     68         &      msk_abl (1:jpi,1:jpj                   ), & 
     69         &      rest_eq (1:jpi,1:jpj                   ), & 
     70         &      e3t_abl (1:jpka), e3w_abl(1:jpka)       , & 
     71         &      ght_abl (1:jpka), ghw_abl(1:jpka)       , STAT=ierr ) 
    6972         ! 
    7073      abl_alloc = ierr 
Note: See TracChangeset for help on using the changeset viewer.