Changeset 8413


Ignore:
Timestamp:
2017-08-07T19:05:39+02:00 (3 years ago)
Author:
clem
Message:

continue changing names (again)

Location:
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
Files:
3 added
3 deleted
5 edited

Legend:

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

    r8409 r8413  
    180180 
    181181   !                                     !!** ice-init namelist (namiceini) ** 
    182                                           ! -- limistate -- ! 
     182                                          ! -- iceistate -- ! 
    183183   LOGICAL , PUBLIC ::   ln_limini        ! initialization or not 
    184184   LOGICAL , PUBLIC ::   ln_limini_file   ! Ice initialization state from 2D netcdf file 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

    r8411 r8413  
    3838   USE limsbc          ! sea surface boundary condition 
    3939   USE limdiahsb       ! Ice budget diagnostics 
    40    USE limwri          ! Ice outputs 
    41    USE limrst          ! Ice restarts 
     40   USE icewri          ! Ice outputs 
     41   USE icerst          ! Ice restarts 
    4242   USE iceerr1         ! Ice corrections after dynamics 
    4343   USE iceerr2         ! Ice corrections after thermo 
     
    4747   USE limmp 
    4848   ! END MV MP 2016 
    49    USE limistate       ! LIM initial state 
     49   USE iceistate       ! LIM initial state 
    5050   USE limthd_sal      ! LIM ice thermodynamics: salinity 
    5151   ! 
     
    149149         !-------------------------------------------------------! 
    150150                                      CALL ice_diag0           ! set diag of mass, heat and salt fluxes to 0 
    151                                       CALL lim_rst_opn( kt )   ! Open Ice restart file 
     151                                      CALL ice_rst_opn( kt )   ! Open Ice restart file 
    152152         ! 
    153153         ! --- zap this if no ice dynamics --- ! 
     
    215215         IF( ln_limdiahsb )           CALL lim_diahsb( kt )     ! -- Diagnostics and outputs  
    216216         ! 
    217                                       CALL lim_wri( 1 )         ! -- Ice outputs  
     217                                      CALL ice_wri( 1 )         ! -- Ice outputs  
    218218         ! 
    219219         IF( kt == nit000 .AND. ln_rstart )   & 
    220220            &                         CALL iom_close( numrir )  ! close input ice restart file 
    221221         ! 
    222          IF( lrst_ice )               CALL lim_rst_write( kt )  ! -- Ice restart file  
     222         IF( lrst_ice )               CALL ice_rst_write( kt )  ! -- Ice restart file  
    223223         ! 
    224224         IF( ln_limctl )              CALL ice_ctl( kt )        ! alerts in case of model crash 
     
    282282      !                                ! Initial sea-ice state 
    283283      IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst 
    284          CALL lim_istate 
     284         CALL ice_istate 
    285285      ELSE                                    ! start from a restart file 
    286          CALL lim_rst_read 
     286         CALL ice_rst_read 
    287287      ENDIF 
    288288      CALL lim_var_agg(2) 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90

    r8321 r8413  
    2323   USE iom             ! I/O manager 
    2424   USE lib_fortran     ! glob_sum 
    25    USE limrst          ! ice restart 
     25   USE icerst          ! ice restart 
    2626 
    2727   IMPLICIT NONE 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r8378 r8413  
    612612      !!                  ice thickness distribution follows a gaussian law 
    613613      !!               around the concentration of the most likely ice thickness 
    614       !!                           (similar as limistate.F90) 
     614      !!                           (similar as iceistate.F90) 
    615615      !! 
    616616      !! ** Method:   Iterative procedure 
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r8316 r8413  
    5252 
    5353#if defined key_lim3 
    54    USE limwri  
     54   USE icewri  
    5555#endif 
    5656   USE lib_mpp         ! MPP library 
     
    997997#if defined key_lim3 
    998998      IF( nn_ice == 2 ) THEN   ! clem2017: condition in case agrif + lim but no-ice in child grid 
    999          CALL lim_wri_state( kt, id_i, nh_i ) 
     999         CALL ice_wri_state( kt, id_i, nh_i ) 
    10001000      ENDIF 
    10011001#else 
Note: See TracChangeset for help on using the changeset viewer.