Changeset 4945


Ignore:
Timestamp:
2014-12-02T10:07:33+01:00 (6 years ago)
Author:
acc
Message:

Branch dev_r4879_UKMO_NOC_MERGE. Final commits to ensure successful AGRIF SETTE tests

Location:
branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist_cfg

    r4940 r4945  
    7979                           !     =2 annual global mean of e-p-r set to zero 
    8080                           !     =3 global emp set to zero and spread out over erp area 
     81/ 
    8182!----------------------------------------------------------------------- 
    8283&namsbc_core   !   namsbc_core  CORE bulk formulae 
     
    107108&namtra_qsr    !   penetrative solar radiation 
    108109!----------------------------------------------------------------------- 
     110!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     111!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     112   sn_chl      ='chlorophyll',        -1         , 'CHLA'    ,   .true.     , .true. , 'yearly'  , 'weights_bilin.nc'       , '' 
    109113/ 
    110114!----------------------------------------------------------------------- 
  • branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/CONFIG/ORCA2_LIM3/EXP00/1_namelist_cfg

    r4940 r4945  
    5555/ 
    5656!----------------------------------------------------------------------- 
     57&namsplit      !   time splitting parameters                            ("key_dynspg_ts") 
     58!----------------------------------------------------------------------- 
     59/ 
     60!----------------------------------------------------------------------- 
     61&namcrs        !   Grid coarsening for dynamics output and/or 
     62               !   passive tracer coarsened online simulations 
     63!----------------------------------------------------------------------- 
     64/ 
     65!----------------------------------------------------------------------- 
    5766&namtsd    !   data : Temperature  & Salinity 
    5867!----------------------------------------------------------------------- 
     
    8594   sn_snow     = 'ncar_precip.15JUNE2009_fill' ,        -1         , 'SNOW'    ,   .false.    , .true. , 'yearly'  , 'weights_core2_agrif_bilinear.nc'     , ''       , '' 
    8695   sn_tdif     = 'taudif_core'                 ,        24         , 'taudif'  ,   .false.    , .true. , 'yearly'  , 'weights_core2_agrif_bilinear.nc'     , ''       , '' 
    87  
    8896   cn_dir      = './'      !  root directory for the location of the bulk files 
    8997   ln_2m       = .false.   !  air temperature and humidity referenced at 2m (T) instead 10m (F) 
     
    213221!----------------------------------------------------------------------- 
    214222/ 
     223!----------------------------------------------------------------------- 
     224&namobs       !  observation usage                                      ('key_diaobs') 
     225!----------------------------------------------------------------------- 
     226/ 
     227!----------------------------------------------------------------------- 
     228&nam_asminc   !   assimilation increments                               ('key_asminc') 
     229!----------------------------------------------------------------------- 
     230/ 
  • branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r4724 r4945  
    9696      ! Add geothermal ice shelf 
    9797      IF( nn_isf .GE. 1 )  THEN 
    98                         z_frc_trd_t = z_frc_trd_t +                      glob_sum( ( risf_tsc(:,:,jp_tem) - rdivisf * fwfisf(:,:) * -1.9 * r1_rau0 ) * surf(:,:) ) 
     98                        z_frc_trd_t = z_frc_trd_t + & 
     99                       &              glob_sum( ( risf_tsc(:,:,jp_tem) - rdivisf * fwfisf(:,:) * (-1.9_wp) * r1_rau0 ) * surf(:,:) ) 
    99100                        z_frc_trd_s = z_frc_trd_s + (1.0_wp - rdivisf) * glob_sum( risf_tsc(:,:,jp_sal) * surf(:,:) ) 
    100101      ENDIF 
  • branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r4624 r4945  
    111111   INTEGER ::   numstp          =   -1      !: logical unit for time step 
    112112   INTEGER ::   numtime         =   -1      !: logical unit for timing 
    113    INTEGER ::   numout          =    6      !: logical unit for output print 
     113   INTEGER ::   numout          =    6      !: logical unit for output print; Set to stdout to ensure any early 
     114                                            !  output can be collected; do not change 
    114115   INTEGER ::   numnam_ref      =   -1      !: logical unit for reference namelist 
    115116   INTEGER ::   numnam_cfg      =   -1      !: logical unit for configuration specific namelist 
    116    INTEGER ::   numond          =    7      !: logical unit for Output Namelist Dynamics 
     117   INTEGER ::   numond          =   -1      !: logical unit for Output Namelist Dynamics 
    117118   INTEGER ::   numnam_ice_ref  =   -1      !: logical unit for ice reference namelist 
    118119   INTEGER ::   numnam_ice_cfg  =   -1      !: logical unit for ice reference namelist 
    119    INTEGER ::   numoni          =    8      !: logical unit for Output Namelist Ice 
     120   INTEGER ::   numoni          =   -1      !: logical unit for Output Namelist Ice 
    120121   INTEGER ::   numevo_ice      =   -1      !: logical unit for ice variables (temp. evolution) 
    121122   INTEGER ::   numsol          =   -1      !: logical unit for solver statistics 
  • branches/2014/dev_r4879_UKMO_NOC_MERGE/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r4938 r4945  
    5454   REAL(wp)   , PUBLIC, ALLOCATABLE, SAVE, DIMENSION (:,:)     ::  risfLeff               !:effective length (Leff) BG03 nn_isf==2 
    5555   REAL(wp)   , PUBLIC, ALLOCATABLE, SAVE, DIMENSION (:,:)     ::  ttbl, stbl, utbl, vtbl !:top boundary layer variable at T point 
    56    INTEGER(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION (:,:)     ::  misfkt, misfkb         !:Level of ice shelf base 
     56#ifdef key_agrif 
     57   ! AGRIF can not handle these arrays as integers. The reason is a mystery but problems avoided by declaring them as reals 
     58   REAL(wp),    PUBLIC, ALLOCATABLE, SAVE, DIMENSION (:,:)     ::  misfkt, misfkb         !:Level of ice shelf base 
     59                                                                                          !: (first wet level and last level include in the tbl) 
     60#else 
     61   INTEGER,    PUBLIC, ALLOCATABLE, SAVE, DIMENSION (:,:)     ::  misfkt, misfkb         !:Level of ice shelf base 
     62#endif 
    5763                                                                                          !: (first wet level and last level include in the tbl) 
    5864 
     
    303309      sbc_isf_alloc = 0       ! set to zero if no array to be allocated 
    304310      IF( .NOT. ALLOCATED( qisf ) ) THEN 
    305          ALLOCATE(  risf_tsc(jpi,jpj,jpts), risf_tsc_b(jpi,jpj,jpts), qisf(jpi,jpj), fwfisf(jpi,jpj), & 
    306                &    fwfisf_b(jpi,jpj), misfkt(jpi,jpj), rhisf_tbl(jpi,jpj), r1_hisf_tbl(jpi,jpj),     & 
    307                &    rzisf_tbl(jpi,jpj), misfkb(jpi,jpj), ttbl(jpi,jpj), stbl(jpi,jpj), utbl(jpi,jpj), & 
    308                &    vtbl(jpi, jpj), risfLeff(jpi,jpj), rhisf_tbl_0(jpi,jpj), ralpha(jpi,jpj), STAT= sbc_isf_alloc ) 
     311         ALLOCATE(  risf_tsc(jpi,jpj,jpts), risf_tsc_b(jpi,jpj,jpts)              , & 
     312               &    qisf(jpi,jpj)     , fwfisf(jpi,jpj)     , fwfisf_b(jpi,jpj)   , & 
     313               &    rhisf_tbl(jpi,jpj), r1_hisf_tbl(jpi,jpj), rzisf_tbl(jpi,jpj)  , & 
     314               &    ttbl(jpi,jpj)     , stbl(jpi,jpj)       , utbl(jpi,jpj)       , & 
     315               &    vtbl(jpi, jpj)    , risfLeff(jpi,jpj)   , rhisf_tbl_0(jpi,jpj), & 
     316               &    ralpha(jpi,jpj)   , misfkt(jpi,jpj)     , misfkb(jpi,jpj)     , & 
     317               &    STAT= sbc_isf_alloc ) 
    309318         ! 
    310319         IF( lk_mpp                  )   CALL mpp_sum ( sbc_isf_alloc ) 
     
    796805      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   phdivn   ! horizontal divergence 
    797806      !! 
    798       INTEGER(wp)  ::   ji, jj, jk   ! dummy loop indices 
    799       INTEGER(wp)  ::   ikt, ikb  
    800       INTEGER(wp)  ::   nk_isf 
     807      INTEGER      ::   ji, jj, jk   ! dummy loop indices 
     808      INTEGER      ::   ikt, ikb  
     809      INTEGER      ::   nk_isf 
    801810      REAL(wp)     ::   zhk, z1_hisf_tbl, zhisf_tbl 
    802811      REAL(wp)     ::   zfact     ! local scalar 
Note: See TracChangeset for help on using the changeset viewer.