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 13662 for NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2020-10-22T20:49:56+02:00 (3 years ago)
Author:
clem
Message:

update to almost r4.0.4

Location:
NEMO/branches/2019/dev_r11842_SI3-10_EAP
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP

    • Property svn:externals
      •  

        old new  
        1 ^/utils/build/arch@HEAD       arch 
        2 ^/utils/build/makenemo@HEAD   makenemo 
        3 ^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
        6 ^/vendors/FCM@HEAD            ext/FCM 
        7 ^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         1^/utils/build/arch@12130      arch 
         2^/utils/build/makenemo@12191  makenemo 
         3^/utils/build/mk@11662        mk 
         4^/utils/tools_r4.0-HEAD@12672 tools 
         5^/vendors/AGRIF/dev@10586     ext/AGRIF 
         6^/vendors/FCM@10134           ext/FCM 
         7^/vendors/IOIPSL@9655         ext/IOIPSL 
         8 
         9# SETTE mapping (inactive) 
         10#^/utils/CI/sette@12135        sette 
  • NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/nemogcm.F90

    r11536 r13662  
    7272   USE step_diu       ! diurnal bulk SST timestepping (called from here if run offline) 
    7373   USE crsini         ! initialise grid coarsening utility 
    74    USE diatmb         ! Top,middle,bottom output 
    7574   USE dia25h         ! 25h mean output 
    7675   USE sbc_oce , ONLY : lk_oasis 
     
    8382#endif 
    8483   ! 
     84   USE in_out_manager ! I/O manager 
    8585   USE lib_mpp        ! distributed memory computing 
    8686   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
     
    179179      END DO 
    180180      ! 
    181       IF( .NOT. Agrif_Root() ) THEN 
    182          CALL Agrif_ParentGrid_To_ChildGrid() 
    183          IF( ln_diaobs )   CALL dia_obs_wri 
    184          IF( ln_timing )   CALL timing_finalize 
    185          CALL Agrif_ChildGrid_To_ParentGrid() 
    186       ENDIF 
    187       ! 
    188181# else 
    189182      ! 
     
    230223      IF( nstop /= 0 .AND. lwp ) THEN        ! error print 
    231224         WRITE(ctmp1,*) '   ==>>>   nemo_gcm: a total of ', nstop, ' errors have been found' 
    232          CALL ctl_stop( ctmp1 ) 
     225         IF( ngrdstop > 0 ) THEN 
     226            WRITE(ctmp9,'(i2)') ngrdstop 
     227            WRITE(ctmp2,*) '           E R R O R detected in Agrif grid '//TRIM(ctmp9) 
     228            WRITE(ctmp3,*) '           Look for "E R R O R" messages in all existing '//TRIM(ctmp9)//'_ocean_output* files' 
     229            CALL ctl_stop( ' ', ctmp1, ' ', ctmp2, ' ', ctmp3 ) 
     230         ELSE 
     231            WRITE(ctmp2,*) '           Look for "E R R O R" messages in all existing ocean_output* files' 
     232            CALL ctl_stop( ' ', ctmp1, ' ', ctmp2 ) 
     233         ENDIF 
    233234      ENDIF 
    234235      ! 
     
    311312      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    312313      ! open /dev/null file to be able to supress output write easily 
     314      IF( Agrif_Root() ) THEN 
    313315                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     316#ifdef key_agrif 
     317      ELSE 
     318                  numnul = Agrif_Parent(numnul) 
     319#endif 
     320      ENDIF 
    314321      ! 
    315322      !                             !--------------------! 
     
    484491                           CALL     trd_init    ! Mixed-layer/Vorticity/Integral constraints trends 
    485492                           CALL dia_obs_init    ! Initialize observational data 
    486                            CALL dia_tmb_init    ! TMB outputs 
    487493                           CALL dia_25h_init    ! 25h mean  outputs 
    488494                           CALL dia_harm_init   ! tidal harmonics outputs 
Note: See TracChangeset for help on using the changeset viewer.