Changeset 9657


Ignore:
Timestamp:
2018-05-28T12:19:58+02:00 (2 years ago)
Author:
clem
Message:

change nn_ice_lim and cn_ice_lim to nn_ice and cn_ice for BDY

Location:
NEMO/trunk
Files:
2 added
16 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/AGRIF_NORDIC/EXP00/1_namelist_ice_cfg

    r9484 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM namelist:   
     2!! SI3 namelist:   
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/AGRIF_NORDIC/EXP00/2_namelist_ice_cfg

    r9484 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM namelist:   
     2!! SI3 namelist:   
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/AGRIF_NORDIC/EXP00/namelist_ice_cfg

    r9484 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM configuration namelist: Overwrites SHARED/namelist_ice_lim3_ref 
     2!! SI3 configuration namelist: Overwrites SHARED/namelist_ice_ref 
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/ORCA2_SAS_SI3/EXP00/namelist_ice_cfg

    r9572 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM configuration namelist: Overwrites SHARED/namelist_ice_lim3_ref 
     2!! SI3 configuration namelist: Overwrites SHARED/namelist_ice_ref 
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/ORCA2_SI3_PISCES/EXP00/namelist_ice_cfg

    r9019 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM configuration namelist: Overwrites SHARED/namelist_ice_lim3_ref 
     2!! SI3 configuration namelist: Overwrites SHARED/namelist_ice_ref 
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/SHARED/namelist_ice_si3_ref

    r9572 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM namelist:   
     2!! SI3 namelist:   
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/SHARED/namelist_ref

    r9546 r9657  
    592592   nn_tra_dta    =  0         !  = 0, bdy data are equal to the initial state 
    593593   !                          !  = 1, bdy data are read in 'bdydata   .nc' files 
    594    cn_ice_lim    =  'none'    ! 
    595    nn_ice_lim_dta=  0         !  = 0, bdy data are equal to the initial state 
     594   cn_ice        =  'none'    ! 
     595   nn_ice_dta    =  0         !  = 0, bdy data are equal to the initial state 
    596596   !                          !  = 1, bdy data are read in 'bdydata   .nc' files 
    597597   rn_ice_tem    = 270.       !  lim3 only: arbitrary temperature of incoming sea ice 
     
    624624   bn_tem      = 'amm12_bdyT_tra'        ,         24        , 'votemper',    .true.   , .false.,  'daily'  ,    ''            ,   ''     ,     '' 
    625625   bn_sal      = 'amm12_bdyT_tra'        ,         24        , 'vosaline',    .true.   , .false.,  'daily'  ,    ''            ,   ''     ,     '' 
    626 !* for lim3 
     626!* for si3 
    627627!   bn_a_i     = 'amm12_bdyT_ice'        ,         24        , 'ileadfra',    .true.   , .false.,  'daily'  ,    ''            ,   ''     ,     '' 
    628628!   bn_h_i     = 'amm12_bdyT_ice'        ,         24        , 'iicethic',    .true.   , .false.,  'daily'  ,    ''            ,   ''     ,     '' 
  • NEMO/trunk/cfgs/SPITZ12/EXP00/namelist_cfg

    r9560 r9657  
    187187   nn_tra_dta    =  1         !  = 0, bdy data are equal to the initial state 
    188188   !                          !  = 1, bdy data are read in 'bdydata   .nc' files 
    189    cn_ice_lim    =  'frs'     ! 
    190    nn_ice_lim_dta=  1         !  = 0, bdy data are equal to the initial state 
     189   cn_ice        =  'frs'     ! 
     190   nn_ice_dta    =  1         !  = 0, bdy data are equal to the initial state 
    191191   !                          !  = 1, bdy data are read in 'bdydata   .nc' files 
    192192   rn_ice_tem    = 267.       !  lim3 only: arbitrary temperature of incoming sea ice 
  • NEMO/trunk/cfgs/SPITZ12/EXP00/namelist_ice_cfg

    r9552 r9657  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! ESIM configuration namelist: Overwrites SHARED/namelist_ice_lim3_ref 
     2!! SI3 configuration namelist: Overwrites SHARED/namelist_ice_ref 
    33!!              1 - Generic parameters                 (nampar) 
    44!!              2 - Ice thickness discretization       (namitd) 
  • NEMO/trunk/cfgs/SPITZ12/MY_SRC/sbcblk.F90

    r9598 r9657  
    692692#if defined key_si3 
    693693   !!---------------------------------------------------------------------- 
    694    !!   'key_si3'                                       ESIM sea-ice model 
     694   !!   'key_si3'                                         SI3 sea-ice model 
    695695   !!---------------------------------------------------------------------- 
    696696   !!   blk_ice_tau : provide the air-ice stress 
  • NEMO/trunk/src/OCE/BDY/bdy_oce.F90

    r9656 r9657  
    106106   REAL(wp), DIMENSION(jp_bdy) ::   rn_time_dmp_out         !: Damping time scale in days at radiation outflow points 
    107107 
    108    CHARACTER(len=20), DIMENSION(jp_bdy) ::   cn_ice_lim       ! Choice of boundary condition for sea ice variables  
    109    INTEGER , DIMENSION(jp_bdy)          ::   nn_ice_lim_dta   !: = 0 use the initial state as bdy dta ;  
    110                                                               !: = 1 read it in a NetCDF file 
     108   CHARACTER(len=20), DIMENSION(jp_bdy) ::   cn_ice         ! Choice of boundary condition for sea ice variables  
     109   INTEGER , DIMENSION(jp_bdy)          ::   nn_ice_dta     !: = 0 use the initial state as bdy dta ;  
     110                                                            !: = 1 read it in a NetCDF file 
    111111   REAL(wp), DIMENSION(jp_bdy) ::   rn_ice_tem              !: choice of the temperature of incoming sea ice 
    112112   REAL(wp), DIMENSION(jp_bdy) ::   rn_ice_sal              !: choice of the salinity    of incoming sea ice 
  • NEMO/trunk/src/OCE/BDY/bdydta.F90

    r9656 r9657  
    180180 
    181181#if defined key_si3 
    182             IF( nn_ice_lim_dta(jbdy) == 0 ) THEN    ! set ice to initial values 
     182            IF( nn_ice_dta(jbdy) == 0 ) THEN    ! set ice to initial values 
    183183               ilen1(:) = nblen(:) 
    184184               IF( dta%ll_a_i ) THEN 
     
    350350               ENDIF 
    351351#if defined key_si3 
    352                IF( cn_ice_lim(jbdy) /= 'none' .AND. nn_ice_lim_dta(jbdy) == 1 ) THEN 
     352               IF( cn_ice(jbdy) /= 'none' .AND. nn_ice_dta(jbdy) == 1 ) THEN 
    353353                  IF( nice_cat == 1 ) THEN ! case input cat = 1 
    354354                     CALL ice_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 
     
    453453            &                , nn_tra_dta    (jbdy)    & 
    454454#if defined key_si3 
    455             &                , nn_ice_lim_dta(jbdy)    & 
     455            &                , nn_ice_dta    (jbdy)    & 
    456456#endif 
    457457                              ) 
     
    474474         ENDIF 
    475475#if defined key_si3 
    476          IF( cn_ice_lim(jbdy) /= 'none' .AND. nn_ice_lim_dta(jbdy) == 1  ) THEN 
     476         IF( cn_ice(jbdy) /= 'none' .AND. nn_ice_dta(jbdy) == 1  ) THEN 
    477477            nb_bdy_fld(jbdy) = nb_bdy_fld(jbdy) + 3 
    478478         ENDIF 
     
    615615#if defined key_si3 
    616616            ! sea ice 
    617             IF( nn_ice_lim_dta(jbdy) == 1 ) THEN 
     617            IF( nn_ice_dta(jbdy) == 1 ) THEN 
    618618               ! Test for types of ice input (1cat or Xcat)  
    619619               ! Build file name to find dimensions  
     
    798798 
    799799#if defined key_si3 
    800          IF (cn_ice_lim(jbdy) /= 'none') THEN 
    801             IF( nn_ice_lim_dta(jbdy) == 0 ) THEN 
     800         IF (cn_ice(jbdy) /= 'none') THEN 
     801            IF( nn_ice_dta(jbdy) == 0 ) THEN 
    802802               ALLOCATE( dta_bdy(jbdy)%a_i(nblen(1),jpl) ) 
    803803               ALLOCATE( dta_bdy(jbdy)%h_i(nblen(1),jpl) ) 
  • NEMO/trunk/src/OCE/BDY/bdyice.F90

    r9656 r9657  
    6464      DO ib_bdy = 1, nb_bdy 
    6565         ! 
    66          SELECT CASE( cn_ice_lim(ib_bdy) ) 
     66         SELECT CASE( cn_ice(ib_bdy) ) 
    6767         CASE('none')   ;   CYCLE 
    6868         CASE('frs' )   ;   CALL bdy_ice_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy ) 
     
    157157            IF( v_ice(ji  ,jj-1) > 0. .AND. vmask(ji  ,jj+1,1) == 0. ) jpbound = 1; ii = ji  ; ij = jj-1 
    158158            ! 
    159             IF( nn_ice_lim_dta(ib_bdy) == 0 ) jpbound = 0; ii = ji; ij = jj   ! case ice boundaries = initial conditions 
    160             !                                                                 !      do not make state variables dependent on velocity 
     159            IF( nn_ice_dta(ib_bdy) == 0 ) jpbound = 0; ii = ji; ij = jj   ! case ice boundaries = initial conditions 
     160            !                                                             !      do not make state variables dependent on velocity 
    161161            ! 
    162162            rswitch = MAX( 0.0_wp , SIGN ( 1.0_wp , at_i(ii,ij) - 0.01 ) ) ! 0 if no ice 
     
    278278      DO ib_bdy=1, nb_bdy 
    279279         ! 
    280          SELECT CASE( cn_ice_lim(ib_bdy) ) 
     280         SELECT CASE( cn_ice(ib_bdy) ) 
    281281         ! 
    282282         CASE('none') 
     
    285285         CASE('frs') 
    286286            ! 
    287             IF( nn_ice_lim_dta(ib_bdy) == 0 ) CYCLE            ! case ice boundaries = initial conditions  
    288             !                                                  !      do not change ice velocity (it is only computed by rheology) 
     287            IF( nn_ice_dta(ib_bdy) == 0 ) CYCLE            ! case ice boundaries = initial conditions  
     288            !                                              !      do not change ice velocity (it is only computed by rheology) 
    289289            SELECT CASE ( cd_type ) 
    290290            !      
  • NEMO/trunk/src/OCE/BDY/bdyini.F90

    r9600 r9657  
    6767         &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             & 
    6868         &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
    69          &             cn_ice_lim, nn_ice_lim_dta,                             & 
     69         &             cn_ice, nn_ice_dta,                                     & 
    7070         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                     & 
    7171         &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
     
    344344#if defined key_si3 
    345345         IF(lwp) WRITE(numout,*) 'Boundary conditions for sea ice:  ' 
    346          SELECT CASE( cn_ice_lim(ib_bdy) )                   
     346         SELECT CASE( cn_ice(ib_bdy) )                   
    347347         CASE('none') 
    348348             IF(lwp) WRITE(numout,*) '      no open boundary condition'         
     
    355355             dta_bdy(ib_bdy)%ll_h_i = .true. 
    356356             dta_bdy(ib_bdy)%ll_h_s = .true. 
    357          CASE DEFAULT   ;   CALL ctl_stop( 'unrecognised value for cn_ice_lim' ) 
     357         CASE DEFAULT   ;   CALL ctl_stop( 'unrecognised value for cn_ice' ) 
    358358         END SELECT 
    359         IF( cn_ice_lim(ib_bdy) /= 'none' ) THEN  
    360            SELECT CASE( nn_ice_lim_dta(ib_bdy) )                   !  
     359        IF( cn_ice(ib_bdy) /= 'none' ) THEN  
     360           SELECT CASE( nn_ice_dta(ib_bdy) )                   !  
    361361              CASE( 0 )      ;   IF(lwp) WRITE(numout,*) '      initial state used for bdy data'         
    362362              CASE( 1 )      ;   IF(lwp) WRITE(numout,*) '      boundary data taken from file' 
    363               CASE DEFAULT   ;   CALL ctl_stop( 'nn_ice_lim_dta must be 0 or 1' ) 
     363              CASE DEFAULT   ;   CALL ctl_stop( 'nn_ice_dta must be 0 or 1' ) 
    364364           END SELECT 
    365365        ENDIF 
  • NEMO/trunk/src/OCE/DOM/dommsk.F90

    r9600 r9657  
    9999         &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             & 
    100100         &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
    101          &             cn_ice_lim, nn_ice_lim_dta,                           & 
    102          &             rn_ice_tem, rn_ice_sal, rn_ice_age,                 & 
     101         &             cn_ice, nn_ice_dta,                                     & 
     102         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                     & 
    103103         &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
    104104      !!--------------------------------------------------------------------- 
  • NEMO/trunk/src/OCE/LBC/mppini.F90

    r9598 r9657  
    619619           &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             &   
    620620           &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
    621            &             cn_ice_lim, nn_ice_lim_dta,                             & 
     621           &             cn_ice, nn_ice_dta,                                     & 
    622622           &             rn_ice_tem, rn_ice_sal, rn_ice_age,                     & 
    623623           &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
Note: See TracChangeset for help on using the changeset viewer.