Changeset 4649 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

Timestamp:

2014-05-27T11:28:12+02:00 (10 years ago)

Author:

clem

Message:

finalizing LIM3 heat budget conservation + multiple minor bugs corrections

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90 (modified) (4 diffs)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

@@ -26 +26 @@
    USE dom_ice          ! sea-ice domain
    USE in_out_manager   ! I/O manager
-   USE lbclnk           ! lateral boundary condition - MPP exchanges
    USE lib_mpp          ! MPP library
    USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
@@ -390 +389 @@
       tn_ice (:,:,:) = t_su (:,:,:)
 
-      !--------------------------------------------------------------------
-      ! 4) Lateral boundary conditions                                    | 
-      !--------------------------------------------------------------------
-      DO jl = 1, jpl
-
-         CALL lbc_lnk( a_i(:,:,jl)  , 'T', 1. )
-         CALL lbc_lnk( v_i(:,:,jl)  , 'T', 1. )
-         CALL lbc_lnk( v_s(:,:,jl)  , 'T', 1. )
-         CALL lbc_lnk( smv_i(:,:,jl), 'T', 1. )
-         CALL lbc_lnk( oa_i(:,:,jl) , 'T', 1. )
-
-         CALL lbc_lnk( ht_i(:,:,jl) , 'T', 1. )
-         CALL lbc_lnk( ht_s(:,:,jl) , 'T', 1. )
-         CALL lbc_lnk( sm_i(:,:,jl) , 'T', 1. )
-         CALL lbc_lnk( o_i(:,:,jl)  , 'T', 1. )
-         CALL lbc_lnk( t_su(:,:,jl) , 'T', 1. )
-         CALL lbc_lnk( tn_ice(:,:,jl) , 'T', 1. )
-         DO jk = 1, nlay_s
-            CALL lbc_lnk(t_s(:,:,jk,jl), 'T', 1. )
-            CALL lbc_lnk(e_s(:,:,jk,jl), 'T', 1. )
-         END DO
-         DO jk = 1, nlay_i
-            CALL lbc_lnk(t_i(:,:,jk,jl), 'T', 1. )
-            CALL lbc_lnk(e_i(:,:,jk,jl), 'T', 1. )
-         END DO
-         !
-!         a_i(:,:,jl) = tms(:,:) * a_i(:,:,jl)
-      END DO
-
       ELSE 
          ! if ln_limini=false
@@ -449 +419 @@
          at_i (:,:) = at_i (:,:) + a_i (:,:,jl)
       END DO
-      CALL lbc_lnk( at_i , 'T', 1. )
-!      at_i(:,:) = tms(:,:) * at_i(:,:)
       !
       !--------------------------------------------------------------------
-      ! 5) Global ice variables for output diagnostics                    | 
+      ! 4) Global ice variables for output diagnostics                    | 
       !--------------------------------------------------------------------
       u_ice (:,:)     = 0._wp
@@ -462 +430 @@
 
       !--------------------------------------------------------------------
-      ! 6) Moments for advection
+      ! 5) Moments for advection
       !--------------------------------------------------------------------