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 – NEMO

Changeset 1471


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
Files:
10 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 

  • trunk/NEMO/LIM_SRC_3/ice.F90

    r1465 r1471  
    332332      fhmec         !: Heat flux due to snow loss during compression 
    333333 
    334    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::       &  !: 
    335       albege ,   &  !: Albedo of the snow or ice (only for outputs) 
    336       albecn ,   &  !: Albedo of the ocean (only for outputs) 
    337       tauc          !: Cloud optical depth 
    338  
    339334   ! temporary arrays for dummy version of the code 
    340335   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !: 
    … …  
    382377      vt_i_typ           !: total volume contained in each ice type 
    383378 
    384    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpsmax) ::   &  !: 
    385       scal0              !: ??? 
    386  
    387379   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,nlay_s,jpl) :: & !: 
    388380      t_s,            &  !: Snow temperatures (K) 
    … …  
    396388      e_i,            &  !: Ice thermal contents [ Joules*10^9 ] 
    397389      s_i                !: Ice salinities 
    398  
    399    REAL(wp), DIMENSION(jpi,jpj,0:jpkmax+1) ::    &  !: 
    400       reslum        !: Relative absorption of solar radiation in each ocean level 
    401390 
    402391   !!-------------------------------------------------------------------------- 

  • trunk/NEMO/LIM_SRC_3/iceini.F90

    r1465 r1471  
    9191 
    9292      fr_i(:,:) = at_i(:,:)           ! initialisation of sea-ice fraction 
    93 # if defined key_coupled 
    94       Must be adpated to LIM3  
    95       alb_ice(:,:,:) = albege(:,:)      ! sea-ice albedo 
    96 # endif 
    9793 
    9894      nstart = numit  + nn_fsbc       

  • trunk/NEMO/LIM_SRC_3/limistate.F90

    r1465 r1471  
    466466      stress2_i(:,:)  = 0.0 
    467467      stress12_i(:,:) = 0.0 
    468  
    469 # if defined key_coupled 
    470       albege(:,:)   = 0.8 * tms(:,:) 
    471 # endif 
    472468 
    473469      !-------------------------------------------------------------------- 

  • trunk/NEMO/LIM_SRC_3/limrst.F90

    r1469 r1471  
    137137         CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 
    138138      END DO 
    139 # if defined key_coupled 
    140       CALL iom_rstput( iter, nitrst, numriw, 'albege', albege(:,:) ) 
    141 # endif 
     139 
    142140      DO jl = 1, jpl  
    143141         WRITE(zchar,'(I1)') jl 
    … …  
    495493      ENDIF 
    496494 
    497 # if defined key_coupled  
    498       CALL iom_get( numrir, jpdom_autoglo, 'albege'   , albege ) 
    499 # endif 
    500495      DO jl = 1, jpl  
    501496         WRITE(zchar,'(I1)') jl 

  • trunk/NEMO/LIM_SRC_3/par_ice.F90

    r1156 r1471  
    1515   PUBLIC               ! allows par_oce and par_kind to be known in ice modules 
    1616 
    17    INTEGER, PARAMETER ::   &  !: 
    18       jpkmax =   1    ,      &  !: ??? 
    19       jpsmax =  2              !: ??? 
    20  
    2117   !ICE THERMODYNAMICS 
    2218   INTEGER , PARAMETER ::      &  !: 
Note: See TracChangeset for help on using the changeset viewer.