Changeset 1466


Ignore:
Timestamp:
2009-06-11T09:48:51+02:00 (11 years ago)
Author:
smasson
Message:

replace cice_grid by cigr_type, see ticket:449

Location:
trunk/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r1465 r1466  
    2424   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .TRUE.    !: LIM-2 ice model 
    2525   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.   !: no LIM-3 
    26    CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'B'       !: 'B'-grid ice-velocity 
     26   CHARACTER(len=1), PUBLIC            ::   cigr_type      = 'B'       !: 'B'-grid ice-velocity 
    2727# endif 
    2828# if defined  key_lim3 
    2929   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.   !: no LIM-2 
    3030   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .TRUE.    !: LIM-3 ice model 
    31    CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'       !: 'C'-grid ice-velocity 
     31   CHARACTER(len=1), PUBLIC            ::   cigr_type      = 'C'       !: 'C'-grid ice-velocity 
    3232# endif 
    3333 
     
    5757   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.  !: no LIM-2 ice model 
    5858   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.  !: no LIM-3 ice model 
    59    CHARACTER(len=1), PUBLIC            ::   cice_grid      = '-'      !: no grid ice-velocity 
     59   CHARACTER(len=1), PUBLIC            ::   cigr_type      = '-'      !: no grid ice-velocity 
    6060 
    6161#endif 
  • trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

    r1465 r1466  
    645645      !! ** Method  :   transform the received stress from the atmosphere into 
    646646      !!             an atmosphere-ice stress in the (i,j) ocean referencial 
    647       !!             and at the velocity point of the sea-ice model (cice_grid): 
     647      !!             and at the velocity point of the sea-ice model (cigr_type): 
    648648      !!                'C'-grid : i- (j-) components given at U- (V-) point  
    649649      !!                'B'-grid : both components given at I-point  
     
    660660      !!                 first  as  2 components on the sphere  
    661661      !!                 second as  2 components oriented along the local grid 
    662       !!                 third  as  2 components on the cice_grid point  
     662      !!                 third  as  2 components on the cigr_type point  
    663663      !! 
    664664      !!                In 'oce and ice' case, only one vector stress field  
     
    668668      !!             transformation is done and only if the ice-grid is a 'B'-grid.  
    669669      !! 
    670       !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cice_grid point 
     670      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cigr_type point 
    671671      !!---------------------------------------------------------------------- 
    672672      REAL(wp), INTENT(out), DIMENSION(jpi,jpj) ::   p_taui   ! i- & j-components of atmos-ice stress [N/m2] 
     
    730730         !     
    731731         !                                                  j+1   j     -----V---F 
    732          ! ice stress on ice velocity point (cice_grid)                  !       | 
     732         ! ice stress on ice velocity point (cigr_type)                  !       | 
    733733         ! (C-grid ==>(U,V) or B-grid ==> I)                      j      |   T   U 
    734734         !                                                               |       | 
     
    737737         !                                                              i-1  i   i 
    738738         !                                                               i      i+1 (for I) 
    739          SELECT CASE ( cice_grid ) 
     739         SELECT CASE ( cigr_type ) 
    740740            ! 
    741741         CASE( 'B' )                                         ! B-grid ==> I 
     
    10461046            END DO 
    10471047         CASE( 'weighted oce and ice' )    
    1048             IF( cice_grid == 'C' ) THEN      ! 'C'-grid ice velocity 
     1048            IF( cigr_type == 'C' ) THEN      ! 'C'-grid ice velocity 
    10491049               DO jj = 2, jpjm1 
    10501050                  DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    10691069            CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. ) 
    10701070         CASE( 'mixed oce-ice'        ) 
    1071             IF( cice_grid == 'C' ) THEN      ! 'C'-grid ice velocity 
     1071            IF( cigr_type == 'C' ) THEN      ! 'C'-grid ice velocity 
    10721072               DO jj = 2, jpjm1 
    10731073                  DO ji = fs_2, fs_jpim1   ! vector opt. 
Note: See TracChangeset for help on using the changeset viewer.