Changeset 4299 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO

Timestamp:

2013-11-20T19:37:02+01:00 (10 years ago)

Author:

clem

Message:

 

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -24 +24 @@
    !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
+   USE phycst           ! physical constants
    USE par_ice          ! ice parameters
    USE dom_oce          ! ocean domain
+   USE domvvl           ! ocean vertical scale factors
+   USE dom_ice,    ONLY : tms
+   USE ice              ! LIM sea-ice variables
    USE sbc_ice          ! Surface boundary condition: sea-ice fields
    USE sbc_oce          ! Surface boundary condition: ocean fields
-   USE phycst           ! physical constants
+   USE sbccpl
+   USE cpl_oasis3, ONLY : lk_cpl
+   USE oce       , ONLY : iatte, oatte, sshn, sshb, snwice_mass, snwice_mass_b, snwice_fmass
    USE albedo           ! albedo parameters
-   USE ice              ! LIM sea-ice variables
-   USE lbclnk           ! ocean lateral boundary condition
-   USE in_out_manager   ! I/O manager
+   USE lbclnk           ! ocean lateral boundary condition - MPP exchanges
    USE lib_mpp          ! MPP library
    USE wrk_nemo         ! work arrays
+   USE in_out_manager   ! I/O manager
    USE prtctl           ! Print control
-   USE cpl_oasis3, ONLY : lk_cpl
+   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
    USE traqsr           ! clem: add penetration of solar flux into the calculation of heat budget
-   USE oce,        ONLY : iatte, oatte, sshn, sshb, snwice_mass, snwice_mass_b, snwice_fmass
-   USE dom_ice,    ONLY : tms
-   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
    IMPLICIT NONE
@@ -396 +398 @@
       REAL(wp) :: zsum, zarea
       !
-      INTEGER  ::   ji, jj                          ! dummy loop indices
+      INTEGER  ::   ji, jj, jk                       ! dummy loop indices
       REAL(wp) ::   zcoefu, zcoefv, zcoeff          ! local scalar
       IF(lwp) WRITE(numout,*)