Changeset 1490 for trunk/NEMO/OPA_SRC/lib_mpp.F90
- Timestamp:
- 2009-07-16T16:04:22+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lib_mpp.F90
r1447 r1490 118 118 INTEGER :: mpi_comm_opa ! opa local communicator 119 119 120 !!gm question : Pourquoi toutes les variables ice sont public???121 120 ! variables used in case of sea-ice 122 121 INTEGER, PUBLIC :: ncomm_ice !: communicator made by the processors with sea-ice … … 193 192 WRITE(numout,*) ' Namelist nam_mpp' 194 193 WRITE(numout,*) ' mpi send type c_mpi_send = ', c_mpi_send 195 !!gm IF(lwp) WRITE(numout,*) ' Namelist nam_mpp'196 !!gm IF(lwp) WRITE(numout,*) ' mpi send type c_mpi_send = ', c_mpi_send197 198 194 199 195 #if defined key_agrif … … 347 343 ! 348 344 ENDIF 349 !!gm question: il me semble que le cas cd_mpp est seulement pour remplir les halos ajouter350 !!gm pour avoir le meme nb de pts sur chaque proc351 !!gm ===>> le endif au dessus devrait etre tout en bas de la routine : pas de comm !352 !!gm i.e. reduction des comm a la lecture du forcage353 !!gm en effet l'idee de Seb etait que les champs lus le sont partout (1:nlci,1:nlcj)354 345 355 346 ! 2. East and west directions exchange … … 540 531 pt2d(:,nlcj-jprecj+1:jpj ) = zland ! north 541 532 ! 542 !!gm question: il me semble que le cas cd_mpp est seulement pour remplir les halos ajouter543 !!gm pour avoir le meme nb de pts sur chaque proc544 !!gm ===>> le endif au dessus devrait etre tout en bas de la routine : pas de comm !545 !!gm i.e. reduction des comm a la lecture du forcage546 !!gm en effet l'idee de Seb etait que les champs lus le sont partout (1:nlci,1:nlcj)547 533 ENDIF 548 534
Note: See TracChangeset
for help on using the changeset viewer.