Changeset 4345 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2014-01-10T16:59:04+01:00 (10 years ago)

Author:

clem

Message:

clean the glob_sum diags and make scalar.nc work

File:

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

branches/2013/dev_r4028_CNRS_LIM3/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 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, sshu_b, sshv_b, sshu_n, sshv_n, sshf_n
    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, sshu_b, sshv_b, sshu_n, sshv_n, sshf_n
-   USE dom_ice,    ONLY : tms
-   USE lib_fortran      ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
 
    IMPLICIT NONE
@@ -438 +439 @@
       ENDIF ! .NOT. ln_rstart
       !
-!!?      IF( .NOT. ln_rstart ) THEN           ! delete the initial ssh below sea-ice area
-!!?         !
-!!?         zarea     = glob_sum( e1e2t(:,:) )           ! interior global domain surface
-!!?         zsum      = glob_sum( e1e2t(:,:) * ( snwice_mass(:,:) ) ) / zarea * r1_rau0
-!!?         sshn(:,:) = sshn(:,:) - zsum 
-!!?         sshb(:,:) = sshb(:,:) - zsum
-!!?      ENDIF
-      !
 
    END SUBROUTINE lim_sbc_init