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

Changeset 15526


Ignore:
Timestamp:
2021-11-19T11:19:35+01:00 (6 months ago)
Author:
cdllod
Message:

adjustments of namelist_ref and code to read only one netcdf file

Location:
NEMO/branches/2021/dev_r15388_updated_zdfiwm
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r15388_updated_zdfiwm/cfgs/SHARED/namelist_ref

    r15474 r15526  
    13151315   !           !  file name              ! frequency (hours) ! variable  ! time interp.!  clim  ! 'yearly'/ ! weights filename ! rotation ! land/sea mask ! 
    13161316   !           !                         !  (if <0  months)  !   name    !   (logical) !  (T/F) ! 'monthly' !                  ! pairing  !    filename   ! 
    1317    sn_mpb      = 'NOT USED'              , -12.              , 'mixing_power_bot' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    1318    sn_mpc      = 'NOT USED'              , -12.              , 'mixing_power_cri' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    1319    sn_mpn      = 'NOT USED'              , -12.              , 'mixing_power_nsq' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    1320    sn_mps      = 'NOT USED'              , -12.              , 'mixing_power_sho' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    1321    sn_dsb      = 'NOT USED'              , -12.              , 'decay_scale_bot' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    1322    sn_dsc      = 'NOT USED'              , -12.              , 'decay_scale_cri' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1317   sn_mpb      = 'NOT USED'              , -12.              , 'power_bot' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1318   sn_mpc      = 'NOT USED'              , -12.              , 'power_cri' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1319   sn_mpn      = 'NOT USED'              , -12.              , 'power_nsq' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1320   sn_mps      = 'NOT USED'              , -12.              , 'power_sho' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1321   sn_dsb      = 'NOT USED'              , -12.              , 'scale_bot' , .false.  , .true. , 'yearly' , '' , ''  , '' 
     1322   sn_dsc      = 'NOT USED'              , -12.              , 'scale_cri' , .false.  , .true. , 'yearly' , '' , ''  , '' 
    13231323/ 
    13241324!!====================================================================== 
  • NEMO/branches/2021/dev_r15388_updated_zdfiwm/src/OCE/ZDF/zdfiwm.F90

    r15517 r15526  
    123123      !!                     avs  = avs  +    av_wave * diffusivity_ratio(Reb) 
    124124      !! 
    125       !! ** Action  : - avt, avs, avm, increased by tide internal wave-driven mixing     
     125      !! ** Action  : - avt, avs, avm, increased by internal wave-driven mixing     
    126126      !! 
    127127      !! References :  de Lavergne et al. JAMES 2020, https://doi.org/10.1029/2020MS002065 
     
    246246      ! 
    247247      IF( ln_tsdiff ) THEN                !* Option for differential mixing of salinity and temperature 
    248          DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 )       ! Calculate S/T diffusivity ratio as a function of Reb (else it is set to 1) 
     248         DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 ) ! Calculate S/T diffusivity ratio as a function of Reb (else it is set to 1) 
    249249            zav_ratio(ji,jj,jk) = ( 0.505_wp + & 
    250250               &                    0.495_wp * TANH( 0.92_wp * ( LOG10( MAX( 1.e-20, zReb(ji,jj,jk) * 5._wp * z1_6 ) ) - 0.60_wp ) ) & 
     
    307307      !!                  ***  ROUTINE zdf_iwm_init  *** 
    308308      !!                      
    309       !! ** Purpose :   Initialization of the wave-driven vertical mixing, reading 
    310       !!              of input power maps and decay length scales in netcdf files. 
     309      !! ** Purpose :   Initialization of the internal wave-driven vertical mixing, reading 
     310      !!              of input power maps and decay length scales in a netcdf file. 
    311311      !! 
    312312      !! ** Method  : - Read the namzdf_iwm namelist and check the parameters 
    313313      !! 
    314       !!              - Read the input data in NetCDF files : 
    315       !!              bottom-intensified dissipation above abyssal hills (mixing_power_bot.nc) 
    316       !!              bottom-intensified dissipation at topographic slopes (mixing_power_cri.nc) 
    317       !!              dissipation scaling with squared buoyancy frequency (mixing_power_nsq.nc) 
    318       !!              dissipation due to shoaling internal tides (mixing_power_sho.nc) 
    319       !!              decay scale for abyssal hill dissipation (decay_scale_bot.nc) 
    320       !!              decay scale for topographic-slope dissipation (decay_scale_cri.nc) 
     314      !!              - Read the input data in a NetCDF file (zdfiwm_forcing.nc) with variables: 
     315      !!              'power_bot' bottom-intensified dissipation above abyssal hills 
     316      !!              'power_cri' bottom-intensified dissipation at topographic slopes 
     317      !!              'power_nsq' dissipation scaling with squared buoyancy frequency 
     318      !!              'power_sho' dissipation due to shoaling internal tides 
     319      !!              'scale_bot' decay scale for abyssal hill dissipation 
     320      !!              'scale_cri' decay scale for topographic-slope dissipation 
    321321      !! 
    322322      !! ** input   : - Namlist namzdf_iwm 
    323       !!              - NetCDF files : mixing_power_bot.nc, mixing_power_cri.nc, mixing_power_nsq.nc, 
    324       !!              mixing_power_sho.nc, decay_scale_bot.nc, decay_scale_cri.nc 
     323      !!              - NetCDF file : zdfiwm_forcing.nc 
    325324      !! 
    326325      !! ** Action  : - Increase by 1 the nstop flag is setting problem encounter 
     
    334333      ! 
    335334      CHARACTER(len=256)            ::   cn_dir                 ! Root directory for location of ssr files 
    336       INTEGER, PARAMETER            ::   jpiwm  = 6             ! maximum number of files to read 
     335      INTEGER, PARAMETER            ::   jpiwm  = 6             ! maximum number of variables to read 
    337336      INTEGER, PARAMETER            ::   jp_mpb = 1 
    338337      INTEGER, PARAMETER            ::   jp_mpc = 2 
     
    391390      DO ifpr= 1, jpiwm 
    392391         ALLOCATE( sf_iwm(ifpr)%fnow(jpi,jpj,1)   ) 
    393          IF( slf_iwm(ifpr)%ln_tint )ALLOCATE( sf_iwm(ifpr)%fdta(jpi,jpj,1,2) ) 
     392         IF( slf_iwm(ifpr)%ln_tint ) ALLOCATE( sf_iwm(ifpr)%fdta(jpi,jpj,1,2) ) 
    394393      END DO 
    395394 
Note: See TracChangeset for help on using the changeset viewer.