Ignore:
Timestamp:
2017-08-08T17:53:09+02:00 (3 years ago)
Author:
clem
Message:

last routine names to be changed

File:
1 edited

Legend:

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

    r8414 r8426  
    3232   USE sbc_oce , ONLY : nn_fsbc, ln_ice_embd, sfx, fr_i, qsr_tot, qns, qsr, fmmflx, emp, taum, utau, vtau 
    3333   USE sbccpl         ! Surface boundary condition: coupled interface 
    34    USE icealbedo      ! albedo parameters 
     34   USE icealb         ! albedo parameters 
    3535   USE traqsr         ! add penetration of solar flux in the calculation of heat budget 
    3636   USE domvvl         ! Variable volume 
    3737   USE icectl         ! 
    38    USE icecons        ! 
    3938   USE bdy_oce  , ONLY: ln_bdy 
    4039   ! 
     
    4443   USE lib_mpp        ! MPP library 
    4544   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     45   USE timing         ! Timing 
    4646 
    4747   IMPLICIT NONE 
     
    108108      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zalb_cs, zalb_os     ! 3D workspace 
    109109      !!--------------------------------------------------------------------- 
     110      IF( nn_timing == 1 )  CALL timing_start('ice_update_flx') 
     111 
     112      IF( kt == nit000 .AND. lwp ) THEN 
     113         WRITE(numout,*) 
     114         WRITE(numout,*)'ice_update_flx' 
     115         WRITE(numout,*)'~~~~~~~~~~~~~~' 
     116      ENDIF 
    110117 
    111118      ! --- case we bypass ice thermodynamics --- ! 
     
    201208      !    Snow/ice albedo (only if sent to coupler, useless in forced mode)   ! 
    202209      !------------------------------------------------------------------------! 
    203       CALL ice_albedo( t_su, ht_i, ht_s, a_ip_frac, h_ip, ln_pnd_rad, zalb_cs, zalb_os ) ! cloud-sky and overcast-sky ice albedos 
     210      CALL ice_alb( t_su, ht_i, ht_s, a_ip_frac, h_ip, ln_pnd_rad, zalb_cs, zalb_os ) ! cloud-sky and overcast-sky ice albedos 
    204211 
    205212      alb_ice(:,:,:) = ( 1. - cldf_ice ) * zalb_cs(:,:,:) + cldf_ice * zalb_os(:,:,:) 
     
    211218      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 3, ' - Final state ice_update - ' ) 
    212219      IF( ln_ctl )      CALL ice_prt3D( 'iceupdate' ) 
     220 
     221      IF( nn_timing == 1 )  CALL timing_stop('ice_update_flx') 
    213222 
    214223   END SUBROUTINE ice_update_flx 
     
    247256      REAL(wp) ::   zat_v, zvtau_ice, zv_t, zrhoco  !   -      - 
    248257      !!--------------------------------------------------------------------- 
     258 
     259      IF( nn_timing == 1 )  CALL timing_start('ice_update_tau') 
     260 
     261      IF( kt == nit000 .AND. lwp ) THEN 
     262         WRITE(numout,*) 
     263         WRITE(numout,*)'ice_update_tau' 
     264         WRITE(numout,*)'~~~~~~~~~~~~~~' 
     265      ENDIF 
     266 
    249267      zrhoco = rau0 * rn_cio 
    250268      ! 
     
    285303      CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. )   ! lateral boundary condition 
    286304      ! 
     305      IF( nn_timing == 1 )  CALL timing_stop('ice_update_tau') 
    287306      !   
    288307   END SUBROUTINE ice_update_tau 
     
    304323      IF(lwp) WRITE(numout,*) 
    305324      IF(lwp) WRITE(numout,*) 'ice_update_init : LIM-3 sea-ice - surface boundary condition' 
    306       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~   ' 
     325      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~~   ' 
    307326 
    308327      !                                      ! allocate ice_update array 
     
    368387   END SUBROUTINE ice_update_init 
    369388 
    370 #else 
    371    !!---------------------------------------------------------------------- 
    372    !!   Default option :        Dummy module       NO LIM 3.0 sea-ice model 
    373    !!---------------------------------------------------------------------- 
    374 CONTAINS 
    375    SUBROUTINE ice_update           ! Dummy routine 
    376    END SUBROUTINE ice_update 
    377389#endif  
    378390 
Note: See TracChangeset for help on using the changeset viewer.