Changeset 12749 for NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90

Timestamp:

2020-04-15T15:49:42+02:00 (4 years ago)

Author:

gsamson

Message:

ABL code cleaning and small bugfixes; modify shared and ORCA2_ICE_ABL cfgs files accordingly (ticket #2419)

File:

• NEMO/branches/2020/dev_r12563_ASINTER-06_ABL_improvement/src/ABL/abl.F90 (modified) (2 diffs)

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

@@ -39 +39 @@
    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       ::   msk_abl
    REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)       ::   rest_eq
-   
-   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)     ::    cft_abl
-   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:  )     ::   taux_abl
-   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:  )     ::   tauy_abl  
    !
    INTEGER , PUBLIC :: nt_n, nt_a       !: now / after indices (equal 1 or 2)
@@ -68 +64 @@
          &      mxld_abl(1:jpi,1:jpj,1:jpka            ), &         
          &      mxlm_abl(1:jpi,1:jpj,1:jpka            ), & 
-         &      cft_abl (1:jpi,1:jpj,1:jpka            ), & 
          &      fft_abl (1:jpi,1:jpj                   ), &
          &      pblh    (1:jpi,1:jpj                   ), &         
-         &      taux_abl(1:jpi,1:jpj                   ), &   
-         &      tauy_abl(1:jpi,1:jpj                   ), &        
          &      msk_abl (1:jpi,1:jpj                   ), &
          &      rest_eq (1:jpi,1:jpj                   ), &