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 9259 for branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 – NEMO

Ignore:
Timestamp:
2018-01-18T13:14:23+01:00 (6 years ago)
Author:
jcastill
Message:

Changes to stop reading and using the pressure forcing file when coupling to the atmospheric mean sea level pressure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8756 r9259  
    317317      !!              - updte the ice fraction : fr_i 
    318318      !!---------------------------------------------------------------------- 
     319      USE bdydta, ONLY: bdy_dta  
     320      ! 
    319321      INTEGER, INTENT(in) ::   kt       ! ocean time step 
    320322      !!--------------------------------------------------------------------- 
     
    337339      !                                            ! ---------------------------------------- ! 
    338340      ! 
    339       IF ( .NOT. lk_bdy ) then 
    340          IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
    341       ENDIF 
     341 
     342      IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
    342343                                                         ! (caution called before sbc_ssm) 
    343344      ! 
     
    376377      IF( ln_mixcpl .OR. ln_wavcpl )  CALL sbc_cpl_rcv ( kt, nn_fsbc, nn_ice )   ! forced-coupled mixed formulation after forcing 
    377378 
    378       IF ( ln_wave .AND. (ln_tauoc .OR. ln_tauw) ) CALL sbc_stress( )   ! Wave stress update  
     379      IF( ln_wave .AND. (ln_tauoc .OR. ln_tauw) ) CALL sbc_stress( )    ! Wave stress update  
     380      IF( lk_bdy )           CALL bdy_dta ( kt, time_offset=+1 )        ! update dynamic & tracer data at open boundaries 
     381                                                                        ! (caution called after sbc_ssm[_cpl] and before ice) 
    379382 
    380383      !                                            !==  Misc. Options  ==! 
Note: See TracChangeset for help on using the changeset viewer.