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

change some names again in the ice (last ones)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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 
Note: See TracChangeset for help on using the changeset viewer.