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 2236 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF – NEMO

Ignore:
Timestamp:
2010-10-12T20:49:32+02:00 (14 years ago)
Author:
cetlod
Message:

First guess of NEMO_v3.3

Location:
branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF
Files:
11 edited
1 copied

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdf_oce.F90

    r1601 r2236  
    4141   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    4242   !! $Id$  
    43    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     43   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    4444   !!====================================================================== 
    4545END MODULE zdf_oce 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r2104 r2236  
    3030    
    3131   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   bfrua , bfrva   !: Bottom friction coefficients set in zdfbfr 
     32#if defined key_zdfgls 
     33   REAL(wp), PUBLIC                     ::   rn_hbro =  0.003_wp  ! Bottom roughness (m) 
     34   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   wbotu, wbotv    !  Bottom stresses 
     35#endif 
    3236 
    3337   !                                    !!* Namelist nambfr: bottom friction namelist * 
    … …  
    4650   !! NEMO/OPA 3,3 , LOCEAN-IPSL (2010)  
    4751   !! $Id$ 
    48    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     52   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    4953   !!---------------------------------------------------------------------- 
    5054 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r2104 r2236  
    4242   !! NEMO/OPA 3,3 , LOCEAN-IPSL (2010)  
    4343   !! $Id$ 
    44    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     44   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    4545   !!---------------------------------------------------------------------- 
    4646 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfevd.F90

    r1681 r2236  
    3333   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    3434   !! $Id$ 
    35    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)  
     35   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt)  
    3636   !!---------------------------------------------------------------------- 
    3737 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfini.F90

    r1601 r2236  
    2020   USE zdftke_old      ! TKE vertical mixing  (old scheme) 
    2121   USE zdftke          ! TKE vertical mixing 
     22   USE zdfgls          ! GLS vertical mixing 
    2223   USE zdfkpp          ! KPP vertical mixing           
    2324   USE zdfddm          ! double diffusion mixing       
    … …  
    3940   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    4041   !! $Id$ 
    41    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     42   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    4243   !!---------------------------------------------------------------------- 
    4344    
    … …  
    106107         ioptio = ioptio+1 
    107108      ENDIF 
     109      IF( lk_zdfgls ) THEN 
     110         IF(lwp) WRITE(numout,*) '      GLS dependent eddy coefficients' 
     111         ioptio = ioptio+1 
     112      ENDIF 
    108113      IF( lk_zdfkpp ) THEN 
    109114         IF(lwp) WRITE(numout,*) '      KPP dependent eddy coefficients' 
    … …  
    128133         IF(lwp) WRITE(numout,*) '      use the 1.5 turbulent closure' 
    129134      ENDIF 
     135      IF( lk_zdfgls ) THEN 
     136         IF(lwp) WRITE(numout,*) '      use the GLS closure scheme' 
     137      ENDIF 
    130138      IF( lk_zdfkpp ) THEN 
    131139         IF(lwp) WRITE(numout,*) '      use the KPP closure scheme' 
    … …  
    136144      ENDIF 
    137145      IF ( ioptio > 1 .AND. .NOT. lk_esopa )   CALL ctl_stop( ' chose between ln_zdfnpc and ln_zdfevd' ) 
    138       IF( ioptio == 0 .AND. .NOT.( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfkpp ) ) & 
    139          CALL ctl_stop( ' except for TKE sor KPP physics, a convection scheme is', & 
     146      IF( ioptio == 0 .AND. .NOT.( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) ) & 
     147         CALL ctl_stop( ' except for TKE, GLS or KPP physics, a convection scheme is', & 
    140148         &              ' required: ln_zdfevd or ln_zdfnpc logicals' ) 
    141149 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r2104 r2236  
    148148   !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010)  
    149149   !! $Id$ 
    150    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     150   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    151151   !!---------------------------------------------------------------------- 
    152152 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfmxl.F90

    r1585 r2236  
    3131   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
    3232   !! $Id$  
    33    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     33   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    3434   !!---------------------------------------------------------------------- 
    3535 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdfric.F90

    r2104 r2236  
    4646   !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010)  
    4747   !! $Id$ 
    48    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     48   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    4949   !!---------------------------------------------------------------------- 
    5050CONTAINS 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdftke.F90

    r2104 r2236  
    8989 
    9090   REAL(wp), DIMENSION(jpi,jpj)     ::   htau      ! depth of tke penetration (nn_htau) 
    91    REAL(wp), DIMENSION(jpi,jpj,jpk) ::   en        ! now turbulent kinetic energy   [m2/s2] 
     91   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   en        ! now turbulent kinetic energy   [m2/s2] 
    9292   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   dissl     ! now mixing lenght of dissipation 
    9393 
    … …  
    9898   !! NEMO/OPA 3,3 , LOCEAN-IPSL (2010)  
    9999   !! $Id: $ 
    100    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     100   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    101101   !!---------------------------------------------------------------------- 
    102102 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdftke_old.F90

    r2104 r2236  
    9494   !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008)  
    9595   !! $Id$ 
    96    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     96   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    9797   !!---------------------------------------------------------------------- 
    9898 

  • branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/ZDF/zdftmx.F90

    r2104 r2236  
    5151   !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010)  
    5252   !! $Id: $ 
    53    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     53   !! Software governed by the CeCILL licence  (NEMOGCM/License_CeCILL.txt) 
    5454   !!---------------------------------------------------------------------- 
    5555 
Note: See TracChangeset for help on using the changeset viewer.