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 8313 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/TOP_SRC – NEMO

Ignore:
Timestamp:
2017-07-10T20:24:21+02:00 (7 years ago)
Author:
clem
Message:

STEP2 (2): remove obsolete features

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r7753 r8313  
    6363      INTEGER  ::   ji, jj, jn                                     ! dummy loop indices 
    6464      REAL(wp) ::   zse3t, zrtrn, zratio, zfact                    ! temporary scalars 
    65       REAL(wp) ::   zswitch, zftra, zcd, zdtra, ztfx, ztra         ! temporary scalars 
     65      REAL(wp) ::   zftra, zcd, zdtra, ztfx, ztra                  ! temporary scalars 
    6666      CHARACTER (len=22) :: charout 
    6767      REAL(wp), POINTER, DIMENSION(:,:  ) :: zsfx 
    … …  
    7777      ! 
    7878      zrtrn = 1.e-15_wp 
    79  
    80       SELECT CASE( nn_ice_embd )         ! levitating or embedded sea-ice option 
    81          CASE( 0    )   ;   zswitch = 1  ! (0) standard levitating sea-ice : salt exchange only 
    82          CASE( 1, 2 )   ;   zswitch = 0  ! (1) levitating sea-ice: salt and volume exchange but no pressure effect                                 
    83       !                                  ! (2) embedded sea-ice : salt and volume fluxes and pressure 
    84       END SELECT 
    8579 
    8680      IF( kt == nittrc000 ) THEN 
    … …  
    145139                  ! tracer flux only       : add concentration dilution term in net tracer flux, no F-M in volume flux 
    146140                  ! tracer and mass fluxes : no concentration dilution term in net tracer flux, F-M term in volume flux 
    147                   ztfx  = zftra + zswitch * zcd                ! net tracer flux (+C/D if no ice/ocean mass exchange) 
     141                  ztfx  = zftra                             ! net tracer flux 
    148142    
    149143                  zdtra = r1_rau0 * ( ztfx + zsfx(ji,jj) * trn(ji,jj,1,jn) )  

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r7881 r8313  
    6363   USE sbc_oce , ONLY :   ln_rnf     =>    ln_rnf     !: runoffs / runoff mouths 
    6464   USE sbc_oce , ONLY :   fr_i       =>    fr_i       !: ice fraction (between 0 to 1) 
    65    USE sbc_oce , ONLY :   nn_ice_embd => nn_ice_embd  !: flag for  levitating/embedding sea-ice in the ocean 
    6665   USE sbc_oce , ONLY :   atm_co2    =>    atm_co2    !  atmospheric pCO2 
    6766   USE traqsr  , ONLY :   rn_abs     =>    rn_abs     !: fraction absorbed in the very near surface 
Note: See TracChangeset for help on using the changeset viewer.