Changeset 1857 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limdyn_2.F90

Timestamp:

2010-05-03T13:59:46+02:00 (14 years ago)

Author:

gm

Message:

ticket:#665 Reverting previous commit and going back to revision 1850

File:

• branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limdyn_2.F90 (modified) (5 diffs)

branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limdyn_2.F90

@@ -17 +17 @@
    !!----------------------------------------------------------------------
    USE dom_oce        ! ocean space and time domain
-   USE sbc_oce        ! surface boundary condition : ocean
-   USE phycst         ! physical constants
-   USE ice_2          ! LIM-2 sea-ice variables
-   USE dom_ice_2      ! LIM-2 domain
-   USE limistate_2    ! LIM-2 initial state
-   USE limrhg_2       ! LIM-2 rheology
+   USE sbc_oce        !
+   USE phycst         !
+   USE ice_2          !
+   USE dom_ice_2      !
+   USE limistate_2    !
+   USE limrhg_2       ! ice rheology
 
    USE lbclnk         !
@@ -34 +34 @@
    PUBLIC   lim_dyn_2 ! routine called by sbc_ice_lim
 
+   !! * Module variables
    REAL(wp)  ::  rone    = 1.e0   ! constant value
 
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/LIM 3.3,  UCL-LOCEAN-IPSL (2010) 
+   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2006) 
    !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -58 +59 @@
       !!              - treatment of the case if no ice dynamic
       !!---------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kt   ! number of iteration
-      !!
-      INTEGER  ::   ji, jj        ! dummy loop indices
-      INTEGER  ::   i_j1, i_jpj   ! Starting/ending j-indices for rheology
-      REAL(wp) ::   zcoef         ! temporary scalar
+      INTEGER, INTENT(in) ::   kt     ! number of iteration
+      !!
+      INTEGER  ::   ji, jj             ! dummy loop indices
+      INTEGER  ::   i_j1, i_jpj        ! Starting/ending j-indices for rheology
+      REAL(wp) ::   zcoef              ! temporary scalar
       REAL(wp), DIMENSION(jpj)     ::   zind           ! i-averaged indicator of sea-ice
       REAL(wp), DIMENSION(jpj)     ::   zmsk           ! i-averaged of tmask
@@ -143 +144 @@
          ENDIF
 
-         IF(ln_ctl)   CALL prt_ctl( tab2d_1=u_ice, clinfo1=' lim_dyn  : u_ice :', tab2d_2=v_ice, clinfo2=' v_ice :' )
+         IF(ln_ctl)   CALL prt_ctl(tab2d_1=u_ice , clinfo1=' lim_dyn  : u_ice :', tab2d_2=v_ice , clinfo2=' v_ice :')
          
          ! computation of friction velocity
@@ -178 +179 @@
       CALL lbc_lnk( ust2s, 'T',  1. )   ! T-point
       !
-      IF(ln_ctl)   CALL prt_ctl( tab2d_1=ust2s, clinfo1=' lim_dyn  : ust2s :' )
+      IF(ln_ctl)   CALL prt_ctl(tab2d_1=ust2s , clinfo1=' lim_dyn  : ust2s :')
 
    END SUBROUTINE lim_dyn_2