New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3769 – NEMO

Changeset 3769


Ignore:
Timestamp:
2013-02-01T15:56:10+01:00 (11 years ago)
Author:
smasson
Message:

dev_MERGE_2012: xios+agrif+oasis compliant

Location:
branches/2012/dev_MERGE_2012/NEMOGCM
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_MERGE_2012/NEMOGCM/CONFIG/cfg.txt

    r3764 r3769  
    33GYRE_BFM OPA_SRC TOP_SRC 
    44GYRE_PISCES OPA_SRC TOP_SRC 
    5 ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 
    65ORCA2_LIM3 OPA_SRC LIM_SRC_3 
    76ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    … …  
    98ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 
    109ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
     10ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3764 r3769  
    9191      istp = nit000 
    9292         ! 
     93      CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    9394      DO WHILE ( istp <= nitend .AND. nstop == 0 )    ! time stepping 
    9495         ! 
    … …  
    101102         IF( lk_mpp )   CALL mpp_max( nstop ) 
    102103      END DO 
     104#if defined key_iomput 
     105      CALL xios_context_finalize() ! needed for XIOS+AGRIF 
     106#endif 
    103107 
    104108      !                            !------------------------! 
    … …  
    250254      !                                     ! Dynamics 
    251255                            CALL dta_dyn_init   ! Initialization for the dynamics 
    252                             CALL     iom_init       ! iom_put initialization 
    253256 
    254257      IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r3764 r3769  
    359359         i_s = 1 
    360360         i_e = jpmax_files 
    361 #if defined key_iomput 
    362          CALL xios_context_finalize() 
    363 #endif 
    364361      ENDIF 
    365362 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3768 r3769  
    194194      ! 
    195195      CALL nemo_closefile 
    196 #if defined key_oasis3 || defined key_oasis4 
     196#if defined key_iomput 
     197      CALL xios_finalize                ! end mpp communications with xios 
     198# if defined key_oasis3 || defined key_oasis4 
    197199      CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
     200# endif 
    198201#else 
    199 # if defined key_iomput 
    200       IF( Agrif_Root() ) THEN 
    201          CALL xios_finalize             ! end mpp communications 
    202       ENDIF 
     202# if defined key_oasis3 || defined key_oasis4 
     203      CALL cpl_prism_finalize           ! end coupling and mpp communications with OASIS 
    203204# else 
    204205      IF( lk_mpp )   CALL mppstop       ! end mpp communications 
    … …  
    390391      !                                     ! Diagnostics 
    391392      IF( lk_floats     )   CALL     flo_init   ! drifting Floats 
    392                             CALL     iom_init   ! iom_put initialization 
    393393      IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag 
    394394                            CALL dia_ptr_init   ! Poleward TRansports initialization 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/step.F90

    r3764 r3769  
    3030   !!---------------------------------------------------------------------- 
    3131   USE step_oce         ! time stepping definition modules 
    32 #if defined key_top 
    33    USE trcstp           ! passive tracer time-stepping      (trc_stp routine) 
    34 #endif 
    35 #if defined key_agrif 
    36    USE agrif_opa_sponge ! Momemtum and tracers sponges 
    37 #endif 
    38    USE restart          ! restart 
    3932 
    4033   IMPLICIT NONE 
    … …  
    8982#endif 
    9083                             indic = 0                ! reset to no error condition 
     84      IF( kstp == nit000 )   CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    9185      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
    9286                             CALL iom_setkt( kstp - nit000 + 1 )   ! say to iom that we are at time step kstp 
    … …  
    276270      IF( lk_cpl           )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
    277271      ! 
     272#if defined key_iomput 
     273      IF( kstp == nitend   )   CALL xios_context_finalize() ! needed for XIOS+AGRIF 
     274#endif 
     275      ! 
    278276      IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset 
    279277      ! 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r3764 r3769  
    1414   USE iom              ! 
    1515   USE lbclnk 
     16   USE restart          ! restart 
     17#if defined key_iomput 
     18   USE xios 
     19#endif 
    1620 
    1721   USE daymod           ! calendar                         (day     routine) 
    … …  
    109113   USE agrif_opa_sponge ! Momemtum and tracers sponges 
    110114#endif 
     115#if defined key_top 
     116   USE trcstp           ! passive tracer time-stepping      (trc_stp routine) 
     117#endif 
    111118   !!---------------------------------------------------------------------- 
    112119   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r3366 r3769  
    5151   USE lib_mpp         ! distributed memory computing 
    5252#if defined key_iomput 
    53    USE mod_ioclient 
     53   USE xios 
    5454#endif 
    5555   USE sbcssm 
    … …  
    135135      ! 
    136136      CALL nemo_closefile 
     137#if defined key_iomput 
     138      CALL xios_finalize                ! end mpp communications with xios 
     139#else 
    137140      IF( lk_mpp )   CALL mppstop       ! end mpp communications 
     141#endif 
    138142      ! 
    139143   END SUBROUTINE nemo_gcm 
    … …  
    167171#if defined key_iomput 
    168172      IF( Agrif_Root() ) THEN 
    169          CALL  init_ioclient( ilocal_comm )                 ! exchange io_server nemo local communicator with the io_server 
     173         CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    170174      ENDIF 
    171175      narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
    … …  
    258262                            CALL sbc_init   ! Forcings : surface module  
    259263       
    260                             CALL iom_init   ! iom_put initialization 
    261264      IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 
    262265      ! 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/step.F90

    r3362 r3769  
    1919   USE iom              ! 
    2020   USE lbclnk 
     21#if defined key_iomput 
     22   USE xios 
     23#endif 
    2124 
    2225   USE daymod           ! calendar                         (day     routine) 
    … …  
    7275# endif    
    7376#endif    
     77      IF( kstp == nit000 )   CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 
    7478      IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init) 
    7579                             CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp 
    … …  
    8286                                                          ! need to keep the same interface  
    8387                             CALL stp_ctl( kstp, indic ) 
     88#if defined key_iomput 
     89      IF( kstp == nitend )   CALL xios_context_finalize() ! needed for XIOS+AGRIF 
     90#endif 
    8491      ! 
    8592      IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset 
Note: See TracChangeset for help on using the changeset viewer.