Ignore:
Timestamp:
02/08/12 17:17:04 (12 years ago)
Author:
cholod
Message:

Load NEMO_TMP into vendor/nemo/current.

Location:
vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
21 edited

Legend:

Unmodified
Added
Removed

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r1 r4  
    4848   !!---------------------------------------------------------------------- 
    4949   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    50    !! $Id: albedo.F90 3209 2011-12-10 08:04:49Z smasson $ 
     50   !! $Id: albedo.F90 3294 2012-01-28 16:44:18Z rblod $ 
    5151   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    5252   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r1 r4  
    6868   !!---------------------------------------------------------------------- 
    6969   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    70    !! $Id: cpl_oasis3.F90 3116 2011-11-15 20:55:40Z cetlod $ 
     70   !! $Id: cpl_oasis3.F90 3294 2012-01-28 16:44:18Z rblod $ 
    7171   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    7272   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis4.F90

    r1 r4  
    6969   !!---------------------------------------------------------------------- 
    7070   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    71    !! $Id: cpl_oasis4.F90 3186 2011-11-27 08:16:19Z smasson $ 
     71   !! $Id: cpl_oasis4.F90 3294 2012-01-28 16:44:18Z rblod $ 
    7272   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    7373   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r1 r4  
    100100   !!---------------------------------------------------------------------- 
    101101   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    102    !! $Id: fldread.F90 3191 2011-12-05 09:41:41Z davestorkey $ 
     102   !! $Id: fldread.F90 3294 2012-01-28 16:44:18Z rblod $ 
    103103   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    104104   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r1 r4  
    100100   !!---------------------------------------------------------------------- 
    101101   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    102    !! $Id: sbc_ice.F90 3116 2011-11-15 20:55:40Z cetlod $  
     102   !! $Id: sbc_ice.F90 3294 2012-01-28 16:44:18Z rblod $  
    103103   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    104104   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r1 r4  
    8989   !!---------------------------------------------------------------------- 
    9090   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    91    !! $Id: sbc_oce.F90 3105 2011-11-15 11:33:20Z poddo $ 
     91   !! $Id: sbc_oce.F90 3294 2012-01-28 16:44:18Z rblod $ 
    9292   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    9393   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r1 r4  
    4141   !!---------------------------------------------------------------------- 
    4242   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    43    !! $Id: sbcana.F90 2977 2011-10-22 13:46:41Z cetlod $ 
     43   !! $Id: sbcana.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4444   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4545   !!---------------------------------------------------------------------- 
    … …  
    8989         nn_tau000 = MAX( nn_tau000, 1 )     ! must be >= 1 
    9090         ! 
     91         qns (:,:) = rn_qns0 
     92         qsr (:,:) = rn_qsr0 
     93         emp (:,:) = rn_emp0 
     94         emps(:,:) = rn_emp0 
     95         ! 
     96         utau(:,:) = rn_utau0 
     97         vtau(:,:) = rn_vtau0 
     98         taum(:,:) = SQRT ( rn_utau0 * rn_utau0 + rn_vtau0 * rn_vtau0 ) 
     99         wndm(:,:) = SQRT ( taum(1,1) /  ( zrhoa * zcdrag ) ) 
     100         ! 
    91101      ENDIF 
    92102 
    93       qns (:,:) = rn_qns0 
    94       qsr (:,:) = rn_qsr0 
    95       emp (:,:) = rn_emp0 
    96       emps(:,:) = rn_emp0 
    97103    
    98104      ! Increase the surface stress to its nominal value during the first nn_tau000 time-steps 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1 r4  
    2828   USE lib_mpp         ! distribued memory computing library 
    2929   USE wrk_nemo        ! work arrays 
     30   USE timing          ! Timing 
    3031   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3132 
    … …  
    8485   !!---------------------------------------------------------------------- 
    8586   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    86    !! $Id: sbcblk_clio.F90 3186 2011-11-27 08:16:19Z smasson $  
     87   !! $Id: sbcblk_clio.F90 3294 2012-01-28 16:44:18Z rblod $  
    8788   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    8889   !!---------------------------------------------------------------------- 
    … …  
    227228      REAL(wp), POINTER, DIMENSION(:,:) ::   zqsb        ! sensible heat flux over ocean 
    228229      !!--------------------------------------------------------------------- 
    229  
     230      ! 
     231      IF( nn_timing == 1 )  CALL timing_start('blk_oce_clio') 
     232      ! 
    230233      CALL wrk_alloc( jpi,jpj, zqlw, zqla, zqsb ) 
    231234 
    … …  
    381384      CALL wrk_dealloc( jpi,jpj, zqlw, zqla, zqsb ) 
    382385      ! 
     386      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_clio') 
     387      ! 
    383388   END SUBROUTINE blk_oce_clio 
    384389 
    … …  
    444449      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_qlw, z_qsb 
    445450      !!--------------------------------------------------------------------- 
    446  
     451      ! 
     452      IF( nn_timing == 1 )  CALL timing_start('blk_ice_clio') 
     453      ! 
    447454      CALL wrk_alloc( jpi,jpj, ztatm, zqatm, zevsqr, zrhoa ) 
    448455      CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb ) 
    … …  
    625632      CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb ) 
    626633      ! 
     634      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_clio') 
     635      ! 
    627636   END SUBROUTINE blk_ice_clio 
    628637 
    … …  
    661670      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
    662671      !!--------------------------------------------------------------------- 
    663  
     672      ! 
     673      IF( nn_timing == 1 )  CALL timing_start('blk_clio_qsr_oce') 
     674      ! 
    664675      CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    665676 
    … …  
    778789      CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    779790      ! 
     791      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_oce') 
     792      ! 
    780793   END SUBROUTINE blk_clio_qsr_oce 
    781794 
    … …  
    812825      REAL(wp), DIMENSION(:,:), POINTER ::   zdlha, zlsrise, zlsset   ! 2D workspace 
    813826      REAL(wp), DIMENSION(:,:), POINTER ::   zps, zpc   ! sine (cosine) of latitude per sine (cosine) of solar declination  
    814        !!--------------------------------------------------------------------- 
    815  
     827      !!--------------------------------------------------------------------- 
     828      ! 
     829      IF( nn_timing == 1 )  CALL timing_start('blk_clio_qsr_ice') 
     830      ! 
    816831      CALL wrk_alloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    817832 
    … …  
    919934      CALL wrk_dealloc( jpi,jpj, zev, zdlha, zlsrise, zlsset, zps, zpc ) 
    920935      ! 
     936      IF( nn_timing == 1 )  CALL timing_stop('blk_clio_qsr_ice') 
     937      ! 
    921938   END SUBROUTINE blk_clio_qsr_ice 
    922939 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r1 r4  
    3434   USE lib_mpp         ! distribued memory computing library 
    3535   USE wrk_nemo        ! work arrays 
     36   USE timing          ! Timing 
    3637   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3738   USE prtctl          ! Print control 
    … …  
    8081   !!---------------------------------------------------------------------- 
    8182   !! NEMO/OPA 3.3 , NEMO-consortium (2010)  
    82    !! $Id: sbcblk_core.F90 3186 2011-11-27 08:16:19Z smasson $ 
     83   !! $Id: sbcblk_core.F90 3294 2012-01-28 16:44:18Z rblod $ 
    8384   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    8485   !!---------------------------------------------------------------------- 
    … …  
    242243      REAL(wp), DIMENSION(:,:), POINTER ::   zq_zu             ! air spec. hum.  at wind speed height 
    243244      !!--------------------------------------------------------------------- 
    244  
     245      ! 
     246      IF( nn_timing == 1 )  CALL timing_start('blk_oce_core') 
     247      ! 
    245248      CALL wrk_alloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 
    246249      CALL wrk_alloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) 
    … …  
    396399      CALL wrk_dealloc( jpi,jpj, zwnd_i, zwnd_j, zqsatw, zqlw, zqsb, zqla, zevap ) 
    397400      CALL wrk_dealloc( jpi,jpj, Cd, Ch, Ce, zst, zt_zu, zq_zu ) 
     401      ! 
     402      IF( nn_timing == 1 )  CALL timing_stop('blk_oce_core') 
    398403      ! 
    399404   END SUBROUTINE blk_oce_core 
    … …  
    450455      REAL(wp), DIMENSION(:,:,:), POINTER ::   z_dqsb            ! sensible  heat sensitivity over ice 
    451456      !!--------------------------------------------------------------------- 
    452  
     457      ! 
     458      IF( nn_timing == 1 )  CALL timing_start('blk_ice_core') 
     459      ! 
    453460      CALL wrk_alloc( jpi,jpj, z_wnds_t ) 
    454461      CALL wrk_alloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb )  
    … …  
    610617      CALL wrk_dealloc( jpi,jpj,pdim, z_qlw, z_qsb, z_dqlw, z_dqsb )  
    611618      ! 
     619      IF( nn_timing == 1 )  CALL timing_stop('blk_ice_core') 
     620      ! 
    612621   END SUBROUTINE blk_ice_core 
    613622   
    … …  
    663672      INTEGER , DIMENSION(:,:), POINTER  ::   stab          ! 1st guess stability test integer 
    664673      !!---------------------------------------------------------------------- 
    665  
     674      ! 
     675      IF( nn_timing == 1 )  CALL timing_start('TURB_CORE_1Z') 
     676      ! 
    666677      CALL wrk_alloc( jpi,jpj, stab )   ! integer 
    667678      CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
    … …  
    739750      CALL wrk_dealloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
    740751      CALL wrk_dealloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta, U_n10, xlogt, xct, zpsi_h, zpsi_m ) 
     752      ! 
     753      IF( nn_timing == 1 )  CALL timing_stop('TURB_CORE_1Z') 
    741754      ! 
    742755    END SUBROUTINE TURB_CORE_1Z 
    … …  
    796809      INTEGER , DIMENSION(:,:), POINTER ::   stab          ! 1st stability test integer 
    797810      !!---------------------------------------------------------------------- 
    798  
     811      ! 
     812      IF( nn_timing == 1 )  CALL timing_start('TURB_CORE_2Z') 
     813      ! 
    799814      CALL wrk_alloc( jpi,jpj, dU10, dT, dq, Cd_n10, Ce_n10, Ch_n10, sqrt_Cd_n10, sqrt_Cd, L ) 
    800815      CALL wrk_alloc( jpi,jpj, T_vpot, T_star, q_star, U_star, zeta_u, zeta_t, U_n10 ) 
    … …  
    887902      CALL wrk_dealloc( jpi,jpj, stab )   ! interger 
    888903      ! 
     904      IF( nn_timing == 1 )  CALL timing_stop('TURB_CORE_2Z') 
     905      ! 
    889906    END SUBROUTINE TURB_CORE_2Z 
    890907 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r1 r4  
    2121   USE lib_mpp         ! distribued memory computing library 
    2222   USE wrk_nemo        ! work arrays 
     23   USE timing          ! Timing 
    2324   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2425   USE prtctl          ! Print control 
    … …  
    120121         &                  sn_tair , sn_rhm , sn_prec  
    121122      !!--------------------------------------------------------------------- 
    122  
     123      ! 
     124      IF( nn_timing == 1 )  CALL timing_start('sbc_blk_mfs') 
     125      ! 
    123126      !                                         ! ====================== ! 
    124127      IF( kt == nit000 ) THEN                   !  First call kt=nit000  ! 
    … …  
    263266 
    264267      ENDIF 
    265  
     268      ! 
     269      IF( nn_timing == 1 )  CALL timing_stop('sbc_blk_mfs') 
     270      ! 
    266271   END SUBROUTINE sbc_blk_mfs 
    267272   
    … …  
    324329      REAL(wp), DIMENSION(5) :: p_e = (/-0.16,1.0,1.0,1.0,1.0/) 
    325330      INTEGER :: kku                        !index varing with wind speed 
    326  
     331      ! 
     332      IF( nn_timing == 1 )  CALL timing_start('fluxes_mfs') 
     333      ! 
    327334      CALL wrk_alloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 
    328335      CALL wrk_alloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) 
    … …  
    490497      CALL wrk_dealloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms ) 
    491498      CALL wrk_dealloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv ) 
    492  
     499      ! 
     500      IF( nn_timing == 1 )  CALL timing_stop('fluxes_mfs') 
     501      ! 
    493502   END SUBROUTINE fluxes_mfs 
    494503 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r1 r4  
    4848   USE lib_mpp         ! distribued memory computing library 
    4949   USE wrk_nemo        ! work arrays 
     50   USE timing          ! Timing 
    5051   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    5152#if defined key_cpl_carbon_cycle 
    … …  
    169170   !!---------------------------------------------------------------------- 
    170171   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    171    !! $Id: sbccpl.F90 3186 2011-11-27 08:16:19Z smasson $ 
     172   !! $Id: sbccpl.F90 3294 2012-01-28 16:44:18Z rblod $ 
    172173   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    173174   !!---------------------------------------------------------------------- 
    … …  
    227228         &                  sn_rcv_qns , sn_rcv_emp   , sn_rcv_rnf  , sn_rcv_cal   , sn_rcv_iceflx  , sn_rcv_co2 
    228229      !!--------------------------------------------------------------------- 
    229  
     230      ! 
     231      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_init') 
     232      ! 
    230233      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
    231234 
    … …  
    617620      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    618621      ! 
     622      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_init') 
     623      ! 
    619624   END SUBROUTINE sbc_cpl_init 
    620625 
    … …  
    676681      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty  
    677682      !!---------------------------------------------------------------------- 
    678  
     683      ! 
     684      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv') 
     685      ! 
    679686      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    680687 
    … …  
    862869      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    863870      ! 
     871      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_rcv') 
     872      ! 
    864873   END SUBROUTINE sbc_cpl_rcv 
    865874    
    … …  
    905914      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty  
    906915      !!---------------------------------------------------------------------- 
    907        
     916      ! 
     917      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_tau') 
     918      ! 
    908919      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
    909920 
    … …  
    10701081      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    10711082      ! 
     1083      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1084      ! 
    10721085   END SUBROUTINE sbc_cpl_ice_tau 
    10731086    
    … …  
    11221135      REAL(wp), POINTER, DIMENSION(:,:) ::   zcptn, ztmp, zicefr 
    11231136      !!---------------------------------------------------------------------- 
    1124  
     1137      ! 
     1138      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx') 
     1139      ! 
    11251140      CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    11261141 
    … …  
    13011316      CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    13021317      ! 
     1318      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_flx') 
     1319      ! 
    13031320   END SUBROUTINE sbc_cpl_ice_flx 
    13041321    
    … …  
    13201337      REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztmp3, ztmp4    
    13211338      !!---------------------------------------------------------------------- 
    1322  
     1339      ! 
     1340      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_snd') 
     1341      ! 
    13231342      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
    13241343      CALL wrk_alloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    … …  
    15451564      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    15461565      ! 
     1566      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_snd') 
     1567      ! 
    15471568   END SUBROUTINE sbc_cpl_snd 
    15481569    

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

    r1 r4  
    1818   USE in_out_manager   ! I/O manager 
    1919   USE lib_mpp          ! MPP library 
     20   USE timing           ! Timing 
    2021 
    2122   IMPLICIT NONE 
    … …  
    3132   !!---------------------------------------------------------------------- 
    3233   !! NEMO/OPA 3.3 , NEMO-consortium (2010)  
    33    !! $Id: sbcdcy.F90 2715 2011-03-30 15:58:35Z rblod $  
     34   !! $Id: sbcdcy.F90 3294 2012-01-28 16:44:18Z rblod $  
    3435   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3536   !!---------------------------------------------------------------------- 
    … …  
    7677         & - paaa * pt1 - zinvtwopi * pbbb * SIN(pccc + ztwopi * pt1) 
    7778      !!--------------------------------------------------------------------- 
    78  
     79      ! 
     80      IF( nn_timing == 1 )  CALL timing_start('sbc_dcy') 
     81      ! 
    7982      ! Initialization 
    8083      ! -------------- 
    … …  
    221224      END DO   
    222225      ! 
     226      IF( nn_timing == 1 )  CALL timing_stop('sbc_dcy') 
     227      ! 
    223228   END FUNCTION sbc_dcy 
    224229 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r1 r4  
    2323   USE lib_mpp         ! distribued memory computing library 
    2424   USE wrk_nemo        ! work arrays 
     25   USE timing          ! Timing 
    2526   USE lbclnk          ! ocean lateral boundary conditions 
    2627   USE lib_fortran 
    … …  
    4142   !!---------------------------------------------------------------------- 
    4243   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    43    !! $Id: sbcfwb.F90 3186 2011-11-27 08:16:19Z smasson $ 
     44   !! $Id: sbcfwb.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4445   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    4546   !!---------------------------------------------------------------------- 
    … …  
    6869      REAL(wp), POINTER, DIMENSION(:,:) ::   ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor 
    6970      !!---------------------------------------------------------------------- 
     71      ! 
     72      IF( nn_timing == 1 )  CALL timing_start('sbc_fwb') 
    7073      ! 
    7174      CALL wrk_alloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 
    … …  
    192195      CALL wrk_dealloc( jpi,jpj, ztmsk_neg, ztmsk_pos, ztmsk_tospread, z_wgt, zerp_cor ) 
    193196      ! 
     197      IF( nn_timing == 1 )  CALL timing_stop('sbc_fwb') 
     198      ! 
    194199   END SUBROUTINE sbc_fwb 
    195200 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r1 r4  
    1414   USE oce             ! ocean dynamics and tracers 
    1515   USE dom_oce         ! ocean space and time domain 
     16   USE domvvl 
    1617   USE phycst, only : rcp, rau0 
    1718   USE in_out_manager  ! I/O manager 
    … …  
    354355 
    355356! Freezing/melting potential 
    356 ! Calculated over NEMO leapfrog timestep (hence 2*dt), so uses tb in  
    357 ! frzmlt which is then applied in going from tb to ta. 
    358 ! May be better using sst_m if not coupling to CICE every time-step 
    359  
    360 !      nfrzmlt(:,:)=rau0*rcp*fse3t(:,:,1)*(Tocnfrz-sst_m(:,:))/(2.0*dt) 
    361       nfrzmlt(:,:)=rau0*rcp*fse3t(:,:,1)*(Tocnfrz-tsb(:,:,1,jp_tem))/(2.0*dt) 
     357! Calculated over NEMO leapfrog timestep (hence 2*dt) 
     358      nfrzmlt(:,:)=rau0*rcp*fse3t_m(:,:,1)*(Tocnfrz-sst_m(:,:))/(2.0*dt) 
    362359 
    363360      ztmp(:,:) = nfrzmlt(:,:) 
    … …  
    499496! Sublimation from the ice is treated in a similar way (included in emp but not emps)   
    500497! 
    501 ! This will need re-thinking in the variable volume case and if ice is 'embedded' in the  
    502 ! ocean rather than floating on top 
    503  
    504       emp(:,:)  = emp(:,:) - tprecip(:,:)*fr_i(:,:) 
     498! This should not be done in the variable volume case 
     499 
     500      IF (.NOT. lk_vvl) THEN 
     501 
     502         emp(:,:)  = emp(:,:) - tprecip(:,:)*fr_i(:,:) 
    505503 
    506504! Take sublimation into account 
    507       IF (nsbc == 5 ) THEN  
    508          emp(:,:) = emp(:,:) + ( emp_ice(:,:) + sprecip(:,:) ) 
    509       ELSE IF (nsbc == 2 ) THEN 
    510          emp(:,:) = emp(:,:) - qla_ice(:,:,1) / Lsub 
     505         IF (nsbc == 5 ) THEN  
     506            emp(:,:) = emp(:,:) + ( emp_ice(:,:) + sprecip(:,:) ) 
     507         ELSE IF (nsbc == 2 ) THEN 
     508            emp(:,:) = emp(:,:) - qla_ice(:,:,1) / Lsub 
     509         ENDIF 
     510 
    511511      ENDIF 
    512512 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r1 r4  
    3333   !!---------------------------------------------------------------------- 
    3434   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    35    !! $Id: sbcice_if.F90 3116 2011-11-15 20:55:40Z cetlod $ 
     35   !! $Id: sbcice_if.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3636   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3737   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r1 r4  
    6565   !!---------------------------------------------------------------------- 
    6666   !! NEMO/OPA 4.0 , UCL NEMO Consortium (2011) 
    67    !! $Id: sbcice_lim.F90 3186 2011-11-27 08:16:19Z smasson $ 
     67   !! $Id: sbcice_lim.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6868   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    6969   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1 r4  
    5959   !!---------------------------------------------------------------------- 
    6060   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    61    !! $Id: sbcice_lim_2.F90 3186 2011-11-27 08:16:19Z smasson $ 
     61   !! $Id: sbcice_lim_2.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6262   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    6363   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r1 r4  
    4949   USE in_out_manager   ! I/O manager 
    5050   USE lib_mpp          ! MPP library 
     51   USE timing           ! Timing 
    5152   USE sbcwave          ! Wave module 
    5253 
    … …  
    6364   !!---------------------------------------------------------------------- 
    6465   !! NEMO/OPA 4.0 , NEMO-consortium (2011)  
    65    !! $Id: sbcmod.F90 3116 2011-11-15 20:55:40Z cetlod $ 
     66   !! $Id: sbcmod.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6667   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    6768   !!---------------------------------------------------------------------- 
    … …  
    222223      INTEGER, INTENT(in) ::   kt       ! ocean time step 
    223224      !!--------------------------------------------------------------------- 
    224  
     225      ! 
     226      IF( nn_timing == 1 )  CALL timing_start('sbc') 
     227      ! 
    225228      !                                            ! ---------------------------------------- ! 
    226229      IF( kt /= nit000 ) THEN                      !          Swap of forcing fields          ! 
    … …  
    363366      IF( kt == nitend )   CALL sbc_final         ! Close down surface module if necessary 
    364367      ! 
     368      IF( nn_timing == 1 )  CALL timing_stop('sbc') 
     369      ! 
    365370   END SUBROUTINE sbc 
    366371 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r1 r4  
    6666   !!---------------------------------------------------------------------- 
    6767   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    68    !! $Id: sbcrnf.F90 3189 2011-11-29 13:37:29Z charris $ 
     68   !! $Id: sbcrnf.F90 3294 2012-01-28 16:44:18Z rblod $ 
    6969   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    7070   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r1 r4  
    3131   !!---------------------------------------------------------------------- 
    3232   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    33    !! $Id: sbcssm.F90 2977 2011-10-22 13:46:41Z cetlod $ 
     33   !! $Id: sbcssm.F90 3294 2012-01-28 16:44:18Z rblod $ 
    3434   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3535   !!---------------------------------------------------------------------- 

  • vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r1 r4  
    2121   USE lib_mpp         ! distribued memory computing library 
    2222   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     23   USE timing          ! Timing 
    2324 
    2425   IMPLICIT NONE 
    … …  
    4647   !!---------------------------------------------------------------------- 
    4748   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
    48    !! $Id: sbcssr.F90 2715 2011-03-30 15:58:35Z rblod $ 
     49   !! $Id: sbcssr.F90 3294 2012-01-28 16:44:18Z rblod $ 
    4950   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    5051   !!---------------------------------------------------------------------- 
    … …  
    7879      NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 
    7980      !!---------------------------------------------------------------------- 
     81      ! 
     82      IF( nn_timing == 1 )  CALL timing_start('sbc_ssr') 
    8083      ! 
    8184      !                                               ! -------------------- ! 
    … …  
    201204      ENDIF 
    202205      ! 
     206      IF( nn_timing == 1 )  CALL timing_stop('sbc_ssr') 
     207      ! 
    203208   END SUBROUTINE sbc_ssr 
    204209       
Note: See TracChangeset for help on using the changeset viewer.