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 1471 for trunk/NEMO/LIM_SRC_2 – NEMO

Changeset 1471 for trunk/NEMO/LIM_SRC_2


Ignore:
Timestamp:
2009-06-11T16:27:34+02:00 (15 years ago)
Author:
smasson
Message:

remove useless albege,albecn,tauc,scal0,reslum in LIM2/3, see ticket:454

Location:
trunk/NEMO/LIM_SRC_2
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_2/ice_2.F90

    r1470 r1471  
    9191   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   dmgwi         !: Variation of the mass of snow ice 
    9292 
    93    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   albege        !: Albedo of the snow or ice (only for outputs) 
    94    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   albecn        !: Albedo of the ocean (only for outputs) 
    95    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tauc          !: Cloud optical depth 
    96  
    9793   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   u_ice, v_ice   !: two components of the ice   velocity at I-point (m/s) 
    9894   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   u_oce, v_oce   !: two components of the ocean velocity at I-point (m/s) 
    9995 
    100    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpsmax)     ::   scal0   !: ??? 
    10196   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jplayersp1) ::   tbif  !: Temperature inside the ice/snow layer 
    102  
    103 !! REAL(wp), DIMENSION(jpi,jpj,0:jpkmax+1) ::   reslum        !: Relative absorption of solar radiation in each ocean level 
    10497 
    10598   !!* moment used in the advection scheme 

  • trunk/NEMO/LIM_SRC_2/iceini_2.F90

    r1465 r1471  
    6868      tn_ice(:,:,1) = sist(:,:)         ! initialisation of ice temperature    
    6969      fr_i  (:,:) = 1.0 - frld(:,:)   ! initialisation of sea-ice fraction     
    70 # if defined key_coupled 
    71       alb_ice(:,:,1) = albege(:,:)      ! sea-ice albedo 
    72 # endif 
    7370      ! 
    7471   END SUBROUTINE ice_init_2 

  • trunk/NEMO/LIM_SRC_2/limistate_2.F90

    r1470 r1471  
    104104      u_ice (:,:)   = 0.e0 
    105105      v_ice (:,:)   = 0.e0 
    106 # if defined key_coupled 
    107       albege(:,:)   = 0.8 * tms(:,:) 
    108 # endif 
    109106 
    110107      !---  Moments for advection.              

  • trunk/NEMO/LIM_SRC_2/limrst_2.F90

    r1470 r1471  
    112112      CALL iom_rstput( iter, nitrst, numriw, 'frld'  , frld  (:,:)   ) 
    113113      CALL iom_rstput( iter, nitrst, numriw, 'sist'  , sist  (:,:)   ) 
    114 # if defined key_coupled 
    115       CALL iom_rstput( iter, nitrst, numriw, 'albege', albege(:,:) ) 
    116 # endif 
    117114      CALL iom_rstput( iter, nitrst, numriw, 'tbif1' , tbif  (:,:,1) ) 
    118115      CALL iom_rstput( iter, nitrst, numriw, 'tbif2' , tbif  (:,:,2) ) 
    … …  
    199196      CALL iom_get( numrir, jpdom_autoglo, 'frld'  , frld   )     
    200197      CALL iom_get( numrir, jpdom_autoglo, 'sist'  , sist   )     
    201 # if defined key_coupled  
    202       CALL iom_get( numrir, jpdom_autoglo, 'albege', albege )     
    203 # endif 
    204198      CALL iom_get( numrir, jpdom_autoglo, 'tbif1' , tbif(:,:,1) )     
    205199      CALL iom_get( numrir, jpdom_autoglo, 'tbif2' , tbif(:,:,2) )     

  • trunk/NEMO/LIM_SRC_2/par_ice_2.F90

    r1234 r1471  
    1414 
    1515   INTEGER, PUBLIC, PARAMETER ::   jpl        = 1              !: number of ice categories (only 1 in LIM-2) 
    16    INTEGER, PUBLIC, PARAMETER ::   jpkmax     = 1              !: ??? 
    17    INTEGER, PUBLIC, PARAMETER ::   jpsmax     = 2              !: ??? 
    1816 
    1917   INTEGER, PUBLIC, PARAMETER ::   jplayers   = 2              !: number of vertical ice layers 
Note: See TracChangeset for help on using the changeset viewer.