New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2259 – NEMO

Changeset 2259


Ignore:
Timestamp:
2010-10-13T19:00:25+02:00 (13 years ago)
Author:
cetlod
Message:

small bug correction

Location:
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r2148 r2259  
    7979      z1_rau0 = 1.e0 / rau0 
    8080      z_frc_trd_v = z1_rau0 * SUM( - ( emp(:,:) - rnf(:,:) ) * surf(:,:) )     ! volume fluxes 
    81       z_frc_trd_t =           SUM( sbc_hc_n(:,:) * surf(:,:) )     ! heat fluxes 
    82       z_frc_trd_s =           SUM( sbc_sc_n(:,:) * surf(:,:) )     ! salt fluxes 
     81      z_frc_trd_t =           SUM( sbc_tsc(:,:,jp_tem) * surf(:,:) )     ! heat fluxes 
     82      z_frc_trd_s =           SUM( sbc_tsc(:,:,jp_sal) * surf(:,:) )     ! salt fluxes 
    8383      ! Add penetrative solar radiation 
    8484      IF( ln_traqsr ) z_frc_trd_t = z_frc_trd_t + ro0cpr * SUM( qsr     (:,:) * surf(:,:) ) 
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r2257 r2259  
    2121   USE in_out_manager  ! I/O manager 
    2222   USE iom             ! I/O module 
     23   USE restart         ! restart 
    2324 
    2425   IMPLICIT NONE 
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r2257 r2259  
    107107      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    108108      !! 
    109       INTEGER  ::   ji, jj, jk           ! dummy loop indices   
    110       REAL(wp) ::   zfact, z1_e3t, zsrau,zdep 
     109      INTEGER  ::   ji, jj, jk, jn           ! dummy loop indices   
     110      REAL(wp) ::   zfact, z1_e3t, zsrau, zdep 
    111111      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ztrdt, ztrds 
    112112      !!---------------------------------------------------------------------- 
     
    148148         !                                         ! ---------------------- 
    149149         zfact = 0.5e0 
    150          sbc_tsc_b(:,:,:) = sbc_tsc(:,:) 
     150         sbc_tsc_b(:,:,:) = sbc_tsc(:,:,:) 
    151151      ENDIF 
    152152      !                                          Compute now sbc tracer content fields 
Note: See TracChangeset for help on using the changeset viewer.