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 13734 – NEMO

Changeset 13734


Ignore:
Timestamp:
2020-11-06T12:08:40+01:00 (3 years ago)
Author:
techene
Message:

#2385 : cleaning comments and OFF/stpmlf

Location:
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DIA/diawri.F90

    r13605 r13734  
    10361036      !! 
    10371037      INTEGER :: inum, jk 
    1038       REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept      ! 3D workspace !!st patch to use substitution 
     1038      REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, zgdept       ! 3D workspace for qco substitution 
    10391039      !!---------------------------------------------------------------------- 
    10401040      !  

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90

    r13732 r13734  
    8888      ! 
    8989      CALL qco_ctl                            ! choose vertical coordinate (z_star, z_tilde or layer) 
    90       !              ! CAUTION COM A METTRE !!! 
    91 !!st      CALL qco_rst_read2( nit000, Kbb, Kmm )  ! Read or initialize ssh_(Kbb/Kmm) and r3 
    92 !!st CAUTION if read2 removed change restart.F90 !  
    9390      ! 
    9491      CALL qco_rst_read( nit000, Kbb, Kmm )   ! Read or initialize ssh_(Kbb/Kmm) 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/istate.F90

    r13607 r13734  
    6363      ! 
    6464      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    65       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zgdept     ! 3D table  !!st patch to use gdept subtitute 
     65      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zgdept     ! 3D table for qco substitute 
    6666!!gm see comment further down 
    6767      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) ::   zuvd    ! U & V data workspace 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DYN/dynvor.F90

    r13696 r13734  
    934934         ! 
    935935      END SELECT 
    936 !!st ADD !! pense a recalculer le hf_0 
    937936#if defined key_qco 
    938937      SELECT CASE( nvor_scheme )    ! qco case: pre-computed a specific e3f_0 for some vorticity schemes 
    … …  
    970969      ! 
    971970#endif 
    972 !!st END       
    973971      IF(lwp) THEN                   ! Print the choice 
    974972         WRITE(numout,*) 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90

    r13732 r13734  
    142142      !!---------------------------------------------------------------------- 
    143143      INTEGER :: jk                               ! loop index 
    144       REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw  ! e3t , e3u, e3v !!st patch to use substitution 
     144      REAL(wp), DIMENSION(jpi,jpj,jpk) :: ze3t, ze3u, ze3v, zgdepw  ! for qco substitution 
    145145      !!---------------------------------------------------------------------- 
    146146      ! 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfdynatf.F90

    r13237 r13734  
    1515   USE phycst , ONLY: r1_rho0         ! physical constant 
    1616   USE dom_oce                        ! time and space domain 
    17    USE oce, ONLY : ssh                ! sea-surface height !!st needed for substitution 
     17   USE oce, ONLY : ssh                ! sea-surface height for qco substitution 
    1818 
    1919   USE in_out_manager 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OFF/nemogcm.F90

    r13608 r13734  
    6565   USE lbcnfd  , ONLY : isendto, nsndto   ! Setup of north fold exchanges 
    6666#if defined key_qco 
    67    USE stpMLF , ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices 
     67   USE stpmlf , ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices 
    6868#else 
    6969   USE step    , ONLY : Nbb, Nnn, Naa, Nrhs   ! time level indices 

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/TOP/PISCES/SED/oce_sed.F90

    r13237 r13734  
    1313   USE dom_oce , ONLY :   glamt     =>   glamt          !: longitude of t-point (degre) 
    1414   USE dom_oce , ONLY :   gphit     =>   gphit          !: latitude  of t-point (degre) 
    15 !!st  
     15  
    1616#if ! defined key_qco 
    1717   USE dom_oce , ONLY :   e3t       =>   e3t            !: latitude  of t-point (degre) 
Note: See TracChangeset for help on using the changeset viewer.