Changeset 1466 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2009-06-11T09:48:51+02:00 (15 years ago)

Author:

smasson

Message:

replace cice_grid by cigr_type, see ticket:449

File:

• trunk/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -645 +645 @@
       !! ** Method  :   transform the received stress from the atmosphere into
       !!             an atmosphere-ice stress in the (i,j) ocean referencial
-      !!             and at the velocity point of the sea-ice model (cice_grid):
+      !!             and at the velocity point of the sea-ice model (cigr_type):
       !!                'C'-grid : i- (j-) components given at U- (V-) point 
       !!                'B'-grid : both components given at I-point 
@@ -660 +660 @@
       !!                 first  as  2 components on the sphere 
       !!                 second as  2 components oriented along the local grid
-      !!                 third  as  2 components on the cice_grid point 
+      !!                 third  as  2 components on the cigr_type point 
       !!
       !!                In 'oce and ice' case, only one vector stress field 
@@ -668 +668 @@
       !!             transformation is done and only if the ice-grid is a 'B'-grid. 
       !!
-      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cice_grid point
+      !! ** Action  :   return ptau_i, ptau_j, the stress over the ice at cigr_type point
       !!----------------------------------------------------------------------
       REAL(wp), INTENT(out), DIMENSION(jpi,jpj) ::   p_taui   ! i- & j-components of atmos-ice stress [N/m2]
@@ -730 +730 @@
          !    
          !                                                  j+1   j     -----V---F
-         ! ice stress on ice velocity point (cice_grid)                  !       |
+         ! ice stress on ice velocity point (cigr_type)                  !       |
          ! (C-grid ==>(U,V) or B-grid ==> I)                      j      |   T   U
          !                                                               |       |
@@ -737 +737 @@
          !                                                              i-1  i   i
          !                                                               i      i+1 (for I)
-         SELECT CASE ( cice_grid )
+         SELECT CASE ( cigr_type )
             !
          CASE( 'B' )                                         ! B-grid ==> I
@@ -1046 +1046 @@
             END DO
          CASE( 'weighted oce and ice' )   
-            IF( cice_grid == 'C' ) THEN      ! 'C'-grid ice velocity
+            IF( cigr_type == 'C' ) THEN      ! 'C'-grid ice velocity
                DO jj = 2, jpjm1
                   DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -1069 +1069 @@
             CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. )
          CASE( 'mixed oce-ice'        )
-            IF( cice_grid == 'C' ) THEN      ! 'C'-grid ice velocity
+            IF( cigr_type == 'C' ) THEN      ! 'C'-grid ice velocity
                DO jj = 2, jpjm1
                   DO ji = fs_2, fs_jpim1   ! vector opt.