Ignore:
Timestamp:
2019-12-05T19:47:50+01:00 (10 months ago)
Author:
mathiot
Message:

include ENHANCE-03_closea in UKMO merge branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcmod.F90

    r12068 r12079  
    2424   USE oce            ! ocean dynamics and tracers 
    2525   USE dom_oce        ! ocean space and time domain 
     26   USE closea         ! closed seas 
    2627   USE phycst         ! physical constants 
    2728   USE sbc_oce        ! Surface boundary condition: ocean fields 
     
    3940   USE sbccpl         ! surface boundary condition: coupled formulation 
    4041   USE cpl_oasis3     ! OASIS routines for coupling 
     42   USE sbcclo         ! surface boundary condition: closed sea correction 
    4143   USE sbcssr         ! surface boundary condition: sea surface restoring 
    4244   USE sbcrnf         ! surface boundary condition: runoffs 
     
    323325                          CALL sbc_ssm_init ( Kbb, Kmm ) ! Sea-surface mean fields initialization 
    324326      ! 
     327      IF( l_sbc_clo   )   CALL sbc_clo_init              ! closed sea surface initialisation 
     328      ! 
    325329      IF( ln_blk      )   CALL sbc_blk_init              ! bulk formulae initialization 
    326330 
     
    453457      ! Special treatment of freshwater fluxes over closed seas in the model domain 
    454458      ! Should not be run if ln_diurnal_only 
    455       IF( l_sbc_clo .AND. (.NOT. ln_diurnal_only) )   CALL sbc_clo( kt )    
     459      IF( l_sbc_clo     )   CALL sbc_clo( kt )    
    456460 
    457461!!$!RBbug do not understand why see ticket 667 
Note: See TracChangeset for help on using the changeset viewer.