Changeset 9814 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90

Timestamp:

2018-06-20T15:41:08+02:00 (6 years ago)

Author:

smasson

Message:

dev_r9759_HPC09_ESIWACE: get more informations

File:

• NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90 (modified) (2 diffs)

NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/nemogcm.F90

@@ -84 +84 @@
    USE lib_mpp        ! distributed memory computing
    USE mppini         ! shared/distributed memory setting (mpp_init routine)
+   USE lbclnk 
    USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges 
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
@@ -190 +191 @@
             IF ( istp == ( nit000 + 1 ) ) tic = MPI_Wtime()
             IF ( ln_comm_only .AND. istp >= ( nit000  + 1 )) THEN
-               DO i = 1, n_sequence
-                 IF ( icomm_sequence(i,1) == 1 ) THEN
-                    SELECT CASE ( icomm_sequence(i,2) )
-                      CASE (1)
-                      CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1. )
-                      CASE (2)
-                      CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1.)
-                      CASE (3)
-                      CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1.)
-                      CASE (4)
-                      CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1., va(:,:,1)  , 'V', -1.)
-                      CASE (5)
-                      CALL lbc_lnk_multi( un(:,:,1)  , 'U', -1., vn(:,:,1)  , 'V', -1., ua(:,:,1), 'U', -1., va(:,:,1)  , 'V', -1., ub(:,:,1)  , 'U', -1.)
-                      CASE (6)
-                      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. )
-                    END SELECT
-                 ELSE
-                    SELECT CASE ( icomm_sequence(i,2) )
-                      CASE (1)
-                      CALL lbc_lnk_multi( un  , 'U', -1. )
-                      CASE (2)
-                      CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1.)
-                      CASE (3)
-                      CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1.)
-                      CASE (4)
-                      CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1.)
-                      CASE (5)
-                      CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1., ub  , 'U', -1.)
-                      CASE (6)
-                      CALL lbc_lnk_multi( un  , 'U', -1., vn  , 'V', -1., ua, 'U', -1., va  , 'V', -1., ub  , 'U', -1., vb  , 'V', -1. )
-                    END SELECT
-                 ENDIF
-               ENDDO
+              CALL simulated_lbc_lnk
             ELSE
               CALL stp        ( istp )