Changeset 8424


Ignore:
Timestamp:
2017-08-08T16:18:04+02:00 (3 years ago)
Author:
clem
Message:

continue naming

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
Files:
1 added
1 deleted
16 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

    r8422 r8424  
    6363   !!   meaningful and/or used in ice thermodynamics                      | 
    6464   !!                                                                     | 
    65    !! Routines in limvar.F90 perform conversions                          | 
    66    !!  - lim_var_glo2eqv  : from global to equivalent variables           | 
    67    !!  - lim_var_eqv2glo  : from equivalent to global variables           | 
     65   !! Routines in icevar.F90 perform conversions                          | 
     66   !!  - ice_var_glo2eqv  : from global to equivalent variables           | 
     67   !!  - ice_var_eqv2glo  : from equivalent to global variables           | 
    6868   !!                                                                     | 
    6969   !! For various purposes, the sea ice state variables have sometimes    | 
    7070   !! to be aggregated over all ice thickness categories. This operation  | 
    7171   !! is done in :                                                        | 
    72    !!  - lim_var_agg                                                      | 
     72   !!  - ice_var_agg                                                      | 
    7373   !!                                                                     | 
    7474   !! in icestp.F90, the routines that compute the changes in the ice     | 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv.F90

    r8411 r8424  
    1818   USE sbc_oce , ONLY : nn_fsbc 
    1919   USE ice            ! ice variables 
    20    USE limvar         !  
     20   USE icevar         !  
    2121   USE iceadv_prather ! advection scheme (Prather) 
    2222   USE iceadv_umx     ! advection scheme (ultimate-macho) 
     
    9696      ENDIF 
    9797       
    98       CALL lim_var_agg( 1 ) ! integrated values + ato_i 
     98      CALL ice_var_agg( 1 ) ! integrated values + ato_i 
    9999 
    100100      !-------------------------------------! 
     
    414414 
    415415         ! zap small areas 
    416          CALL lim_var_zapsmall 
     416         CALL ice_var_zapsmall 
    417417            
    418418         !--- Thickness correction in case too high --- ! 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceerr1.F90

    r8422 r8424  
    1818   USE ice1D           ! LIM thermodynamic sea-ice variables 
    1919   USE iceitd 
    20    USE limvar 
     20   USE icevar 
    2121   USE icecons         ! conservation tests 
    2222   USE icectl          ! control prints 
     
    109109      ! zap small values 
    110110      !----------------- 
    111       CALL lim_var_zapsmall 
     111      CALL ice_var_zapsmall 
    112112 
    113113      ! ------------------------------------------------- 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceerr2.F90

    r8422 r8424  
    1818   USE ice1D           ! LIM thermodynamic sea-ice variables 
    1919   USE iceitd 
    20    USE limvar 
     20   USE icevar 
    2121   USE icecons         ! conservation tests 
    2222   USE icectl 
     
    123123      ! zap small values 
    124124      !----------------- 
    125       CALL lim_var_zapsmall 
     125      CALL ice_var_zapsmall 
    126126 
    127127      !------------------------------------------------------------------------------ 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

    r8422 r8424  
    2323   USE ice            ! sea-ice variables 
    2424   USE par_oce        ! ocean parameters 
    25    USE limvar         ! lim_var_salprof 
     25   USE icevar         ! ice_var_salprof 
    2626   ! 
    2727   USE in_out_manager ! I/O manager 
     
    324324         ! for constant salinity in time 
    325325         IF( nn_icesal == 1 .OR. nn_icesal == 3 )  THEN 
    326             CALL lim_var_salprof 
     326            CALL ice_var_salprof 
    327327            smv_i = sm_i * v_i 
    328328         ENDIF 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90

    r8422 r8424  
    2323   USE ice1D            ! LIM-3 thermodynamic variables 
    2424   USE ice              ! LIM-3 variables 
    25    USE limvar           ! LIM-3 variables 
    2625   USE icecons          ! conservation tests 
    2726   USE icetab 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90

    r8420 r8424  
    1818   USE ice1D            ! LIM thermodynamics 
    1919   USE ice              ! LIM variables 
    20    USE limvar           ! LIM 
     20   USE icevar           ! LIM 
    2121   USE icecons          ! conservation tests 
    2222   USE icectl           ! control prints 
     
    275275      END DO !! on the do while over iter 
    276276 
    277       CALL lim_var_agg( 1 )  
     277      CALL ice_var_agg( 1 )  
    278278 
    279279      !-----------------------------------------------------------------------------! 
     
    311311 
    312312      ! Zero out categories with very small areas 
    313       CALL lim_var_zapsmall 
     313      CALL ice_var_zapsmall 
    314314 
    315315      ! Ice thickness needed for rafting 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90

    r8411 r8424  
    2121   USE icecons          ! conservation tests 
    2222   USE icectl           ! control prints 
    23    USE limvar 
     23   USE icevar 
    2424   ! 
    2525   USE lbclnk           ! lateral boundary conditions - MPP exchanges 
     
    6262      IF( nn_timing == 1 )  CALL timing_start('icerhg') 
    6363 
    64       CALL lim_var_agg(1)   ! aggregate ice categories 
     64      CALL ice_var_agg(1)   ! aggregate ice categories 
    6565      ! 
    6666      ! conservation test 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8422 r8424  
    4242   USE iceerr1         ! Ice corrections after dynamics 
    4343   USE iceerr2         ! Ice corrections after thermo 
    44    USE limvar          ! Ice variables switch 
     44   USE icevar          ! Ice variables switch 
    4545   USE icectl          ! 
    4646   ! MV MP 2016 
     
    167167         IF( ln_limthd .AND. ln_bdy ) CALL bdy_ice( kt )       ! -- bdy ice thermo  
    168168         ! previous lead fraction and ice volume for flux calculations 
    169                                       CALL lim_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation 
    170                                       CALL lim_var_agg(1)      ! at_i for coupling  
     169                                      CALL ice_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation 
     170                                      CALL ice_var_agg(1)      ! at_i for coupling  
    171171                                      CALL ice_bef 
    172172 
     
    201201         IF( .NOT. Agrif_Root() )     CALL agrif_update_lim3( kt ) 
    202202# endif 
    203                                       CALL lim_var_glo2eqv      ! necessary calls (at least for coupling) 
    204                                       CALL lim_var_agg( 2 )     ! necessary calls (at least for coupling) 
     203                                      CALL ice_var_glo2eqv      ! necessary calls (at least for coupling) 
     204                                      CALL ice_var_agg( 2 )     ! necessary calls (at least for coupling) 
    205205                                      ! 
    206206!! clem: one should switch the calculation of the fluxes onto the parent grid but the following calls do not work 
     
    286286         CALL ice_rst_read 
    287287      ENDIF 
    288       CALL lim_var_agg(2) 
    289       CALL lim_var_glo2eqv 
     288      CALL ice_var_agg(2) 
     289      CALL ice_var_glo2eqv 
    290290      ! 
    291291      CALL ice_update_init                 ! ice surface boundary condition 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

    r8422 r8424  
    3535   USE iceitd         ! remapping thickness distribution 
    3636   USE icetab         ! 1D <==> 2D transformation 
    37    USE limvar         ! 
     37   USE icevar         ! 
    3838   USE icecons        ! conservation tests 
    3939   USE icectl         ! control print 
     
    101101      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    102102 
    103       CALL lim_var_glo2eqv 
     103      CALL ice_var_glo2eqv 
    104104 
    105105      !---------------------------------------------! 
     
    259259      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    260260      ! 
    261                          CALL lim_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
     261                         CALL ice_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
    262262      !                                                  !     & make sure at_i=SUM(a_i) & ato_i=1 where at_i=0 
    263263      !                    
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90

    r8422 r8424  
    2525   USE ice            ! LIM variables 
    2626   USE ice1D          ! LIM thermodynamics 
    27    USE limvar         ! LIM variables 
    2827   ! 
    2928   USE in_out_manager ! I/O manager 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_lac.F90

    r8422 r8424  
    2525   USE icecons        ! LIM conservation 
    2626   USE icethd_ent 
    27    USE limvar 
     27   USE icevar 
    2828   ! 
    2929   USE in_out_manager ! I/O manager 
     
    114114      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icethd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    115115 
    116       CALL lim_var_agg(1) 
    117       CALL lim_var_glo2eqv 
     116      CALL ice_var_agg(1) 
     117      CALL ice_var_glo2eqv 
    118118 
    119119      !------------------------------------------------------------------------------! 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90

    r8422 r8424  
    1818   USE ice            ! LIM variables 
    1919   USE ice1D          ! LIM thermodynamics 
    20    USE limvar         ! LIM variables 
     20   USE icevar         ! LIM variables 
    2121   ! 
    2222   USE in_out_manager ! I/O manager 
     
    9494 
    9595         ! Salinity profile 
    96          CALL lim_var_salprof1d 
     96         CALL ice_var_salprof1d 
    9797         ! 
    9898      ENDIF  
     
    101101      !  3) vertical profile of salinity, constant in time                           | 
    102102      !------------------------------------------------------------------------------| 
    103       IF(  nn_icesal == 3  )   CALL lim_var_salprof1d 
     103      IF(  nn_icesal == 3  )   CALL ice_var_salprof1d 
    104104 
    105105      ! 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icewri.F90

    r8413 r8424  
    1818   USE sbc_ice         ! Surface boundary condition: ice fields 
    1919   USE ice 
    20    USE limvar 
     20   USE icevar 
    2121   ! 
    2222   USE in_out_manager 
     
    7878 
    7979      ! brine volume 
    80       CALL lim_var_bv  
     80      CALL ice_var_bv  
    8181 
    8282      ! tresholds for outputs 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r8380 r8424  
    2727#if defined key_lim3 
    2828   USE ice 
    29    USE limvar          ! redistribute ice input into categories 
     29   USE icevar          ! redistribute ice input into categories 
    3030#endif 
    3131   USE sbcapr 
     
    344344#if defined key_lim3 
    345345               IF( .NOT. ll_bdylim3 .AND. cn_ice_lim(ib_bdy) /= 'none' .AND. nn_ice_lim_dta(ib_bdy) == 1 ) THEN ! bdy ice input (case input is 1cat) 
    346                 CALL lim_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 
     346                CALL ice_var_itd ( bf(jfld_hti)%fnow(:,1,1), bf(jfld_hts)%fnow(:,1,1), bf(jfld_ai)%fnow(:,1,1), & 
    347347                                  & dta_bdy(ib_bdy)%ht_i,     dta_bdy(ib_bdy)%ht_s,     dta_bdy(ib_bdy)%a_i     ) 
    348348               ENDIF 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

    r8422 r8424  
    2020   USE oce             ! ocean dynamics and tracers variables 
    2121   USE ice             ! LIM_3 ice variables 
    22    USE limvar 
     22   USE icevar 
    2323   USE icectl 
    2424   USE par_oce         ! ocean parameters 
     
    5656      !!---------------------------------------------------------------------- 
    5757      ! 
    58       CALL lim_var_glo2eqv 
     58      CALL ice_var_glo2eqv 
    5959      ! 
    6060      DO ib_bdy=1, nb_bdy 
     
    7171      END DO 
    7272      ! 
    73                         CALL lim_var_zapsmall 
    74                         CALL lim_var_agg(1) 
     73                        CALL ice_var_zapsmall 
     74                        CALL ice_var_agg(1) 
    7575      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
    7676      ! 
Note: See TracChangeset for help on using the changeset viewer.