Changeset 1490

Timestamp:

2009-07-16T16:04:22+02:00 (15 years ago)

Author:

rblod

Message:

Supress remaining coments in French, see ticket #379

File:

• trunk/NEMO/OPA_SRC/lib_mpp.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -118 +118 @@
    INTEGER ::   mpi_comm_opa   ! opa local communicator
 
-!!gm question : Pourquoi toutes les variables ice sont public???
    ! variables used in case of sea-ice
    INTEGER, PUBLIC ::   ncomm_ice       !: communicator made by the processors with sea-ice
@@ -193 +192 @@
       WRITE(numout,*) '        Namelist nam_mpp'
       WRITE(numout,*) '           mpi send type            c_mpi_send = ', c_mpi_send
-!!gm  IF(lwp)   WRITE(numout,*) '        Namelist nam_mpp'
-!!gm  IF(lwp)   WRITE(numout,*) '           mpi send type            c_mpi_send = ', c_mpi_send
-
 
 #if defined key_agrif
@@ -347 +343 @@
          !
       ENDIF
-!!gm question:  il me semble que le cas cd_mpp est seulement pour remplir les halos ajouter
-!!gm            pour avoir le meme nb de pts sur chaque proc
-!!gm            ===>>  le endif au dessus devrait etre tout en bas de la routine : pas de comm !
-!!gm                   i.e. reduction des comm a la lecture du forcage 
-!!gm            en effet l'idee de Seb etait que les champs lus le sont partout (1:nlci,1:nlcj)
 
       ! 2. East and west directions exchange
@@ -540 +531 @@
                                          pt2d(:,nlcj-jprecj+1:jpj   ) = zland    ! north
          !
-!!gm question:  il me semble que le cas cd_mpp est seulement pour remplir les halos ajouter
-!!gm            pour avoir le meme nb de pts sur chaque proc
-!!gm            ===>>  le endif au dessus devrait etre tout en bas de la routine : pas de comm !
-!!gm                   i.e. reduction des comm a la lecture du forcage 
-!!gm            en effet l'idee de Seb etait que les champs lus le sont partout (1:nlci,1:nlcj)
       ENDIF