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

Changeset 8411


Ignore:
Timestamp:
2017-08-07T18:09:12+02:00 (7 years ago)
Author:
clem
Message:

continue changing names

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
Files:
2 added
2 deleted
13 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceadv.F90

    r8409 r8411  
    2929   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    3030   USE timing         ! Timing 
    31    USE limcons        ! conservation tests 
    32    USE limctl         ! control prints 
     31   USE icecons        ! conservation tests 
     32   USE icectl         ! control prints 
    3333 
    3434   IMPLICIT NONE 
    … …  
    103103 
    104104      ! conservation test 
    105       IF( ln_limdiachk )   CALL lim_cons_hsm(0, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     105      IF( ln_limdiachk )   CALL ice_cons_hsm(0, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    106106       
    107107      ! store old values for diag 
    … …  
    513513       
    514514      ! conservation test 
    515       IF( ln_limdiachk )   CALL lim_cons_hsm(1, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     515      IF( ln_limdiachk )   CALL ice_cons_hsm(1, 'iceadv', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    516516         
    517517      ! ------------------------------------------------- 
    518518      ! control prints 
    519519      ! ------------------------------------------------- 
    520       IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt,-1, ' - ice dyn & trp - ' ) 
     520      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt,-1, ' - ice dyn & trp - ' ) 
    521521      ! 
    522522      IF( nn_timing == 1 )  CALL timing_stop('iceadv') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceerr1.F90

    r8410 r8411  
    1919   USE limitd_th 
    2020   USE limvar 
    21    USE limcons         ! conservation tests 
    22    USE limctl          ! control prints 
     21   USE icecons         ! conservation tests 
     22   USE icectl          ! control prints 
    2323   ! 
    2424   USE lib_mpp         ! MPP library 
    … …  
    6363 
    6464      ! conservation test 
    65       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'iceerr1', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     65      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'iceerr1', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    6666 
    6767      !---------------------------------------------------- 
    … …  
    132132 
    133133      ! conservation test 
    134       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'iceerr1', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     134      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'iceerr1', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    135135 
    136136      ! control prints 
    137       IF( ln_ctl )       CALL lim_prt3D( 'iceerr1' ) 
     137      IF( ln_ctl )       CALL ice_prt3D( 'iceerr1' ) 
    138138    
    139139      IF( nn_timing == 1 )  CALL timing_stop('iceerr1') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceerr2.F90

    r8410 r8411  
    1919   USE limitd_th 
    2020   USE limvar 
    21    USE limcons         ! conservation tests 
    22    USE limctl 
     21   USE icecons         ! conservation tests 
     22   USE icectl 
    2323   ! 
    2424   USE lbclnk          ! lateral boundary condition - MPP exchanges 
    … …  
    6464 
    6565      ! conservation test 
    66       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'iceerr2', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     66      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'iceerr2', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    6767 
    6868      !---------------------------------------------------------------------- 
    … …  
    170170 
    171171      ! conservation test 
    172       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'iceerr2', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     172      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'iceerr2', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    173173 
    174174      ! control prints 
    175       IF( ln_limctl )    CALL lim_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 
    176       IF( ln_ctl )       CALL lim_prt3D( 'iceerr2' ) 
     175      IF( ln_limctl )    CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 
     176      IF( ln_ctl )       CALL ice_prt3D( 'iceerr2' ) 
    177177    
    178178      IF( nn_timing == 1 )  CALL timing_stop('iceerr2') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.F90

    r8409 r8411  
    1919   USE ice              ! LIM variables 
    2020   USE limvar           ! LIM 
    21    USE limcons          ! conservation tests 
    22    USE limctl           ! control prints 
     21   USE icecons          ! conservation tests 
     22   USE icectl           ! control prints 
    2323   ! 
    2424   USE lbclnk           ! lateral boundary condition - MPP exchanges 
    … …  
    122122 
    123123      ! conservation test 
    124       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     124      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    125125 
    126126      !-----------------------------------------------------------------------------! 
    … …  
    281281      !-----------------------------------------------------------------------------! 
    282282      ! conservation test 
    283       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     283      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icerdgrft', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    284284 
    285285      ! control prints 
    286       IF( ln_ctl )       CALL lim_prt3D( 'icerdgrft' ) 
     286      IF( ln_ctl )       CALL ice_prt3D( 'icerdgrft' ) 
    287287      ! 
    288288      IF( nn_timing == 1 )  CALL timing_stop('icerdgrft') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90

    r8409 r8411  
    1919   USE ice              ! LIM-3 variables 
    2020   USE icerhg_evp       ! EVP rheology 
    21    USE limcons          ! conservation tests 
    22    USE limctl           ! control prints 
     21   USE icecons          ! conservation tests 
     22   USE icectl           ! control prints 
    2323   USE limvar 
    2424   ! 
    … …  
    6565      ! 
    6666      ! conservation test 
    67       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     67      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    6868       
    6969      ! Landfast ice parameterization: define max bottom friction 
    … …  
    9292      ! 
    9393      ! conservation test 
    94       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     94      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icerhg', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    9595 
    9696      ! Control prints 
    97       IF( ln_ctl )       CALL lim_prt3D( 'icerhg' ) 
     97      IF( ln_ctl )       CALL ice_prt3D( 'icerhg' ) 
    9898      ! 
    9999      IF( nn_timing == 1 )  CALL timing_stop('icerhg') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8410 r8411  
    88   !! History :  2.0  ! 2006-12  (M. Vancoppenolle) Original code 
    99   !!            3.0  ! 2008-02  (C. Talandier)  Surface module from icestp.F90 
    10    !!             -   ! 2008-04  (G. Madec)  sltyle and lim_ctl routine 
     10   !!             -   ! 2008-04  (G. Madec)  sltyle and ice_ctl routine 
    1111   !!            3.3  ! 2010-11  (G. Madec) ice-ocean stress always computed at each ocean time-step 
    1212   !!            3.4  ! 2011-01  (A Porter)  dynamical allocation 
    … …  
    4343   USE iceerr2         ! Ice corrections after thermo 
    4444   USE limvar          ! Ice variables switch 
    45    USE limctl          ! 
     45   USE icectl          ! 
    4646   ! MV MP 2016 
    4747   USE limmp 
    … …  
    222222         IF( lrst_ice )               CALL lim_rst_write( kt )  ! -- Ice restart file  
    223223         ! 
    224          IF( ln_limctl )              CALL lim_ctl( kt )        ! alerts in case of model crash 
     224         IF( ln_limctl )              CALL ice_ctl( kt )        ! alerts in case of model crash 
    225225         ! 
    226226      ENDIF   ! End sea-ice time step only 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

    r8410 r8411  
    2424   USE ice              ! LIM-3 variables 
    2525   USE limvar           ! LIM-3 variables 
    26    USE limcons          ! conservation tests 
     26   USE icecons          ! conservation tests 
    2727   USE limtab 
    2828   ! 
    … …  
    8282      ENDIF 
    8383 
    84       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limitd_th_rem', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     84      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limitd_th_rem', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    8585 
    8686      !----------------------------------------------------------------------------------------------- 
    … …  
    313313      ENDIF 
    314314 
    315       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limitd_th_rem', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     315      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limitd_th_rem', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    316316 
    317317   END SUBROUTINE lim_itd_th_rem 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

    r8378 r8411  
    2727!  USE sbc_ice          ! Surface boundary condition: ice   fields 
    2828   USE ice              ! LIM-3 variables 
    29 !  USE limcons          ! conservation tests 
     29!  USE icecons          ! conservation tests 
    3030!  USE limctl           ! control prints 
    3131!  USE limvar 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90

    r8378 r8411  
    2020   USE dom_oce        ! ocean domain 
    2121   USE sbc_oce , ONLY : nn_fsbc 
    22    USE limctl 
     22   USE icectl 
    2323   ! 
    2424   USE in_out_manager ! I/O manager 
    … …  
    9090      ENDIF 
    9191      ! 
    92       IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - Beginning the time step - ' )   ! control print 
     92      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - Beginning the time step - ' )   ! control print 
    9393   END SUBROUTINE lim_rst_opn 
    9494 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r8404 r8411  
    3535   USE traqsr         ! add penetration of solar flux in the calculation of heat budget 
    3636   USE domvvl         ! Variable volume 
    37    USE limctl         ! 
    38    USE limcons        ! 
     37   USE icectl         ! 
     38   USE icecons        ! 
    3939   USE bdy_oce  , ONLY: ln_bdy 
    4040   ! 
    … …  
    206206 
    207207      ! conservation test 
    208       IF( ln_limdiachk .AND. .NOT. ln_bdy)  CALL lim_cons_final( 'limsbc' ) 
     208      IF( ln_limdiachk .AND. .NOT. ln_bdy)  CALL ice_cons_final( 'limsbc' ) 
    209209 
    210210      ! control prints 
    211       IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' ) 
    212       IF( ln_ctl )      CALL lim_prt3D( 'limsbc' ) 
     211      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' ) 
     212      IF( ln_ctl )      CALL ice_prt3D( 'limsbc' ) 
    213213 
    214214   END SUBROUTINE lim_sbc_flx 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r8379 r8411  
    3636   USE limtab         ! 1D <==> 2D transformation 
    3737   USE limvar         ! 
    38    USE limcons        ! conservation tests 
    39    USE limctl         ! control print 
     38   USE icecons        ! conservation tests 
     39   USE icectl         ! control print 
    4040   ! 
    4141   USE in_out_manager ! I/O manager 
    … …  
    9999       
    100100      ! conservation test 
    101       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     101      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    102102 
    103103      CALL lim_var_glo2eqv 
    … …  
    257257      oa_i(:,:,:) = o_i(:,:,:) * a_i(:,:,:) 
    258258 
    259       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     259      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limthd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    260260      ! 
    261261                         CALL lim_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- ! 
    … …  
    266266      IF( ln_limdO )     CALL lim_thd_lac                ! --- frazil ice growing in leads --- ! 
    267267      ! 
    268       IF( ln_limctl )    CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' )   ! control print 
    269       IF( ln_ctl )       CALL lim_prt3D( 'limthd' )      ! Control print 
     268      IF( ln_limctl )    CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermodyn. - ' )   ! control print 
     269      IF( ln_ctl )       CALL ice_prt3D( 'limthd' )      ! Control print 
    270270      ! 
    271271      IF( nn_timing == 1 )  CALL timing_stop('limthd') 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

    r8379 r8411  
    2323   USE ice            ! LIM variables 
    2424   USE limtab         ! LIM 2D <==> 1D 
    25    USE limcons        ! LIM conservation 
     25   USE icecons        ! LIM conservation 
    2626   USE limthd_ent 
    2727   USE limvar 
    … …  
    112112      !!-----------------------------------------------------------------------! 
    113113 
    114       IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     114      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    115115 
    116116      CALL lim_var_agg(1) 
    … …  
    478478      ENDIF ! nidx > 0 
    479479      ! 
    480       IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
     480      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 
    481481      ! 
    482482   END SUBROUTINE lim_thd_lac 

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

    r8407 r8411  
    2121   USE ice             ! LIM_3 ice variables 
    2222   USE limvar 
    23    USE limctl 
     23   USE icectl 
    2424   USE par_oce         ! ocean parameters 
    2525   USE dom_oce         ! ocean space and time domain variables  
    … …  
    7373                        CALL lim_var_zapsmall 
    7474                        CALL lim_var_agg(1) 
    75       IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
     75      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 
    7676      ! 
    7777   END SUBROUTINE bdy_ice 
Note: See TracChangeset for help on using the changeset viewer.