Ignore:
Timestamp:
2018-06-20T15:41:08+02:00 (3 years ago)
Author:
smasson
Message:

dev_r9759_HPC09_ESIWACE: get more informations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90

    r9772 r9814  
    8484   USE lib_mpp        ! distributed memory computing 
    8585   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
     86   USE lbclnk  
    8687   USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges  
    8788   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
     
    190191            IF ( istp == ( nit000 + 1 ) ) tic = MPI_Wtime() 
    191192            IF ( ln_comm_only .AND. istp >= ( nit000  + 1 )) THEN 
    192                DO i = 1, n_sequence 
    193                  IF ( icomm_sequence(i,1) == 1 ) THEN 
    194                     SELECT CASE ( icomm_sequence(i,2) ) 
    195                       CASE (1) 
    196                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1. ) 
    197                       CASE (2) 
    198                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1.) 
    199                       CASE (3) 
    200                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1.) 
    201                       CASE (4) 
    202                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1., va(:,:,1)  , 'V', -1.) 
    203                       CASE (5) 
    204                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1., va(:,:,1)  , 'V', -1., ub(:,:,1)  , 'U', -1.) 
    205                       CASE (6) 
    206                       CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1., va(:,:,1)  , 'V', -1., ub(:,:,1)  , 'U', -1., vb(:,:,1)  , 'V', -1. ) 
    207                     END SELECT 
    208                  ELSE 
    209                     SELECT CASE ( icomm_sequence(i,2) ) 
    210                       CASE (1) 
    211                       CALL lbc_lnk_multi( un  , 'U', -1. ) 
    212                       CASE (2) 
    213                       CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1.) 
    214                       CASE (3) 
    215                       CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1.) 
    216                       CASE (4) 
    217                       CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1.) 
    218                       CASE (5) 
    219                       CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1., ub  , 'U', -1.) 
    220                       CASE (6) 
    221                       CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1., ub  , 'U', -1., vb  , 'V', -1. ) 
    222                     END SELECT 
    223                  ENDIF 
    224                ENDDO 
     193              CALL simulated_lbc_lnk 
    225194            ELSE 
    226195              CALL stp        ( istp )  
Note: See TracChangeset for help on using the changeset viewer.