Ignore:
Timestamp:
2015-11-13T17:58:13+01:00 (6 years ago)
Author:
kuniko
Message:

Incorporated flux adjustment. Job compiles and runs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5881 r5889  
    9090         &             ln_blk_mfs, ln_apr_dyn, nn_ice, nn_ice_embd, ln_dm2dc   , ln_rnf   ,   & 
    9191         &             ln_ssr    , nn_isf    , nn_fwb, ln_cdgw    , ln_wave    , ln_sdw   ,   & 
    92          &             nn_lsm    , nn_limflx , nn_components, ln_cpl 
     92         &             nn_lsm    , nn_limflx , nn_components, ln_cpl, ln_flx_adj 
    9393      INTEGER  ::   ios 
    9494      INTEGER  ::   ierr, ierr0, ierr1, ierr2, ierr3, jpm 
     
    144144         WRITE(numout,*) '              iceshelf formulation                       nn_isf      = ', nn_isf 
    145145         WRITE(numout,*) '              Sea Surface Restoring on SST and/or SSS    ln_ssr      = ', ln_ssr 
     146         WRITE(numout,*) '              Sea Surface Flux adjustment on heat and/or freshwater    ln_flx_adj      = ', ln_flx_adj 
    146147         WRITE(numout,*) '              FreshWater Budget control  (=0/1/2)        nn_fwb      = ', nn_fwb 
    147148         WRITE(numout,*) '              closed sea (=0/1) (set in namdom)          nn_closea   = ', nn_closea 
     
    299300      ! 
    300301      ! KY 12/11/2015 
    301                                CALL sbc_flx_adj_init           ! Sea-Surface Flux adjustment 
     302      IF( ln_flx_adj       )   CALL sbc_flx_adj_init           ! Sea-Surface Flux adjustment 
    302303      ! 
    303304      IF( ln_ssr           )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation 
     
    404405  
    405406      ! KY 12/11/2015 
    406                              CALL sbc_flx_adj( kt )               ! add flux adjustment term 
     407      IF( ln_flx_adj     )   CALL sbc_flx_adj( kt )               ! add flux adjustment term 
    407408  
    408409      IF( ln_ssr         )   CALL sbc_ssr( kt )                   ! add SST/SSS damping term 
Note: See TracChangeset for help on using the changeset viewer.