Changeset 2305 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

Timestamp:

2010-10-25T16:13:35+02:00 (14 years ago)

Author:

davestorkey

Message:

Updates to BDY - DOCTOR standards

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90 (modified) (6 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

@@ -11 +11 @@
    !!   'key_lim2'                                                 LIM-2 sea ice model
    !!----------------------------------------------------------------------
-   !!   bdy_ice        : Relaxation of tracers on unstructured open boundaries
+   !!   bdy_ice_frs        : Relaxation of tracers on unstructured open boundaries
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers variables
@@ -23 +23 @@
    PRIVATE
 
-   PUBLIC   bdy_ice    ! routine called in sbcmod
+   PUBLIC   bdy_ice_frs    ! routine called in sbcmod
 
    !!----------------------------------------------------------------------
@@ -32 +32 @@
 CONTAINS
 
-   SUBROUTINE bdy_ice( kt )
+   SUBROUTINE bdy_ice_frs( kt )
       !!------------------------------------------------------------------------------
-      !!                 ***  SUBROUTINE bdy_ice  ***
+      !!                 ***  SUBROUTINE bdy_ice_frs  ***
       !!                    
       !! ** Purpose : Apply the Flow Relaxation Scheme for sea-ice fields in the case 
@@ -51 +51 @@
       jgrd = 1      ! Everything is at T-points here
       !
-      IF( ln_bdy_ice_frs ) THEN     ! update ice fields by relaxation at the boundary
+      IF( ln_ice_frs ) THEN     ! update ice fields by relaxation at the boundary
          DO jb = 1, nblen(jgrd)
             DO jk = 1, jpkm1
@@ -66 +66 @@
          CALL lbc_lnk( hicif, 'T', 1. )   ;   CALL lbc_lnk( hsnif, 'T', 1. )
          !
-      ELSE                          ! we have called this routine without ln_bdy_ice_frs not set
-         IF( kt == nit000 )   CALL ctl_warn( 'E R R O R (possible) called bdy_ice when ln_bdy_ice_frs is false?' )
+      ELSE                          ! we have called this routine without ln_ice_frs not set
+         IF( kt == nit000 )   CALL ctl_warn( 'E R R O R (possible) called bdy_ice_frs when ln_ice_frs is false?' )
       ENDIF
       !      
-   END SUBROUTINE bdy_ice
+   END SUBROUTINE bdy_ice_frs
 #else
    !!---------------------------------------------------------------------------------
@@ -76 +76 @@
    !!---------------------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE bdy_ice( kt )      ! Empty routine
-      WRITE(*,*) 'bdy_ice: You should not have seen this print! error?', kt
-   END SUBROUTINE bdy_ice
+   SUBROUTINE bdy_ice_frs( kt )      ! Empty routine
+      WRITE(*,*) 'bdy_ice_frs: You should not have seen this print! error?', kt
+   END SUBROUTINE bdy_ice_frs
 #endif