Changeset 10535


Ignore:
Timestamp:
2019-01-16T18:36:47+01:00 (23 months ago)
Author:
clem
Message:

change some names again in the ice (last ones)

Location:
NEMO/trunk
Files:
16 edited
1 moved

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_ice_cfg

    r9770 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/2_namelist_ice_cfg

    r9657 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/3_namelist_ice_cfg

    r9770 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_ice_cfg

    r9657 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_ice_cfg

    r9657 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_ice_cfg

    r9657 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4444/ 
    4545!------------------------------------------------------------------------------ 
    46 &namforcing     !   Ice surface forcing 
     46&namsbc         !   Ice surface boundary conditions 
    4747!------------------------------------------------------------------------------ 
    4848/ 
  • NEMO/trunk/cfgs/SHARED/namelist_ice_ref

    r10534 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    109109/ 
    110110!------------------------------------------------------------------------------ 
    111 &namforcing     !   Ice surface forcing 
     111&namsbc         !   Ice surface boundary conditions 
    112112!------------------------------------------------------------------------------ 
    113113   rn_cio           =   5.0e-03       !  ice-ocean drag coefficient (-) 
  • NEMO/trunk/cfgs/SPITZ12/EXPREF/namelist_ice_cfg

    r10413 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    4949/ 
    5050!------------------------------------------------------------------------------ 
    51 &namforcing     !   Ice surface forcing 
     51&namsbc         !   Ice surface boundary conditions 
    5252!------------------------------------------------------------------------------ 
    5353/ 
  • NEMO/trunk/src/ICE/ice.F90

    r10534 r10535  
    150150   LOGICAL , PUBLIC ::   ln_adv_UMx       !: Ultimate-Macho advection scheme 
    151151   ! 
    152    !                                     !!** ice-surface forcing namelist (namforcing) ** 
     152   !                                     !!** ice-surface boundary conditions namelist (namsbc) ** 
    153153                                          ! -- icethd_dh -- ! 
    154154   REAL(wp), PUBLIC ::   rn_blow_s        !: coef. for partitioning of snowfall between leads and sea ice 
  • NEMO/trunk/src/ICE/icealb.F90

    r10069 r10535  
    2727 
    2828   PUBLIC   ice_alb_init   ! called in icestp 
    29    PUBLIC   ice_alb        ! called in iceforcing.F90 and iceupdate.F90 
     29   PUBLIC   ice_alb        ! called in icesbc.F90 and iceupdate.F90 
    3030 
    3131   REAL(wp), PUBLIC, PARAMETER ::   rn_alb_oce = 0.066   !: ocean or lead albedo (Pegau and Paulson, Ann. Glac. 2001) 
  • NEMO/trunk/src/ICE/icesbc.F90

    r10534 r10535  
    1 MODULE iceforcing 
     1MODULE icesbc 
    22   !!====================================================================== 
    3    !!                       ***  MODULE  iceforcing  *** 
    4    !! Sea-Ice :   air-ice forcing fields 
     3   !!                       ***  MODULE  icesbc  *** 
     4   !! Sea-Ice :   air-ice sbc fields 
    55   !!===================================================================== 
    66   !! History :  4.0  !  2017-08  (C. Rousset)       Original code 
     
    3131   PRIVATE 
    3232 
    33    PUBLIC ice_forcing_tau   ! called by icestp.F90 
    34    PUBLIC ice_forcing_flx   ! called by icestp.F90 
    35    PUBLIC ice_forcing_init  ! called by icestp.F90 
     33   PUBLIC ice_sbc_tau   ! called by icestp.F90 
     34   PUBLIC ice_sbc_flx   ! called by icestp.F90 
     35   PUBLIC ice_sbc_init  ! called by icestp.F90 
    3636 
    3737   !! * Substitutions 
     
    4444CONTAINS 
    4545 
    46    SUBROUTINE ice_forcing_tau( kt, ksbc, utau_ice, vtau_ice ) 
    47       !!------------------------------------------------------------------- 
    48       !!                  ***  ROUTINE ice_forcing_tau  *** 
     46   SUBROUTINE ice_sbc_tau( kt, ksbc, utau_ice, vtau_ice ) 
     47      !!------------------------------------------------------------------- 
     48      !!                  ***  ROUTINE ice_sbc_tau  *** 
    4949      !! 
    5050      !! ** Purpose : provide surface boundary condition for sea ice (momentum) 
     
    6161      !!------------------------------------------------------------------- 
    6262      ! 
    63       IF( ln_timing )   CALL timing_start('ice_forcing') 
     63      IF( ln_timing )   CALL timing_start('ice_sbc') 
    6464      ! 
    6565      IF( kt == nit000 .AND. lwp ) THEN 
    6666         WRITE(numout,*) 
    67          WRITE(numout,*)'ice_forcing_tau: Surface boundary condition for sea ice (momentum)' 
     67         WRITE(numout,*)'ice_sbc_tau: Surface boundary condition for sea ice (momentum)' 
    6868         WRITE(numout,*)'~~~~~~~~~~~~~~~' 
    6969      ENDIF 
     
    8383            END DO 
    8484         END DO 
    85          CALL lbc_lnk_multi( 'iceforcing', utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
    86       ENDIF 
    87       ! 
    88       IF( ln_timing )   CALL timing_stop('ice_forcing') 
    89       ! 
    90    END SUBROUTINE ice_forcing_tau 
     85         CALL lbc_lnk_multi( 'icesbc', utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
     86      ENDIF 
     87      ! 
     88      IF( ln_timing )   CALL timing_stop('ice_sbc') 
     89      ! 
     90   END SUBROUTINE ice_sbc_tau 
    9191 
    9292    
    93    SUBROUTINE ice_forcing_flx( kt, ksbc ) 
    94       !!------------------------------------------------------------------- 
    95       !!                  ***  ROUTINE ice_forcing_flx  *** 
     93   SUBROUTINE ice_sbc_flx( kt, ksbc ) 
     94      !!------------------------------------------------------------------- 
     95      !!                  ***  ROUTINE ice_sbc_flx  *** 
    9696      !! 
    9797      !! ** Purpose : provide surface boundary condition for sea ice (flux) 
     
    119119      !!-------------------------------------------------------------------- 
    120120      ! 
    121       IF( ln_timing )   CALL timing_start('ice_forcing_flx') 
     121      IF( ln_timing )   CALL timing_start('ice_sbc_flx') 
    122122 
    123123      IF( kt == nit000 .AND. lwp ) THEN 
    124124         WRITE(numout,*) 
    125          WRITE(numout,*)'ice_forcing_flx: Surface boundary condition for sea ice (flux)' 
     125         WRITE(numout,*)'ice_sbc_flx: Surface boundary condition for sea ice (flux)' 
    126126         WRITE(numout,*)'~~~~~~~~~~~~~~~' 
    127127      ENDIF 
     
    163163      ENDIF 
    164164      ! 
    165       IF( ln_timing )   CALL timing_stop('ice_forcing_flx') 
    166       ! 
    167    END SUBROUTINE ice_forcing_flx 
     165      IF( ln_timing )   CALL timing_stop('ice_sbc_flx') 
     166      ! 
     167   END SUBROUTINE ice_sbc_flx 
    168168 
    169169 
     
    254254 
    255255 
    256    SUBROUTINE ice_forcing_init 
    257       !!------------------------------------------------------------------- 
    258       !!                  ***  ROUTINE ice_forcing_init  *** 
     256   SUBROUTINE ice_sbc_init 
     257      !!------------------------------------------------------------------- 
     258      !!                  ***  ROUTINE ice_sbc_init  *** 
    259259      !! 
    260260      !! ** Purpose :   Physical constants and parameters linked to the ice dynamics 
    261261      !!       
    262       !! ** Method  :   Read the namforcing namelist and check the ice-dynamic 
     262      !! ** Method  :   Read the namsbc namelist and check the ice-dynamic 
    263263      !!              parameter values called at the first timestep (nit000) 
    264264      !! 
    265       !! ** input   :   Namelist namforcing 
     265      !! ** input   :   Namelist namsbc 
    266266      !!------------------------------------------------------------------- 
    267267      INTEGER ::   ios, ioptio   ! Local integer 
    268268      !! 
    269       NAMELIST/namforcing/ rn_cio, rn_blow_s, nn_flxdist, ln_cndflx, ln_cndemulate 
    270       !!------------------------------------------------------------------- 
    271       ! 
    272       REWIND( numnam_ice_ref )         ! Namelist namforcing in reference namelist : Ice dynamics 
    273       READ  ( numnam_ice_ref, namforcing, IOSTAT = ios, ERR = 901) 
    274 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namforcing in reference namelist', lwp ) 
    275       REWIND( numnam_ice_cfg )         ! Namelist namforcing in configuration namelist : Ice dynamics 
    276       READ  ( numnam_ice_cfg, namforcing, IOSTAT = ios, ERR = 902 ) 
    277 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namforcing in configuration namelist', lwp ) 
    278       IF(lwm) WRITE( numoni, namforcing ) 
     269      NAMELIST/namsbc/ rn_cio, rn_blow_s, nn_flxdist, ln_cndflx, ln_cndemulate 
     270      !!------------------------------------------------------------------- 
     271      ! 
     272      REWIND( numnam_ice_ref )         ! Namelist namsbc in reference namelist : Ice dynamics 
     273      READ  ( numnam_ice_ref, namsbc, IOSTAT = ios, ERR = 901) 
     274901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 
     275      REWIND( numnam_ice_cfg )         ! Namelist namsbc in configuration namelist : Ice dynamics 
     276      READ  ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
     277902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
     278      IF(lwm) WRITE( numoni, namsbc ) 
    279279      ! 
    280280      IF(lwp) THEN                     ! control print 
    281281         WRITE(numout,*) 
    282          WRITE(numout,*) 'ice_forcing_init: ice parameters for ice dynamics ' 
     282         WRITE(numout,*) 'ice_sbc_init: ice parameters for ice dynamics ' 
    283283         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    284          WRITE(numout,*) '   Namelist namforcing:' 
     284         WRITE(numout,*) '   Namelist namsbc:' 
    285285         WRITE(numout,*) '      drag coefficient for oceanic stress              rn_cio        = ', rn_cio 
    286286         WRITE(numout,*) '      coefficient for ice-lead partition of snowfall   rn_blow_s     = ', rn_blow_s 
     
    306306      END SELECT 
    307307      ! 
    308    END SUBROUTINE ice_forcing_init 
     308   END SUBROUTINE ice_sbc_init 
    309309 
    310310#else 
     
    315315 
    316316   !!====================================================================== 
    317 END MODULE iceforcing 
     317END MODULE icesbc 
  • NEMO/trunk/src/ICE/icestp.F90

    r10534 r10535  
    5252   USE sbc_ice        ! Surface boundary condition: ice   fields 
    5353   ! 
    54    USE iceforcing     ! sea-ice: Surface boundary condition       !!gm why not icesbc module name 
     54   USE icesbc         ! sea-ice: Surface boundary conditions 
    5555   USE icedyn         ! sea-ice: dynamics 
    5656   USE icethd         ! sea-ice: thermodynamics 
     
    152152         !    utau_ice, vtau_ice = surface ice stress [N/m2] 
    153153         !------------------------------------------------! 
    154                                         CALL ice_forcing_tau( kt, ksbc, utau_ice, vtau_ice )           
     154                                        CALL ice_sbc_tau( kt, ksbc, utau_ice, vtau_ice )           
    155155         !-------------------------------------! 
    156156         ! --- ice dynamics and advection  --- ! 
     
    183183         !    qprec_ice, qevap_ice 
    184184         !------------------------------------------------------! 
    185                                         CALL ice_forcing_flx( kt, ksbc ) 
     185                                        CALL ice_sbc_flx( kt, ksbc ) 
    186186         !----------------------------! 
    187187         ! --- ice thermodynamics --- ! 
     
    241241      !                                ! Allocate the ice arrays (sbc_ice already allocated in sbc_init) 
    242242      ierr =        ice_alloc        ()      ! ice variables 
    243       ierr = ierr + sbc_ice_alloc    ()      ! surface forcing  
     243      ierr = ierr + sbc_ice_alloc    ()      ! surface boundary conditions  
    244244      ierr = ierr + ice1D_alloc      ()      ! thermodynamics 
    245245      ! 
     
    261261      CALL ice_var_agg(1) 
    262262      ! 
    263       CALL ice_forcing_init            ! set ice-ocean and ice-atm. coupling parameters 
     263      CALL ice_sbc_init                ! set ice-ocean and ice-atm. coupling parameters 
    264264      ! 
    265265      CALL ice_dyn_init                ! set ice dynamics parameters 
  • NEMO/trunk/src/OCE/SBC/sbcblk.F90

    r10534 r10535  
    6666   PUBLIC   sbc_blk       ! called in sbcmod 
    6767#if defined key_si3 
    68    PUBLIC   blk_ice_tau   ! routine called in iceforcing 
    69    PUBLIC   blk_ice_flx   ! routine called in iceforcing 
    70    PUBLIC   blk_ice_qcn   ! routine called in iceforcing 
     68   PUBLIC   blk_ice_tau   ! routine called in icesbc 
     69   PUBLIC   blk_ice_flx   ! routine called in icesbc 
     70   PUBLIC   blk_ice_qcn   ! routine called in icesbc 
    7171#endif  
    7272 
  • NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_ice_cfg

    r10413 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    5757/ 
    5858!------------------------------------------------------------------------------ 
    59 &namforcing     !   Ice surface forcing 
     59&namsbc         !   Ice surface boundary conditions 
    6060!------------------------------------------------------------------------------ 
    6161/ 
  • NEMO/trunk/tests/ICE_ADV2D/EXPREF/namelist_ice_cfg

    r10515 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    5555/ 
    5656!------------------------------------------------------------------------------ 
    57 &namforcing     !   Ice surface forcing 
     57&namsbc         !   Ice surface boundary conditions 
    5858!------------------------------------------------------------------------------ 
    5959/ 
  • NEMO/trunk/tests/ICE_AGRIF/EXPREF/1_namelist_ice_cfg

    r10516 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    5555/ 
    5656!------------------------------------------------------------------------------ 
    57 &namforcing     !   Ice surface forcing 
     57&namsbc         !   Ice surface boundary conditions 
    5858!------------------------------------------------------------------------------ 
    5959/ 
  • NEMO/trunk/tests/ICE_AGRIF/EXPREF/namelist_ice_cfg

    r10516 r10535  
    77!!              5 - Ice rheology                       (namdyn_rhg) 
    88!!              6 - Ice advection                      (namdyn_adv) 
    9 !!              7 - Ice surface forcing                (namforcing) 
     9!!              7 - Ice surface boundary conditions    (namsbc) 
    1010!!              8 - Ice thermodynamics                 (namthd) 
    1111!!              9 - Ice heat diffusion                 (namthd_zdf) 
     
    5555/ 
    5656!------------------------------------------------------------------------------ 
    57 &namforcing     !   Ice surface forcing 
     57&namsbc         !   Ice surface boundary conditions 
    5858!------------------------------------------------------------------------------ 
    5959/ 
Note: See TracChangeset for help on using the changeset viewer.