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 12199 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/abl.F90 – NEMO

Ignore:
Timestamp:
2019-12-12T09:30:08+01:00 (4 years ago)
Author:
laurent
Message:

Catches up with SBCBLK bugfixes of branch "dev_r12072_MERGE_OPTION2_2019"

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/abl.F90

    r12182 r12199  
    22   !!====================================================================== 
    33   !!                      ***  MODULE  abl  *** 
    4    !! Abl        :  ABL dynamics and active tracers defined in memory  
     4   !! Abl        :  ABL dynamics and active tracers defined in memory 
    55   !!====================================================================== 
    66   USE par_kind        ! abl parameters 
    7    
     7 
    88   IMPLICIT NONE 
    99   PRIVATE 
    10    !! --------------------------                            !  
     10   !! --------------------------                            ! 
    1111   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:)   ::   u_abl        !: i-horizontal velocity   [m/s] 
    1212   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:)   ::   v_abl        !: j-horizontal velocity   [m/s] 
    13    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:,:) ::   tq_abl       !: 4D T-q fields           [Kelvin,kg/kg]  
     13   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:,:) ::   tq_abl       !: 4D T-q fields           [Kelvin,kg/kg] 
    1414   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   avm_abl      !: turbulent viscosity   [m2/s] 
    1515   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::   avt_abl      !: turbulent diffusivity [m2/s] 
    … …  
    2121   ! 
    2222   INTEGER , PUBLIC :: nt_n, nt_a       !: now / after indices (equal 1 or 2) 
    23    !  
     23   ! 
    2424   !!---------------------------------------------------------------------- 
    2525   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    26    !! $Id: abl.F90 4990 2014-12-15 16:42:49Z timgraham $  
     26   !! $Id: abl.F90 4990 2014-12-15 16:42:49Z timgraham $ 
    2727   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    2828   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.