Ignore:
Timestamp:
2015-07-15T17:46:12+02:00 (5 years ago)
Author:
andrewryan
Message:

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r5034 r5600  
    8282   USE crsini          ! initialise grid coarsening utility 
    8383   USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges  
     84   USE sbc_oce, ONLY: lk_oasis 
     85   USE stopar 
     86   USE stopts 
    8487 
    8588   IMPLICIT NONE 
     
    184187      ! 
    185188#if defined key_agrif 
    186       CALL Agrif_ParentGrid_To_ChildGrid() 
    187       IF( lk_diaobs ) CALL dia_obs_wri 
    188       IF( nn_timing == 1 )   CALL timing_finalize 
    189       CALL Agrif_ChildGrid_To_ParentGrid() 
     189      IF ( Agrif_Level() < Agrif_MaxLevel() ) THEN  
     190         CALL Agrif_ParentGrid_To_ChildGrid() 
     191         IF( lk_diaobs ) CALL dia_obs_wri 
     192         IF( nn_timing == 1 )   CALL timing_finalize 
     193         CALL Agrif_ChildGrid_To_ParentGrid() 
     194      ENDIF 
    190195#endif 
    191196      IF( nn_timing == 1 )   CALL timing_finalize 
     
    195200#if defined key_iomput 
    196201      CALL xios_finalize                ! end mpp communications with xios 
    197       IF( lk_cpl ) CALL cpl_finalize    ! end coupling and mpp communications with OASIS 
     202      IF( lk_oasis ) CALL cpl_finalize    ! end coupling and mpp communications with OASIS 
    198203#else 
    199       IF( lk_cpl ) THEN  
     204      IF( lk_oasis ) THEN  
    200205         CALL cpl_finalize              ! end coupling and mpp communications with OASIS 
    201206      ELSE 
     
    222227         &             nn_bench, nn_timing 
    223228      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
    224          &             jpizoom, jpjzoom, jperio 
     229         &             jpizoom, jpjzoom, jperio, ln_use_jattr 
    225230      !!---------------------------------------------------------------------- 
    226231      ! 
    227232      cltxt = '' 
     233      cxios_context = 'nemo' 
    228234      ! 
    229235      !                             ! Open reference namelist and configuration namelist files 
     
    261267      nperio  = 0 
    262268      jperio  = 0 
     269      ln_use_jattr = .false. 
    263270   ENDIF 
    264271#endif 
     
    271278#if defined key_iomput 
    272279      IF( Agrif_Root() ) THEN 
    273          IF( lk_cpl ) THEN 
    274             CALL cpl_init( ilocal_comm )                               ! nemo local communicator given by oasis 
    275             CALL xios_initialize( "oceanx",local_comm=ilocal_comm )    ! send nemo communicator to xios 
     280         IF( lk_oasis ) THEN 
     281            CALL cpl_init( "oceanx", ilocal_comm )                     ! nemo local communicator given by oasis 
     282            CALL xios_initialize( "not used",local_comm=ilocal_comm )    ! send nemo communicator to xios 
    276283         ELSE 
    277             CALL  xios_initialize( "nemo",return_comm=ilocal_comm )    ! nemo local communicator given by xios 
     284            CALL  xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm )    ! nemo local communicator given by xios 
    278285         ENDIF 
    279286      ENDIF 
    280       narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
     287      ! Nodes selection (control print return in cltxt) 
     288      narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 
    281289#else 
    282       IF( lk_cpl ) THEN 
     290      IF( lk_oasis ) THEN 
    283291         IF( Agrif_Root() ) THEN 
    284             CALL cpl_init( ilocal_comm )                       ! nemo local communicator given by oasis 
     292            CALL cpl_init( "oceanx", ilocal_comm )                      ! nemo local communicator given by oasis 
    285293         ENDIF 
    286          narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection (control print return in cltxt) 
     294         ! Nodes selection (control print return in cltxt) 
     295         narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) 
    287296      ELSE 
    288297         ilocal_comm = 0 
    289          narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop )                ! Nodes selection (control print return in cltxt) 
     298         ! Nodes selection (control print return in cltxt) 
     299         narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop ) 
    290300      ENDIF 
    291301#endif 
     
    341351         WRITE(numout,*) '                       NEMO team' 
    342352         WRITE(numout,*) '            Ocean General Circulation Model' 
    343          WRITE(numout,*) '                  version 3.4  (2011) ' 
     353         WRITE(numout,*) '                  version 3.6  (2015) ' 
    344354         WRITE(numout,*) 
    345355         WRITE(numout,*) 
     
    383393      IF( lk_tide       )   CALL    tide_init( nit000 )    ! Initialisation of the tidal harmonics 
    384394 
     395                            CALL     sbc_init   ! Forcings : surface module (clem: moved here for bdy purpose) 
     396 
    385397      IF( lk_bdy        )   CALL     bdy_init   ! Open boundaries initialisation 
    386398      IF( lk_bdy        )   CALL bdy_dta_init   ! Open boundaries initialisation of external data arrays 
     
    389401 
    390402                            CALL dyn_nept_init  ! simplified form of Neptune effect 
    391  
    392403      !      
    393404      IF( ln_crs        )   CALL     crs_init   ! Domain initialization of coarsened grid 
    394405      ! 
    395406                                ! Ocean physics 
    396                             CALL     sbc_init   ! Forcings : surface module 
    397407      !                                         ! Vertical physics 
    398408                            CALL     zdf_init      ! namelist read 
     
    431441      IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_init       ! Cross Land Advection 
    432442                            CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
     443                            CALL sto_par_init   ! Stochastic parametrization 
     444      IF( ln_sto_eos     )  CALL sto_pts_init   ! RRandom T/S fluctuations 
    433445      
    434446#if defined key_top 
     
    506518         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
    507519         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
     520         WRITE(numout,*) '      use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 
    508521      ENDIF 
    509522      !                             ! Parameter control 
Note: See TracChangeset for help on using the changeset viewer.