New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12640 for NEMO/releases – NEMO

Changeset 12640 for NEMO/releases


Ignore:
Timestamp:
2020-04-01T14:27:05+02:00 (4 years ago)
Author:
smasson
Message:

r4.0-HEAD: numnul with Agrif, see #2378

Location:
NEMO/releases/r4.0/r4.0-HEAD/src
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/nemogcm.F90

    r12214 r12640  
    8282#endif 
    8383   ! 
     84   USE in_out_manager ! I/O manager 
    8485   USE lib_mpp        ! distributed memory computing 
    8586   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    … …  
    310311      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    311312      ! open /dev/null file to be able to supress output write easily 
     313      IF( Agrif_Root() ) THEN 
    312314                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     315#ifdef key_agrif 
     316      ELSE 
     317                  numnul = Agrif_Parent(numnul) 
     318#endif 
     319      ENDIF 
    313320      ! 
    314321      !                             !--------------------! 

  • NEMO/releases/r4.0/r4.0-HEAD/src/OFF/nemogcm.F90

    r12026 r12640  
    198198      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    199199      ! open /dev/null file to be able to supress output write easily 
     200      IF( Agrif_Root() ) THEN 
    200201                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     202#ifdef key_agrif 
     203      ELSE 
     204                  numnul = Agrif_Parent(numnul) 
     205#endif 
     206      ENDIF 
    201207      ! 
    202208      !                             !--------------------! 

  • NEMO/releases/r4.0/r4.0-HEAD/src/SAO/nemogcm.F90

    r11536 r12640  
    2929   USE sao_intp 
    3030   ! 
     31   USE in_out_manager ! I/O manager 
    3132   USE lib_mpp        ! distributed memory computing 
    3233   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    … …  
    139140      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    140141      ! open /dev/null file to be able to supress output write easily 
     142      IF( Agrif_Root() ) THEN 
    141143                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     144#ifdef key_agrif 
     145      ELSE 
     146                  numnul = Agrif_Parent(numnul) 
     147#endif 
     148      ENDIF 
    142149      ! 
    143150      !                             !--------------------! 

  • NEMO/releases/r4.0/r4.0-HEAD/src/SAS/nemogcm.F90

    r11536 r12640  
    3333   USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). mandatory for sea-ice 
    3434   ! 
     35   USE in_out_manager ! I/O manager 
    3536   USE lib_mpp        ! distributed memory computing 
    3637   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    … …  
    243244      ENDIF 
    244245      ! open /dev/null file to be able to supress output write easily 
     246      IF( Agrif_Root() ) THEN 
    245247                     CALL ctl_opn(     numnul,               '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     248#ifdef key_agrif 
     249      ELSE 
     250                     numnul = Agrif_Parent(numnul) 
     251#endif 
     252      ENDIF 
    246253      ! 
    247254      !                             !--------------------! 
Note: See TracChangeset for help on using the changeset viewer.