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 4856 for branches/2014/dev_4728_CNRS04_coupled_interface – NEMO

Ignore:
Timestamp:
2014-11-13T17:07:43+01:00 (9 years ago)
Author:
smasson
Message:

dev_4728_CNRS04_coupled_interface: compatibility if no LIM3

Location:
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r4853 r4856  
    7474# if defined key_lim3 
    7575   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   tatm_ice           !: air temperature [K] 
    76    REAL(wp), PUBLIC, SAVE                                ::   cldf_ice = 0.81    !: cloud fraction over sea ice, summer CLIO value   [-] 
    7776# endif 
    7877 
    … …  
    101100   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   botmelt            !: category botmelt 
    102101#endif 
     102   REAL(wp), PUBLIC, SAVE                                ::   cldf_ice = 0.81    !: cloud fraction over sea ice, summer CLIO value   [-] 
    103103 
    104104   !!---------------------------------------------------------------------- 
    … …  
    155155   LOGICAL         , PUBLIC, PARAMETER ::   lk_cice    = .FALSE.  !: no CICE  ice model 
    156156   CHARACTER(len=1), PUBLIC, PARAMETER ::   cp_ice_msh = '-'      !: no grid ice-velocity 
     157   REAL            , PUBLIC            ::   cldf_ice = 0.81       !: cloud fraction over sea ice, summer CLIO value   [-] 
    157158#endif 
    158159 

  • branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r4731 r4856  
    544544      CALL blk_clio_qsr_ice( palb_cs, palb_os, p_qsr ) 
    545545       
    546       DO jl = 1, jpl 
     546      DO jl = 1, ijpl 
    547547         palb(:,:,jl) = ( palb_cs(:,:,jl) * ( 1.e0 - sf(jp_ccov)%fnow(ji,jj,1) )   & 
    548548            &         +   palb_os(:,:,jl) * sf(jp_ccov)%fnow(ji,jj,1) ) 

  • branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r4733 r4856  
    3939   USE prtctl          ! Print control 
    4040   USE sbcwave,ONLY :  cdn_wave !wave module  
    41 #if defined key_lim3 || defined key_cice 
    42    USE sbc_ice         ! Surface boundary condition: ice fields 
    43 #endif 
     41   USE sbc_ice,ONLY :  cldf_ice ! Surface boundary condition: ice fields 
    4442   USE lib_fortran     ! to use key_nosignedzero 
    4543 
Note: See TracChangeset for help on using the changeset viewer.