Changeset 8812


Ignore:
Timestamp:
2017-11-24T17:34:50+01:00 (3 years ago)
Author:
andmirek
Message:

#1953 and #1962 enable restart read/write with XIOS in SAS

Location:
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8801 r8812  
    6464CONTAINS 
    6565 
    66    SUBROUTINE dom_init 
     66   SUBROUTINE dom_init(cdstr) 
    6767      !!---------------------------------------------------------------------- 
    6868      !!                  ***  ROUTINE dom_init  *** 
     
    8282      INTEGER ::   iconf = 0    ! local integers 
    8383      CHARACTER (len=64) ::   cform = "(A12, 3(A13, I7))"  
     84      CHARACTER (len=*), INTENT(IN) :: cdstr                  ! model   
    8485      INTEGER , DIMENSION(jpi,jpj) ::   ik_top , ik_bot       ! top and bottom ocean level 
    8586      REAL(wp), DIMENSION(jpi,jpj) ::   z1_hu_0, z1_hv_0 
     
    135136!define names for restart write and set core output (restart.F90) 
    136137         CALL iom_set_rst_vars(rst_wfields) 
    137          CALL iom_set_rstw_core() 
     138         CALL iom_set_rstw_core(cdstr) 
    138139      ENDIF 
    139140      ! 
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8801 r8812  
    311311   END SUBROUTINE iom_set_rstr_active 
    312312 
    313    SUBROUTINE iom_set_rstw_core() 
     313   SUBROUTINE iom_set_rstw_core(cdmdl) 
     314   CHARACTER (len=*), INTENT (IN) :: cdmdl 
     315    
     316   IF(cdmdl == "OPA") THEN 
    314317!from restart.F90 
    315318   CALL iom_set_rstw_var_active("rdt") 
     
    343346         CALL iom_set_rstw_var_active('sbc_hc_b') 
    344347         CALL iom_set_rstw_var_active('sbc_sc_b') 
     348   ENDIF 
    345349   END SUBROUTINE iom_set_rstw_core 
    346350 
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r8570 r8812  
    422422      IF( lk_c1d        )   CALL     c1d_init   ! 1D column configuration 
    423423                            CALL     wad_init   ! Wetting and drying options 
    424                             CALL     dom_init   ! Domain 
     424                            CALL     dom_init("OPA")   ! Domain 
    425425      IF( ln_crs        )   CALL     crs_init   ! coarsened grid: domain initialization  
    426426      IF( ln_nnogather )    CALL nemo_northcomms! northfold neighbour lists (must be done after the masks are defined) 
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAO_SRC/nemogcm.F90

    r8528 r8812  
    271271                            CALL     phy_cst    ! Physical constants 
    272272                            CALL     eos_init   ! Equation of state 
    273                             CALL     dom_init   ! Domain 
     273                            CALL     dom_init('SAO')   ! Domain 
    274274 
    275275      IF( ln_nnogather )    CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAS_SRC/daymod.F90

    r8802 r8812  
    3333   USE timing         ! Timing 
    3434   USE restart        ! restart 
    35    USE iom_def, ONLY : lrxios 
     35   USE iom_def, ONLY : lrxios, lwxios 
    3636   IMPLICIT NONE 
    3737   PRIVATE 
     
    142142      ! call day to set the calendar parameters at the begining of the current simulaton. needed by iom_init 
    143143      CALL day( nit000 ) 
     144      IF( lwxios ) THEN 
     145        CALL iom_set_rstw_var_active('kt') 
     146        CALL iom_set_rstw_var_active('ndastp') 
     147        CALL iom_set_rstw_var_active('adatrj') 
     148        CALL iom_set_rstw_var_active('ntime') 
     149      ENDIF 
    144150      ! 
    145151   END SUBROUTINE day_init 
     
    399405         ENDIF 
    400406         ! calendar control 
    401          CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp) )   ! time-step 
    402          CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) )   ! date 
    403          CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj            )   ! number of elapsed days since 
     407         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     408         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp), ldxios = lwxios )   ! time-step 
     409         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp), ldxios = lwxios )   ! date 
     410         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj, ldxios = lwxios            )   ! number of elapsed days since 
    404411         !                                                                     ! the begining of the run [s] 
    405     CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp) ) ! time 
     412    CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp), ldxios = lwxios ) ! time 
     413         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    406414      ENDIF 
    407415      ! 
  • branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r8583 r8812  
    4141   USE xios           ! xIOserver 
    4242#endif 
     43   USE in_out_manager, ONLY : ln_xios_read, nn_wxios 
    4344 
    4445   IMPLICIT NONE 
     
    359360                            CALL phy_cst    ! Physical constants 
    360361                            CALL eos_init   ! Equation of state 
    361                             CALL dom_init   ! Domain 
    362  
     362                            CALL dom_init('SAS')   ! Domain 
    363363     IF( ln_nnogather )     CALL nemo_northcomms   ! Initialise the northfold neighbour lists (must be done after the masks are defined) 
    364364 
Note: See TracChangeset for help on using the changeset viewer.