Ignore:
Timestamp:
2019-12-11T10:55:06+01:00 (10 months ago)
Author:
cetlod
Message:

dev_merge_option2 : merge in ENHANCE-03_closea branch

File:
1 edited

Legend:

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

    r12169 r12172  
    2525   USE oce            ! ocean dynamics and tracers 
    2626   USE dom_oce        ! ocean space and time domain 
     27   USE closea         ! closed seas 
    2728   USE phycst         ! physical constants 
    2829   USE sbc_oce        ! Surface boundary condition: ocean fields 
     
    4142   USE sbccpl         ! surface boundary condition: coupled formulation 
    4243   USE cpl_oasis3     ! OASIS routines for coupling 
     44   USE sbcclo         ! surface boundary condition: closed sea correction 
    4345   USE sbcssr         ! surface boundary condition: sea surface restoring 
    4446   USE sbcrnf         ! surface boundary condition: runoffs 
     
    336338      !                       !**  associated modules : initialization 
    337339      ! 
     340      IF( l_sbc_clo   )   CALL sbc_clo_init            ! closed sea surface initialisation 
     341      ! 
    338342                          CALL sbc_ssm_init            ! Sea-surface mean fields initialization 
    339343      ! 
     
    472476      ! Special treatment of freshwater fluxes over closed seas in the model domain 
    473477      ! Should not be run if ln_diurnal_only 
    474       IF( l_sbc_clo .AND. (.NOT. ln_diurnal_only) )   CALL sbc_clo( kt )    
     478      IF( l_sbc_clo     )   CALL sbc_clo( kt )    
    475479 
    476480!!$!RBbug do not understand why see ticket 667 
Note: See TracChangeset for help on using the changeset viewer.