Changeset 5501


Ignore:
Timestamp:
2015-06-29T12:08:15+02:00 (5 years ago)
Author:
deazer
Message:

Adjusted small Bugfix to retain orginal order of statements in step.F90
Requires use of key_bdy.
Passes Sette
See Ticket: 1521
set dyn_apr to false in AMM12 for now before forcing files are updated on ftp site
to allow AMM12 sette to pass.

Location:
trunk/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/AMM12/EXP00/namelist_cfg

    r5407 r5501  
    9999   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S       (T => fill namsbc_ssr) 
    100100   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked 
     101   ln_apr_dyn  = .false.    !  Patm gradient added in ocean & ice Eqs.   (T => fill namsbc_apr ) 
     102 
    101103/ 
    102104!----------------------------------------------------------------------- 
     
    158160!          !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! land/sea mask ! 
    159161!          !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! filename      ! 
    160    sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' , '' 
     162   sn_apr     = 'amm12_mslp'     ,          1        ,  'p_msl'      , .false.      , .false. , 'daily'   ,  ''      ,  '' , '' 
    161163 
    162    cn_dir      = './'      !  root directory for the location of the bulk files 
    163    rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     164   cn_dir      = './fluxes/' !  root directory for the location of the bulk files 
     165   rn_pref     = 101000.    !  reference atmospheric pressure   [N/m2]/ 
    164166   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
    165    ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
     167   ln_apr_obc  = .true.    !  inverse barometer added to OBC ssh data 
    166168/ 
    167169!----------------------------------------------------------------------- 
  • trunk/NEMOGCM/CONFIG/SHARED/namelist_ref

    r5407 r5501  
    476476 
    477477   cn_dir      = './'       !  root directory for the location of the bulk files 
    478    rn_pref     = 101000._wp !  reference atmospheric pressure   [N/m2]/ 
     478   rn_pref     = 101000.    !  reference atmospheric pressure   [N/m2]/ 
    479479   ln_ref_apr  = .false.    !  ref. pressure: global mean Patm (T) or a constant (F) 
    480480   ln_apr_obc  = .false.    !  inverse barometer added to OBC ssh data 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5431 r5501  
    5353   USE timing           ! Timing 
    5454   USE sbcwave          ! Wave module 
     55   USE bdy_par          ! Require lk_bdy 
    5556 
    5657   IMPLICIT NONE 
     
    343344      !                                            ! ---------------------------------------- ! 
    344345      ! 
    345       IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
     346      IF ( .NOT. lk_bdy ) then 
     347         IF( ln_apr_dyn ) CALL sbc_apr( kt )                ! atmospheric pressure provided at kt+0.5*nn_fsbc 
     348      ENDIF 
    346349                                                         ! (caution called before sbc_ssm) 
    347350      ! 
  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r5456 r5501  
    101101      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    102102      IF( lk_tide    )   CALL sbc_tide( kstp ) 
     103      IF( lk_bdy     )  THEN 
     104         IF( ln_apr_dyn)     CALL sbc_apr( kstp )   ! bdy_dta needs ssh_ib  
     105                         CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries 
     106      ENDIF 
    103107                         CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice) 
    104108                                                      ! clem: moved here for bdy ice purpose 
    105       IF( lk_bdy     )   CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries 
    106109      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    107110      ! Update stochastic parameters and random T/S fluctuations 
  • trunk/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r5329 r5501  
    2727   USE sbc_oce          ! surface boundary condition: ocean 
    2828   USE sbctide          ! Tide initialisation 
     29   USE sbcapr           ! surface boundary condition: ssh_ib required by bdydta  
    2930 
    3031   USE traqsr           ! solar radiation penetration      (tra_qsr routine) 
Note: See TracChangeset for help on using the changeset viewer.